check.asp

来自「聊天室源码呵呵你好用~~~~~~2.0版本」· ASP 代码 · 共 119 行
ASP
119 行
<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=1000
Response.Expires=0
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
if Application("a_c_autobak_lasttime")="" then
 Application.Lock
 Application("a_c_autobak_lasttime")=sj
 Application.UnLock
end if
if Application("a_c_autobak_jg")="" then
 Application.Lock
 Application("a_c_autobak_jg")=8
 Application.UnLock
end if
jg=int(Application("a_c_autobak_jg"))
if DateDiff("h",Application("a_c_autobak_lasttime"),sj)>=jg then
 Application.Lock
 input=Application("a_c_reg_data")
 regnum=UBound(Application("a_c_reg_data"))
 Application("a_c_autobak_lasttime")=sj
 autobakfilename=Replace(sj,":","_")&".asp"
 autobakpath=Server.Mappath("autobak/"&autobakfilename)
 userdatafile=Application("a_c_userdatafile")
 Set FileOutObject=Server.CreateObject("Scripting.FileSystemObject")
 Set RegOut=FileOutObject.CreateTextFile(userdatafile)
 for i=0 to regnum
  RegOut.WriteLine input(i)
 next
 RegOut.Close
 FileOutObject.CopyFile userdatafile, autobakpath, True
 Set FileOutObject=nothing
 Application.UnLock
end if
closedoor=Application("a_c_all_closedoor")
if closedoor=1 then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：站长关闭了聊天室，操作不能完成！</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击返回</a></p></body>"
 Response.end
end if
Application.Lock
wjs=1
locknum=Application("a_c_ip_locknum")
for i=1 to locknum step 2
 if DateDiff("n",Application("a_c_ip_lock"&(i+1)),sj)>=30 then
  Application("a_c_ip_locknum")=Application("a_c_ip_locknum")-2
 else
  Application("a_c_ip_lock"&wjs)=Application("a_c_ip_lock"&i)
  Application("a_c_ip_lock"&(wjs+1))=Application("a_c_ip_lock"&(i+1))
  wjs=wjs+2
 end if
next
Application.UnLock
locknum=Application("a_c_ip_locknum")
for i=1 to locknum step 2
 if Application("a_c_ip_lock"&i)=Request.ServerVariables("REMOTE_ADDR") then
  Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
  Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：你的IP地址 <font color=#FF0000>" & Application("a_c_ip_lock"&i) & "</font> 被封锁，不能登录！</p>"
  Response.write "<p align='center'>离系统自动解锁时间还有 <font color=#FF0000>" & 30-DateDiff("n",Application("a_c_ip_lock"&(i+1)),sj) & "</font> 分钟</p>"
  Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击返回</a></p></body>"
  Response.end
 end if
next
user_ip=Request.ServerVariables("REMOTE_ADDR")
ipyjlock=Application("a_c_ip_locked")
ipk=split(user_ip,".",-1)
if Instr(ipyjlock,user_ip)<>0 or Instr(ipyjlock,"*.*.*.*")<>0 or Instr(ipyjlock,ipk(0)&".*.*.*")<>0 or Instr(ipyjlock,ipk(0)&"."&ipk(1)&".*.*")<>0 or Instr(ipyjlock,ipk(0)&"."&ipk(1)&"."&ipk(2)&".*")<>0 then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：你的IP地址 <font color=#FF0000>" & user_ip & "</font> 被永久封锁，不能登录！</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击返回</a></p></body>"
 Response.end
end if
username=Request.Form("username")
username=Trim(username)
if (Instr(username,"稻")<>0 or Instr(username,"稲")<>0) and Instr(username,"香")<>0 and username<>"稻香居士" then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：这个<font color=#FF0000>“用户名”</font>为系统所保留，不能使用。</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
 Response.end
end if
if username="大家" or username="聊天室管理员" then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：这个<font color=#FF0000>“用户名”</font>为系统所保留，不能使用。</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
 Response.end
end if
if InStr(username,"=")<>0 or InStr(username,"`")<>0 or InStr(username," ")<>0 or InStr(username,"　")<>0 or InStr(username,"'")<>0 or InStr(username,chr(34))<>0 or InStr(username,"\")<>0 or InStr(username,",")<>0 or InStr(username,"<")<>0 or InStr(username,">")<>0 then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：<font color=#FF0000>“用户名”</font>不能含有空格、<、>、=、引号、半角逗号、反斜杠等字符。</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
 Response.end
end if
if InStr(username,"奸")<>0 or InStr(username,"淫")<>0 or InStr(username,"娼")<>0 or InStr(username,"嫖")<>0 or InStr(username,"性")<>0 and InStr(username,"交")<>0 or InStr(username,"妓")<>0 or InStr(username,"色")<>0 and InStr(username,"黄")<>0 or InStr(username,"色")<>0 and InStr(username,"情")<>0 or InStr(username,"日")<>0 and InStr(username,"妈")<>0 or InStr(username,"日")<>0 and InStr(username,"妹")<>0 or InStr(username,"日")<>0 and InStr(username,"姐")<>0 or InStr(username,"日")<>0 and InStr(username,"娘")<>0 or InStr(username,"日")<>0 and InStr(username,"奶")<>0 or InStr(username,"乳")<>0 or InStr(username,"阴")<>0 or InStr(username,"操")<>0 and InStr(username,"妈")<>0 then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：<font color=#FF0000>“用户名”</font>不能含有不雅的字眼。</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
 Response.end
end if
if CStr(Server.HTMLEncode(username))<>CStr(username) then
 Response.Write "<title>登录出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=#FFCC99><p>&nbsp;</p><p align='center'>出错提示：<font color=#FF0000>“用户名”</font>含有非法字符。</p>"
 Response.write "<p align='center'><a href='javascript:history.go(-1);'>点击这里进行修改</a></p></body>"
 Response.end
end if
namelen=0
for i=1 to len(username)
 zhasc=asc(mid(username,i,1))
 if zhasc>=0 and zhasc<=32 or zhasc>=127 or InStr(username,"ㄓ")<>0 or InStr(username,"
check.asp - 源码说明

本页面展示了「聊天室源码呵呵你好用~~~~~~2.0版本」中的 check.asp 源码文件，采用 ASP 编程语言编写，共 119 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与2.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?