Source Code: <% @ LANGUAGE = "vbscript"%> <% strPathInfo = Request.ServerVariables ( "PATH_INFO") strPathInfo = "http: //" & Request.ServerVariables ( "SERVER_NAME") & Left (strPathInfo, InstrRev (strPathInfo , "/"))
Set conn = server.createObject ("adodb.connection") conn.provider = "SQLOLEDB" conn.open "data source = 192.168.1.114; initial catalog = pubs;" SA "," Hans "set = conn. Execute ("SELECT DISTINCT SHENG FROM TEST") arrpr = rs.getrows () r.closset rs = NothingConn.closset conn = Nothing%>
title>