function.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 76 行

<%
if Session("isAdmin")<>true Then
Response.Write "非法闯入！"
function rd18html(fString)
if not isnull(fString) then
	fString = replace(fString,">","&gt;")
	fString = replace(fString,"<","&lt;")
	fString = replace(fString,CHR(34),"")
	fString = Replace(fString,CHR(39),"")
	fString = replace(fString,"＄","")
	fString = Replace(fString,"＃","")
	fString = Replace(fString,"＠","")
	rd18html = fString
end if
end function

function rerd18html(fString)
if not isnull(fString) then
	fString = replace(fString,"&gt;",">")
	fString = replace(fString,"&lt;","<")
	rerd18html = fString
end if
end function

function rd18html1(fString)
if not isnull(fString) then
	fString = replace(fString,">","&gt;")
	fString = replace(fString,"<","&lt;")
	fString = Replace(fString,CHR(32),"&nbsp;")
	fString = Replace(fString,CHR(9),"&nbsp;")
	fString = Replace(fString,CHR(34),"")
	fString = Replace(fString,CHR(39),"")
	fString = Replace(fString,CHR(13),"")
	fString = Replace(fString, CHR(10) & CHR(10), "<BR><BR>")
	fString = Replace(fString, CHR(10), "<BR>")
	fString = Replace(fString," ","&nbsp;")
	rd18html1 = fString
end if
end function

function rd18html2(fString)
if not isnull(fString) then
	fString = replace(fString,">","&gt;")
	fString = replace(fString,"<","&lt;")
	fString = Replace(fString,CHR(32),"&nbsp;")
	fString = Replace(fString,CHR(9),"&nbsp;")
	fString = Replace(fString,CHR(34),"")
	fString = Replace(fString,CHR(39),"")
	fString = Replace(fString,CHR(13),"")
	fString = Replace(fString, CHR(10) & CHR(10), "")
	fString = Replace(fString,CHR(10),"")
	fString = Replace(fString," ","&nbsp;")
	rd18html2 = fString
end if
end function

function rd18html3(fString)
if not isnull(fString) then
	fString = replace(fString,">","＃")
	fString = replace(fString,"<","＠")
	fString = replace(fString,"&gt;","＃")
	fString = replace(fString,"&lt;","＠")
	fString = Replace(fString,CHR(32),"＄")
	fString = Replace(fString,CHR(9),"＄")
	fString = Replace(fString,CHR(34),"")
	fString = Replace(fString,CHR(39),"")
	fString = Replace(fString,CHR(13),"")
	fString = Replace(fString, CHR(10) & CHR(10), "")
	fString = Replace(fString,CHR(10),"")
	fString = Replace(fString," ","＄")
	rd18html3 = fString
end if
end function
%>