conn1.asp

这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!


<%
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("wapadmin/gp9.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>