btbbs_fun.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<%
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 "<center><table width=743><tr><td>舧