www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/inc_char_func.asp
<% '=================================================================== '= 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, ">", ">") strInStr = Replace(strInStr, "<", "<") strInStr = Replace(strInStr, CHR(32), " ") strInStr = Replace(strInStr, CHR(9), " ") strInStr = Replace(strInStr, CHR(34), """) strInStr = Replace(strInStr, CHR(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," "," ") 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+"<" case ">" result=result+">" case chr(13) result=result+"<br>" case chr(34) result=result+""" 'case chr(10) ' result=result+"<br>" case "&" result=result+"&" case chr(32) 'result=result+" " 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+" " else result=result+" " end if else result=result+" " 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,">",">"),"<","<"),"""",""") Else htmlEncode3=str End If End Function Function PrintTrueText(tempString) If tempString<>"" Then PrintTrueText=Replace(Replace(Replace(Replace(Replace(htmlEncode(tempString),VbCrLf & " ","<br>" & " "),VbCrLf,"<br>" & VbCrLf)," "," ")," "," "),chr(9)," ") If Left(PrintTrueText,1) = chr(32) Then PrintTrueText = " " & 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, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, Chr(34), """) inHTML = sTemp End Function '== 输入数据格式化函数 Function FmtInput(value) FmtInput = Trim(value) End Function %>