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 = public;" sa "," Hans " "SET RS = conn.execute (" Select Distinct Sheng from Test ") arrpr = rs.getrows () r.closset rs = NothingConn.closset conn = Nothing%>
title>