<%
'====================================================================
' 請(qǐng)你保留這段說(shuō)明，這并不會(huì)影響你的速度,
' 程序制作：橫云			        掌上校園版權(quán)所有，請(qǐng)勿破解
' 完成時(shí)間： 2007-09-27   		主頁(yè)地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@21cn.com   		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")
%>