<!-- METADATA TYPE="TypeLib"
UUID="{00000200-0000-0010-8000-00AA006D2EA4}"
VERSION="2.0"
-->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("s03") = "DSN=s03;USER=;Password="
Application("start") = Now
End Sub
Sub PLogon
If Request.FORM("ProductNo") <> "" Then
Set objConn2 = Server.CreateObject("ADODB.Connection")
Set objRecord2 = Server.CreateObject("ADODB.Recordset")
SQLs = "select * from Product where " & _
"ProductNo = '" & Request.FORM("ProductNo") & "' and " &_
"ProductName = '" & Request.FORM("ProductName") & "'"
Application.Lock
objConn2.open Application("s03")
objRecord2.O ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
