UC知道关于网站源代码的问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 11:52:00
网站源代码有下面语句：<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) > 是什么意思呢？还有
Function CheckStr(byVal ChkStr)
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,"'","''")
Str = replace(Str,"&","&")
Str = replace(Str,chr(34),""")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
CheckStr=Str
End Function
这个函数是什么意思呢？希望给个详细说明。谢谢！
Function CheckStr(byVal ChkStr)
Dim Str:Str=ChkStr
Str=Trim(Str)
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,"'","''")
Str = replace(Str,"&","&")
Str = replace(Str,chr(34),""")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
CheckStr=Str
End Function
这个函数是什么意思呢？希望给个详细说明。谢谢！
这是一个字符串过滤方法.
Dim Str:Str=ChkStr 把传递过来的字符串放入 Str 变量中.
Str=Trim(Str) 去掉字符中开始与结尾的空格
If IsNull(Str) Then
CheckStr = ""
Exit Function 跳出这个方法
end if 如果处理后的字符串为空则赋值 CheckStr 变量为空字符串
Str = Replace(Str,"'","''") 将字符串中的 ' 号换成 " 号
Str = replace(Str,"&","&") 同上
Str = replace(Str,chr(34),""")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<") 这一段是对字符进行处理的语句.
最后 CheckStr=Str 把Str的值赋给 CheckStr.