conn.asp

该程序是初学者最好用的程序!~欢迎大家使用 QQ:68056085

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-01   HTTP://wap.czhome.net
' 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
%>