inc_char_func.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
'===================================================================
'= ASP FILENAME	: /inc/inc_form.asp
'= CREATED TIME : AUG,21,2003
'= LAST MODIFIED: AUG,21,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 表单/字符处理函数
'= Change Log:
'===================================================================
'===================================================================
'= Function     : HTMLEncode() 
'= Time		    : Created At SEP,21,2003
'= Input        : The String That You Want To Transfer
'= Description  : Filter Some Invalid Characters Of In String
'===================================================================
Function HTMLEncode(strInStr)
	If Not Isnull(strInStr) Then
		strInStr = Replace(strInStr, ">", "&gt;")
		strInStr = Replace(strInStr, "<", "&lt;")

		strInStr = Replace(strInStr, CHR(32), "&nbsp;")
		strInStr = Replace(strInStr, CHR(9), "&nbsp;")
		strInStr = Replace(strInStr, CHR(34), "&quot;")
		strInStr = Replace(strInStr, CHR(39), "&#39;")
		strInStr = Replace(strInStr, CHR(13), "")
		strInStr = Replace(strInStr, CHR(10) & CHR(10), "</P><P> ")
		strInStr = Replace(strInStr, CHR(10), "<BR> ")

		'strInStr = ChkBadWords(strInStr)
		HTMLEncode = strInStr
	Else
		HTMLEncode = ""
	End If
End Function
'====================================================================
'= Function     : FilterHtml(str)
'= Time		    : Created At SEP,21,2003
'= Input        : The String That You Want To Filter
'= Description  : Filter Some Invalid Characters Of In String
'====================================================================
Function FilterHtml(str)
	Dim strContent
	If Trim(str) = "" Or IsEmpty(str) Or IsNull(str) Then
		FilterHtml = ""
	Else
		strContent = Replace(str,"<br>",chr(13))
		strContent = Replace(strContent,"<BR>",chr(13))
		strContent = Replace(strContent,"&nbsp;"," ")
		FilterHtml = strContent
	End If
End Function

Function HtmlEncode2(str)
	dim result
	dim l
	if isNULL(str) then
		htmlencode2=""
		exit function
	end if
	l=len(str)
	result=""
	dim i
	for i = 1 to l
		select case mid(str,i,1)
		case "<"
			result=result+"&lt;"
		case ">"
			result=result+"&gt;"
		case chr(13)
			result=result+"<br>"
		case chr(34)
			result=result+"&quot;"
		'case chr(10)
		'	result=result+"<br>"
		case "&"
			result=result+"&amp;"
		case chr(32)	
	'result=result+"&nbsp;"
			if i+1<=l and i-1>0 then
				if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	
					result=result+"&nbsp;"
				else
					result=result+" "
				end if
			else
				result=result+"&nbsp;"	
			end if
		case chr(9)
			result=result+"    "
		case else
			result=result+mid(str,i,1)
		end select
	next
	htmlencode2 = result
End Function

Function htmlEncode3(str)
	If len(str)>0 Then
		htmlEncode3=Replace(Replace(Replace(str,">","&gt;"),"<","&lt;"),"""","&quot;")
	Else
		htmlEncode3=str
	End If

End Function
Function PrintTrueText(tempString)

	If tempString<>"" Then
		PrintTrueText=Replace(Replace(Replace(Replace(Replace(htmlEncode(tempString),VbCrLf & " ","<br>" & "&nbsp;"),VbCrLf,"<br>" & VbCrLf),"   "," &nbsp; "),"  "," &nbsp;"),chr(9)," &nbsp; &nbsp; &nbsp;")

		If Left(PrintTrueText,1) = chr(32) Then
			PrintTrueText = "&nbsp;" & Mid(PrintTrueText,2)
		End If
	Else
		PrintTrueText=""
	End If

End Function

' ============================================
' 去除Html格式，用于从数据库中取出值填入输入框时
' 注意：value="?"这边一定要用双引号
' ============================================
Function inHTML(str)
	Dim sTemp
	sTemp = str
	inHTML = ""
	If IsNull(sTemp) = True Then
		Exit Function
	End If
	sTemp = Replace(sTemp, "&", "&amp;")
	sTemp = Replace(sTemp, "<", "&lt;")
	sTemp = Replace(sTemp, ">", "&gt;")
	sTemp = Replace(sTemp, Chr(34), "&quot;")
	inHTML = sTemp
End Function

'== 输入数据格式化函数
Function FmtInput(value)
	FmtInput = Trim(value)
End Function
%>