?? function.asp
字號:
<%
function th(str)
str=replace(str,"fuck","")
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = Replace(str, CHR(32), " ")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(10) & CHR(10), "</P><P>")
str = Replace(str, CHR(10), "<BR>")
str = left(str,150)
th=str
end function
function th2(str)
str=replace(str,"fuck","")
str = replace(str, ">", ">")
str = replace(str, "<", "<")
str = Replace(str, CHR(32), " ")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(10) & CHR(10), "</P><P>")
str = Replace(str, CHR(10), "<BR>")
th2=str
end function
function CovHtml(content)
ON ERROR RESUME NEXT
CovHtml=content
if not isnull(content) then
CovHtml=replace(CovHtml,"&","&")
CovHtml=replace(CovHtml,"<","<")
CovHtml=replace(CovHtml,">",">")
CovHtml=replace(CovHtml,chr(34),""")
CovHtml=replace(CovHtml,chr(39),"'")
end if
if Err.Number <>0 then
CovHtml= "CovHtml轉換中出錯請聯系管理員<br>"
Err.Clear
end if
end function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -