check_input.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 35 行

<%
'字符类型的
'strUsername = CheckInput(Request("username"),"s")
'数字类型的
'ID = CheckInput(Request("id"),"i")
'下面是函数
Function CheckInput(str,strType,alerm)
   '函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0
   '参数意义：  str     ---- 要过滤的参数
   '            strType ---- 参数类型，分为字符型和数字型，字符型为"s"，数字型为"i"
   '		alerm   ---- 是否提醒,0为不提醒,1为提醒
 Dim strTmp
 strTmp     = ""
 alerm=0
 If strType ="s" Then
  strTmp = Replace(Trim(str),"'","")
  	If alerm=1 then
  	response.write"<SCRIPT language=JavaScript>alert('参数" & str & "必须为字符型！请不要恶意提交,您已经被记录');"
	response.write"javascript:history.go(-1)</SCRIPT>"
	end if
 ElseIf strType="i" Then
	  If isNumeric(str)=False Then
	  	If alerm=1 then
	  	response.write"<SCRIPT language=JavaScript>alert('参数" & str & "必须为数字型！请不要恶意提交,您已经被记录');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		end if
	  str="0"
	  strTmp = str
	  Else
	  strTmp = str
	  end if
 End If
 CheckInput = strTmp
End Function
%>