articlechar.inc

一个简单的留言板

<%
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 "&"
	                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 Smile(fString)
	fString = replace(fString, "[:(!]", "<img src=img/icon_smile_angry.gif border=0 align=middle>")
	fString = replace(fString, "[B)]", "<img src=img/icon_smile_blackeye.gif border=0 align=middle>")
	fString = replace(fString, "[xx(]", "<img src=img/icon_smile_dead.gif border=0 align=middle>")
	fString = replace(fString, "[XX(]", "<img src=img/icon_smile_dead.gif border=0 align=middle>")
	fString = replace(fString, "[:I]", "<img src=img/icon_smile_blush.gif border=0 align=middle>")
	fString = replace(fString, "[:(]", "<img src=img/icon_smile_sad.gif border=0 align=middle>")
	fString = replace(fString, "[:o]", "<img src=img/icon_smile_shock.gif border=0 align=middle>")
	fString = replace(fString, "[:O]", "<img src=img/icon_smile_shock.gif border=0 align=middle>")
	fString = replace(fString, "[:0]", "<img src=img/icon_smile_shock.gif border=0 align=middle>")
	fString = replace(fString, "[|)]", "<img src=img/icon_smile_sleepy.gif border=0 align=middle>")
	fString = replace(fString, "[:)]", "<img src=img/icon_smile.gif border=0 align=middle>")
	fString = replace(fString, "[:D]", "<img src=img/icon_smile_big.gif border=0 align=middle>")
	fString = replace(fString, "[}:)]", "<img src=img/icon_smile_evil.gif border=0 align=middle>")
	fString = replace(fString, "[:o)]", "<img src=img/icon_smile_clown.gif border=0 align=middle>")
	fString = replace(fString, "[:O)]", "<img src=img/icon_smile_clown.gif border=0 align=middle>")
	fString = replace(fString, "[:0)]", "<img src=img/icon_smile_clown.gif border=0 align=middle>")
	fString = replace(fString, "[8)]", "<img src=img/icon_smile_shy.gif border=0 align=middle>")
	fString = replace(fString, "[8D]", "<img src=img/icon_smile_cool.gif border=0 align=middle>")
	fString = replace(fString, "[:P]", "<img src=img/icon_smile_tongue.gif border=0 align=middle>")
	fString = replace(fString, "[:p]", "<img src=img/icon_smile_tongue.gif border=0 align=middle>")
	fString = replace(fString, "[;)]", "<img src=img/icon_smile_wink.gif border=0 align=middle>")
	fString = replace(fString, "[8]", "<img src=img/icon_smile_8ball.gif border=0 align=middle>")
	fString = replace(fString, "[?]", "<img src=img/icon_smile_question.gif border=0 align=middle>")
	fString = replace(fString, "[^]", "<img src=img/icon_smile_approve.gif border=0 align=middle>")
	fString = replace(fString, "[V]", "<img src=img/icon_smile_dissapprove.gif border=0 align=middle>")
	fString = replace(fString, "[v]", "<img src=img/icon_smile_dissapprove.gif border=0 align=middle>")
	fString = replace(fString, "[:X]", "<img src=img/icon_smile_kisses.gif border=0 align=middle>")
	fString = replace(fString, "[:x]", "<img src=img/icon_smile_kisses.gif border=0 align=middle>")
	Smile = fString
end function

function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
	fOTagPos = Instr(1, fString, fCTag, 1)
	fCTagPos = Instr(1, fString, fCTag, 1)
	while (fCTagPos > 0 and fOTagPos > 0)
		fString = replace(fString, fOTag, fROTag)
		fString = replace(fString, fCTag, fRCTag)
		fOTagPos = Instr(1, fString, fOTag, 1)
		fCTagPos = Instr(1, fString, fCTag, 1)
	wend
	doCode = fString
end function

