inc/Function.asp

（开头部分） 18KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

<%


function htmlencode1(fString)
if fString<>"" and not isnull(fstring) then
	fString = replace(fString, "&gt;", ">")
	fString = replace(fString, "&lt;", "<")

	fString = Replace(fString, "&nbsp;", chr(32))
	fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
	fString = Replace(fString, "<BR>", CHR(10))
	htmlencode1=fString
else
	htmlencode1=""
end if
end function

function htmlencode2(fString)
if fString<>"" and not isnull(fstring) then

	fString = replace(fString, ">", ">")
	fString = replace(fString, "<", "<")

	fString = Replace(fString, chr(32), " ")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	htmlencode2=fString
else
	htmlencode2=""
end if
end function
function htmlencode3(fString)
if fString<>"" and not isnull(fstring) then

	fString = replace(fString, "&gt;", ">")
	fString = replace(fString, "&lt;", "<")

'	fString = Replace(fString, "&nbsp;", chr(32))
'	fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
'	fString = Replace(fString, "<BR>", CHR(10))
	htmlencode3=fString
else
	htmlencode3=""
end if
end function

Function DelHtml(Str1)
  Dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "(<[^>]*?>)"
  regEx.Global = True
  regEx.IgnoreCase = True
  DelHtml = replace(regEx.Replace(""&str1,""),"&nbsp;","")
End Function

Function stvalue(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
后面还有 723 行代码，购买后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。