function.asp

一个asp写的论坛源代码,论坛所需要的功能都有

<%
	'论坛公用函数
    Public Function CodeCookie(Str)
		If set_cookies = 1 Then
			Dim i
			Dim StrRtn
			For i = Len(Str) To 1 Step -1
				StrRtn = StrRtn & AscW(Mid(Str, i, 1))
				If (i <> 1) Then StrRtn = StrRtn & "a"
			Next
			CodeCookie = StrRtn
		Else
			CodeCookie = Str
		End If
    End Function
    Public Function DecodeCookie(Str)
		If set_cookies = 1 Then
			Dim i
		    Dim StrArr, StrRtn
			StrArr = Split(Str, "a")
			For i = 0 To UBound(StrArr)
				If IsNumeric(StrArr(i)) = True Then
				    StrRtn = ChrW(StrArr(i)) & StrRtn
			    Else
				    StrRtn = Str
				    Exit Function
				End If
			Next
			DecodeCookie = StrRtn
		Else
			DecodeCookie = Str
		End If
    End Function
	'输出字符串并换行
    Function Echo(Str)
		Response.Write Str & VbCrlf
	End Function
	'分页判断
	Function CheckNum(ByVal strStr,ByVal blnMin,ByVal blnMax,ByVal intMin,ByVal intMax)
		Dim i,s,iMi,iMa
		s=Left(Trim(""&strStr),32):iMi=intMin:iMa=intMax
		If IsNumeric(s) Then
			i=CDbl(s)
			i=IIf(blnMin=1 And i<iMi,iMi,i)
			i=IIf(blnMax=1 And i>iMa,iMa,i)
		Else
			i=iMi
		End If
		CheckNum=i
	End Function
	'**************************************************
	'函 数 名：CID
	'作    用：转换为有效的 ID
	'返回值类型：Integer (>=0)
	'**************************************************
	Function CID(strS)
		Dim intI
		intI = 0
		If IsNull(strS) Or strS = "" Then
			intI = 0
		Else
			If Not IsNumeric(strS) Then
				intI = 0
			Else
				Dim intk
				On Error Resume Next
				intk = Abs(Clng(strS))
				If Err.Number = 6 Then intk = 0  ''数据溢出
				Err.Clear
				intI = intk
			End If
		End If
		CID = intI
	End Function

	'**************************************************
	'函 数 名：HRF
	'作    用：转换为有效的 Request参数并过虑
	'返回值类型：过虑后的字符
	'**************************************************
	Function HRF(a,b,c)
		Dim Str
		Select Case a
			Case 1
				Str = Request.Form(c)
			Case 2
				Str = Request.QueryString(c)
			Case 3
				Str = Request.Cookies(c)
			Case Else
				Str = Request(c)
		End Select
		Select Case b
			Case 1
				Str = HtmlEncode(str)
			Case 2
				Str = CID(str)
		End Select
		HRF = Str
	End Function
	'判断用户名
	Function IstrueName(uName)
		Dim Hname,i
		IstrueName = False
		Hname = Array("=","%",chr(32),"?","&",";",",","'",",",chr(34),chr(9),"