Function ReplaceUrls(fString)
	Dim oTag, c1Tag, c2Tag
	Dim roTag, rc1Tag, rc2Tag
	Dim oTagPos, c1TagPos, c2TagPos
	Dim nTagPos
	Dim counter2
	Dim strArray, strArray2, strArray3

    oTag   = "[url=&quot;"
    oTag2  = "[url]"
    roTag  = "<a href="""
    c1Tag  = "&quot;]"
    c1Tag2 = "[/url]"
    rc1Tag = """ target=""_New"">"
    c2Tag  = "[/url]"
    rc2Tag = "</a>"
    oTagPos = InStr(1, fString, oTag, 1)
    c1TagPos = InStr(1, fString, c1Tag, 1)
   
strTempString = ""
if (oTagpos > 0) and (c1TagPos > 0) then
	strArray = Split(fString, oTag, -1)

	for counter2 = 0 to UBound(strArray)
		if (InStr(1, strArray(counter2), c2Tag, 1) > 0) and (InStr(1, strArray(counter2), c1Tag, 1) > 0) then
			strArray2 = Split(strArray(counter2), c1Tag, -1)
			if Instr(1, strArray2(1), c2Tag) and  not( Instr(1, UCase(strArray2(1)), "[URL]") >0) then 
				strFirstPart = Left(strArray2(1), Instr(1, strArray2(1),c2Tag)-1)
				strSecondPart = Right(strArray2(1), (Len(strArray2(1)) - Instr(1, strArray2(1), c2Tag) - len(c2Tag)+1))
				if strFirstPart <> "" then
					strTempString = strTempString & roTag & strArray2(0) & rc1Tag & strFirstPart & rc2Tag & strSecondPart
				else
					strTempString = strTempString & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strSecondPart
				end if
			else
				strTempString = strTempString & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
			end if
		elseif (InStr(1, strArray(counter2), c1Tag, 1) > 0) then
			strArray2 = Split(strArray(counter2), c1Tag, -1)
			strTempString = strTempString & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
		else
			strTempString = strTempString & strArray(counter2)
		end if
	next

else
	strTempString = fString
end if

oTagPos2 = InStr(1, strTempString, oTag2, 1)
c1TagPos2 = InStr(1, strTempString, c1Tag2, 1)

if (oTagpos2 > 0) and (c1TagPos2 > 0) then
 	strTempString2 = ""
 	strArray = Split(strTempString, oTag2, -1)
 	for counter3 = 0 to Ubound(strArray)
 		if (Instr(1, strArray(counter3), c1Tag2) > 0) then
 			strArray2 = split(strArray(counter3), c1Tag2, -1)
 			strTempString2 = strTempString2 & roTag & strArray2(0) & rc1Tag & strArray2(0) & rc2Tag & strArray2(1)
 		else
 			strTempString2 = strTempString2 & strArray(counter3)
 		end if	
 	next  
 	strTempString = strTempString2
end if

	ReplaceUrls = strTempString


End Function

function ChkString(fString)
fString = doCode(fString, "[b]", "[/b]", "<b>", "</b>")
		fString = doCode(fString, "[s]", "[/s]", "<s>", "</s>")
		fString = doCode(fString, "[strike]", "[/strike]", "<s>", "</s>")
		fString = doCode(fString, "[u]", "[/u]", "<u>", "</u>")
		fString = doCode(fString, "[i]", "[/i]", "<i>", "</i>")
		fString = doCode(fString, "[red]", "[/red]", "<font color=red>", "</font id=red>")
			fString = doCode(fString, "[yellow]", "[/yellow]", "<font color=yellow>", "</font id=yellow>")
			fString = doCode(fString, "[pink]", "[/pink]", "<font color=pink>", "</font id=pink>")
			fString = doCode(fString, "[green]", "[/green]", "<font color=green>", "</font id=green>")
			fString = doCode(fString, "[orange]", "[/orange]", "<font color=orange>", "</font id=orange>")
			fString = doCode(fString, "[purple]", "[/purple]", "<font color=purple>", "</font id=purple>")
			fString = doCode(fString, "[blue]", "[/blue]", "<font color=blue>", "</font id=blue>")
		    fstring = docode(fstring, "[beige]", "[/beige]", "<font color=#ccaa00>","</font>")
			fString = doCode(fString, "[brown]", "[/brown]", "<font color=brown>", "</font id=brown>")
            fstring = docode(fstring, "[teal]","[/teal]","<font color=teal>","</font>")
            fstring = docode(fstring, "[navy]","[/navy]","<font color=#000088>","</font>")
			fString = doCode(fString, "[black]", "[/black]", "<font color=black>", "</font id=black>")

'			fString = doCode(fString, "[white]", "[/white]", "<font color=white>", "</font id=white>")
'			fString = doCode(fString, "[violet]", "[/violet]", "<font color=violet>", "</font id=violet>")

'			fString = doCode(fString, "[gold]", "[/gold]", "<font color=gold>", "</font id=gold>")

			fString = doCode(fString, "[h1]", "[/h1]", "<h1>", "</h1>")
			fString = doCode(fString, "[h2]", "[/h2]", "<h2>", "</h2>")
			fString = doCode(fString, "[h3]", "[/h3]", "<h3>", "</h3>")
			fString = doCode(fString, "[h4]", "[/h4]", "<h4>", "</h4>")
			fString = doCode(fString, "[h5]", "[/h5]", "<h5>", "</h5>")
			fString = doCode(fString, "[h6]", "[/h6]", "<h6>", "</h6>")
			fString = doCode(fString, "[size=1]", "[/size=1]", "<font size=1>", "</font id=size1>")
			fString = doCode(fString, "[size=2]", "[/size=2]", "<font size=2>", "</font id=size2>")
			fString = doCode(fString, "[size=3]", "[/size=3]", "<font size=3>", "</font id=size3>")
			fString = doCode(fString, "[size=4]", "[/size=4]", "<font size=4>", "</font id=size4>")
			fString = doCode(fString, "[size=5]", "[/size=5]", "<font size=5>", "</font id=size5>")
			fString = doCode(fString, "[size=6]", "[/size=6]", "<font size=6>", "</font id=size6>")
			fString = doCode(fString, "[list]", "[/list]", "<ul>", "</ul>")
			fString = doCode(fString, "[list=1]", "[/list=1]", "<ol type=1>", "</ol id=1>")
			fString = doCode(fString, "[list=a]", "[/list=a]", "<ol type=a>", "</ol id=a>")
			fString = doCode(fString, "[*]", "[/*]", "<li>", "</li>")
			fString = doCode(fString, "[left]", "[/left]", "<div align=left>", "</div id=left>")
			fString = doCode(fString, "[center]", "[/center]", "<center>", "</center>")
			fString = doCode(fString, "[centre]", "[/centre]", "<center>", "</center>")
			fString = doCode(fString, "[right]", "[/right]", "<div align=right>", "</div id=right>")
			fString = doCode(fString, "[code]", "[/code]", "<pre id=code><font face=courier size=" & strDefaultFontSize & " id=code>", "</font id=code></pre id=code>")
			fString = doCode(fString, "[quote]", "[/quote]", "<BLOCKQUOTE id=quote><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote>quote:<hr height=1 noshade id=quote>", "<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & " id=quote>")
			'fString = doCode(fString, "[url", "[/url]", "<a>", "</a>")
			fString = replace(fString, "[br]", "<br>", 1, -1, 1)
			fString = doCode(fString, "[img]","[/img]","<img src=""",""" border=0>")
				fString = doCode(fString, "[image]","[/image]","<img src=""",""" border=0>")
				fString = doCode(fString, "[img=right]","[/img=right]","<img align=right src=""",""" id=right border=0>")
				fString = doCode(fString, "[image=right]","[/image=right]","<img align=right src=""",""" id=right border=0>")
				fString = doCode(fString, "[img=left]","[/img=left]","<img align=left src=""",""" id=left border=0>")
				fString = doCode(fString, "[image=left]","[/image=left]","<img align=left src=""",""" id=left border=0>")

chkstring=fstring
	end function
	
	function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end if

end function
%>