conn.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 24 行

<!-- #include file="sqlin.asp" -->
<%
'=================================================
' Copyright 2005-09 jinqiu. All Rights Reserved.
' Last Update: 2005-09-24   HTTP://CZGPRS.COM
' E-Mail: [e-mail]   QQ:316801451
'=================================================
%>
<% 
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
connstr="DBQ="+server.mappath("../waphtml/bcgook.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rscon=server.createobject("adodb.recordset")
rscon.open "select xup from config where id=1",conn,1,1
if rscon("xup")=1 then
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="fetc" or browsers="r380" or browsers="mozi" or browsers="mozi" then
response.redirect "../errno.asp"
end if
else
end if
rscon.close
set rscon=nothing
%>