conn.asp

来自「一个WAP导航程序！动态友链！好东西！而且后台安全性很强」· ASP 代码 · 共 14 行

<%
pno = right(Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID"),11)
If pno = "" Then pno = Request.ServerVariables("REMOTE_ADDR")
dim conn   
dim connstr
connstr="DBQ="+server.mappath("../data/#fufu")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
url=request.servervariables("server_name")
url1=server.urlencode("mshu.cn")
%>