usercode.asp

个人博客

<%
'**************************************************
'函数名：Checkip
'作  用：检查用户ip是否屏蔽
'参  数：无
'返回值：无
'**************************************************
sub checkip()
	dim rs
	set rs=conn.execute("select lockip from lockip where lockip='"&Request.ServerVariables("REMOTE_ADDR")&"'")
	if not (rs.bof or rs.eof) then
	Response.Write"<script language=JavaScript>"
	Response.Write"alert(""对不起！你的IP已被锁定，不能进行当前操作！"");"
	Response.Write"window.history.go(-1);"
	Response.Write"</script>"
	end if
	set rs=nothing	
end sub

'**************************************************
'函数名：Checkuserlock
'作  用：检查用户id是否屏蔽
'参  数：无
'返回值：无
'**************************************************
sub checkuserlock()
	dim rs
	set rs=conn.execute("select lockuser from [user] where username='"&username&"'")
	if rs(0)=true then
	Response.Write"<script language=JavaScript>"
	Response.Write"alert(""对不起！你的ID已被锁定，不能进行当前操作！"");"
	Response.Write"window.history.go(-1);"
	Response.Write"</script>"
	end if
	set rs=nothing	
end sub


'**************************************************
'函数名：blognow
'作  用：取得时差算法后的时间
'参  数：无
'返回值：时差算法后的时间
'**************************************************

function blognow()
dim rstime
set rstime=conn.execute("select timediff from bloginfo")
	blognow=dateadd("h",rstime(0),now())
	set rstime=nothing
end function


function findbadstr(str)
	dim rs,badstr,i
	Dim a,n
	n=0
	set rs=conn.execute("select blogFiltrate from filtrate")
	badstr=split(rs(0),"|")
	for i=0 to ubound(badstr)		
		a = InStr(1,str,badstr(i))
		Do While a > 0
			n = n + 1
			a = InStr(a + 1, str, badstr(i))
		Loop
	next
	set rs=conn.execute("select maxbadstr_num from bloginfo")
	if rs(0)>n then
		findbadstr=false
	else
		findbadstr=true
	end if	
end function

function debadstr(str)
	dim rs,badstr,i
	debadstr=str
	set rs=conn.execute("select blogFiltrate from filtrate")
	badstr=split(rs(0),"|")
	for i=0 to ubound(badstr)
	debadstr=replace(debadstr,badstr(i),"***")
	next
end function

%>