<!-- 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 
可以看到全部內容
