conn.asp

J:程序新静态动态可选择wap友链接版[自带简单留言本]源码程序系统

<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度,
' 程序制作：横云			        掌上校园版权所有，请勿破解
' 完成时间： 2007-09-27   		主页地址：HTTP://wap.cnscu.cn
' E-Mail: [e-mail]   		QQ:554904632
'====================================================================
%>
<%
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/daohang.asa")+";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")
%>