📄 checkinput.asp
字号:
<%
Function CheckText(str)
Dim Chk
Dim Re,TempStr
Chk = False
If Not IsNull(Str) Then
If Instr(Str,"=")>0 or Instr(Str,"%")>0 or Instr(Str,"?")>0 or Instr(Str,"&")>0 or Instr(Str,";")>0 or Instr(Str,",")>0 or Instr(Str,"'")>0 or Instr(Str,",")>0 or Instr(Str,chr(34))>0 or Instr(Str,chr(9))>0 or Instr(Str,"$")>0 or Instr(Str,"|")>0 Then
Chk = False
Else
Chk = True
End If
Set Re=New RegExp
Re.IgnoreCase =True
Re.Global=True
Re.Pattern="(\s)"
TempStr = Re.Replace(Str,"")
TempStr = Replace(TempStr,chr(32),"")
TempStr = Replace(TempStr,"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -