%@ Page Language="vb" aspcompat="true"%> <% dim pigid pigid = request.querystring("pigid") if session("id")="" then session("id") = pigid end if 'Dim StrServer,StrUid,StrSaPwd,StrDbName 'StrServer="202.108.33.189" '数据库服务器名 'StrUid="i-pig" '您的登录帐号 'StrSaPwd="i-pig" '您的登录密码 'StrDbName="cm2" '您的数据库名称 'Dim Conn '数据库连接 'Dim StrDSN '数据库连接字符串 'Dim Rs '命令字符串 'StrDSN = "driver={SQL server};server=" & StrServer & ";uid=" & StrUid & ";pwd=" & StrSaPwd & ";database=" & StrDbName '建立和数据库master的连接 'Conn = Server.CreateObject("ADODB.Connection") 'Rs=Server.CreateObject("ADODB.RecordSet") 'Conn.Open (StrDSN) 'dim sqlStr 'dim webid 'webid = request.querystring("webid") 'sqlStr = "select pigid from pigid_webid where webid = '" & webid & "'" 'Rs.open (sqlStr,Conn) 'if Rs.eof then ' session("id") = "" 'else ' session("id") = Rs("pigid").value 'end if 'Rs.close() 'Rs = nothing 'Conn.close() 'Conn = nothing %>