inc.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="conn.asp"--><!--#include file="inc/fun.asp"-->
<%
dim lgname,lgpwd,lguserid,lgcook,lgtype,usertype,bd,id,ip,adminbd,grade,totable,getadminbd,i,idrs,idtype,idtop,idhits,bn,allbbs,allthebbs,style,stylename,thebbslink,thebbslink2

set rs=conn.execute("select bbsinfo from config")
bbsinfo=rs("bbsinfo")
bbsinfo=split(bbsinfo,"|")

ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip = "" then ip=Request.ServerVariables("remote_addr")

if instr(ip,"'")>0 then ip="0.0.0.0"

lockedIpCheck()

dim rec,passpwd

Function checkpwd(str)
	checkpwd=true
	If str <> "" Then
		set rec = New RegExp
		rec.Global = True
		rec.IgnoreCase = True
		rec.Pattern="[^A-Za-z#0-9]"
		passpwd=rec.Test(str)
	end if
	if len(str)<>16 then checkpwd=false
	if passpwd then checkpwd=false
end function

function checkname(str)
	checkname=true
	if Instr(str,"=")>0  or Instr(str,"%")>0 or Instr(str,chr(32))>0  or Instr(str,"?")>0 or Instr(str,"&")>0 or Instr(str,";")>0 or Instr(str,",")>0  or Instr(str,"'")>0 or Instr(str,".")>0 or Instr(str,chr(34))>0 or Instr(str,chr(9))>0  or Instr(str,"