谁能帮我看看这段代码 是什么意思给翻译一下谢谢?
Response.Redirect"error.asp"Response.Endendififrequest.Cookies("useruv")("num")=""the...
Response.Redirect "error.asp"
Response.End
end if
if request.Cookies("useruv")("num") = "" then
response.Cookies("useruv")("num") = 1
else
response.Cookies("useruv")("num") = request.Cookies("useruv")("num") + 1
end if
response.Cookies("useruv")("lastVisit") = date()
response.Cookies("useruv").expires = DateAdd("m", 1, Date())
NOWP2sIP = Request.serverVariables("REMOTE_ADDR")
ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ProxyIP <> "" Then
NOWP2sIP = ProxyIP
End If
conclick = -1
rs.Open "Select * From memberp2s Where username = '" & username & "' And P2sDate = date()",Conn
if rs.eof then
conclick = 1
end if
rs.close
conclick1 = 1
rs.Open "Select * From memberp2s Where P2sIP = '" & NOWP2sIP & "' And (date() - P2sDate) <= 30",Conn
if not rs.eof then
conclick1 = -1
end if
rs.close
if conclick = 1 and conclick1 = -1 then
Conn.Close
Set Conn = nothing
我知道这个是做网页的程序 可能我没说明白 我只想知道这些代码指的是什么意思 展开
Response.End
end if
if request.Cookies("useruv")("num") = "" then
response.Cookies("useruv")("num") = 1
else
response.Cookies("useruv")("num") = request.Cookies("useruv")("num") + 1
end if
response.Cookies("useruv")("lastVisit") = date()
response.Cookies("useruv").expires = DateAdd("m", 1, Date())
NOWP2sIP = Request.serverVariables("REMOTE_ADDR")
ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ProxyIP <> "" Then
NOWP2sIP = ProxyIP
End If
conclick = -1
rs.Open "Select * From memberp2s Where username = '" & username & "' And P2sDate = date()",Conn
if rs.eof then
conclick = 1
end if
rs.close
conclick1 = 1
rs.Open "Select * From memberp2s Where P2sIP = '" & NOWP2sIP & "' And (date() - P2sDate) <= 30",Conn
if not rs.eof then
conclick1 = -1
end if
rs.close
if conclick = 1 and conclick1 = -1 then
Conn.Close
Set Conn = nothing
我知道这个是做网页的程序 可能我没说明白 我只想知道这些代码指的是什么意思 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询