📄 xwfun.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<%
Function htmlInfo(fString)
If not isnull(fString) then
fString = Replace(fString, "日你妈", "*")
fString = Replace(fString, "法轮功", "*")
fString = Replace(fString, "狗日", "*")
fString = Replace(fString, "我操", "*")
fString = Replace(fString, "我靠", "*")
htmlInfo = fString
End If
End Function
'过滤代码
Function htmlencode(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), "</p><p>")
fString = Replace(fString, CHR(10), "<br>")
htmlencode = fString
End If
End Function
Function uhtmlencode(fString)
If not isnull(fString) then
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, "</p><p>", CHR(10) & CHR(10))
fString = Replace(fString, "<br>", CHR(10))
uhtmlencode = fString
End If
End Function
Function checkadmin()
If Session("Admin")="" Then
Response.Write "<script>alert('非法操作：用户没有登入！');this.location.href='login.asp';</SCRIPT>"
Response.End
End If
End Function
Function lickadmin()
If Session("xs_right")="1" Then
Response.Write "<script>alert('非法操作：用户没有权限！');this.location.href='left.asp';</SCRIPT>"
Response.End
End If
End Function
Function gadmin()
If Session("xs_right")="2" Then
Response.Write "<script>alert('非法操作：用户没有权限！');this.location.href='left.asp';</SCRIPT>"
Response.End
End If
End Function
%>
<BODY>
</HEAD>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -