📄 function.asp
字号:
<%
if Session("isAdmin")<>true Then
Response.Write "非法闯入!"
function rd18html(fString)
if not isnull(fString) then
fString = replace(fString,">",">")
fString = replace(fString,"<","<")
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,">",">")
fString = replace(fString,"<","<")
rerd18html = fString
end if
end function
function rd18html1(fString)
if not isnull(fString) then
fString = replace(fString,">",">")
fString = replace(fString,"<","<")
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), "<BR><BR>")
fString = Replace(fString, CHR(10), "<BR>")
fString = Replace(fString," "," ")
rd18html1 = fString
end if
end function
function rd18html2(fString)
if not isnull(fString) then
fString = replace(fString,">",">")
fString = replace(fString,"<","<")
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," "," ")
rd18html2 = fString
end if
end function
function rd18html3(fString)
if not isnull(fString) then
fString = replace(fString,">","#")
fString = replace(fString,"<","@")
fString = replace(fString,">","#")
fString = replace(fString,"<","@")
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -