请问一下这页代码哪里有屏闭功能... ...

来源：百度知道编辑：UC知道时间：2024/05/16 11:32:53

<%
SiteSettings=Conn.Execute("[BBSXP_SiteSettings]")
CookieUserName=HTMLEncode(unescape(Request.Cookies("UserName")))

if CookieUserName<>empty then
'第一次来''
if Request.Cookies("Onlinetime")=empty then
Conn.execute("update [BBSXP_Users] set UserDegree=UserDegree+1,UserLandTime="&SqlNowString&",UserLastIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where UserName='"&CookieUserName&"'")
Response.Cookies("Onlinetime")=now()
end if
'
sql="select * from [BBSXP_Users] where UserName='"&CookieUserName&"'"
Set Rs=Conn.Execute(SQL)
if Rs.eof then Response.Cookies("UserName")=""
if Request.Cookies("Userpass") <> Rs("Userpass") then Response.Cookies("UserName")=&

if SiteSettings("BannedIP")<>"" then
filtrate=split(SiteSettings("BannedIP"),"|")
for i = 0 to ubound(filtrate)
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then response.redirect "Include/BannedIP.htm"
next
end if

这一段就是判断来访者的ip是否在系统配置的在禁止访问的列表内。

'如果系统禁止的ip不为空则执行下面内容
if SiteSettings("BannedIP")<>"" then
'把系统禁止的ip列表分解到数组 filtrate
filtrate=split(SiteSettings("BannedIP"),"|")
'循环列出filtrate的项目，就是一个个的ip
for i = 0 to ubound(filtrate)
'看看来访的ip有没有出现过，如果有就重定向到BannedIP.htm这个页面
if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtrate(i)&"") > 0 then response.redirect "Include/BannedIP.htm"
next
end if

请问一下这页代码哪里有屏闭功能... ... 请问一下，这段代码哪里错了呀？？请问这段代码为何不能实现预期功能请问一下索爱w810录音功能在哪里啊? 请问一下，这段代码是什么意思请问一下这段代码是什么意思请问一下代码是什么意思! 请问这段代码哪里有错请问这段代码错在哪里请问代码哪里有错