Dim fileStreamObj,textStream,rs_fl
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then youipdress=Request.ServerVariables("REMOTE_ADDR") else youipdress=Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if
if VarType(Application(BBSname&"LockIP"))=0 or Application(BBSname&"LockIP")="" then
Set rs_lockip=conn.execute("select IpDress from LockIP ")
if rs_lockip.bof and rs_lockip.eof then
Application(BBSname&"LockIP")="NO"
else
Application(BBSname&"LockIP")=""
while not rs_lockip.eof
Application(BBSname&"LockIP")=Application(BBSname&"LockIP")+rs_lockip("IpDress")+"|"
rs_lockip.movenext
wend
end if
rs_lockip.close
set rs_lockip=nothing
end if
if Application(BBSname&"LockIP")"NO" then
if Instr(1,Application(BBSname&"LockIP"),youipdress)0 then Response.Redirect "../Board/IpLock.html" end if
end if
'Response.Write Application(BBSname&"LockIP")
Function Login_EN() '登入快捷窗口
if login="Y" then
username=Request.Cookies("username")
Response.Write "舧
