checkinput.asp

来自「科研及设备管理系统是一个基于WEB的网络管理信息系统」· ASP 代码 · 共 31 行

<%
	sub checkinput(inputvalue)
		dim temp,i
		dim ErrorCharacter(100)
		for i=1 to 45
			ErrorCharacter(i)=chr(i)
		next
		temp=i-1
		
		for i=59 to 63
			temp=temp+1
			ErrorCharacter(temp)=chr(i)
		next
		
		for i=91 to 96
			temp=temp+1
			ErrorCharacter(temp)=chr(i)
		next
		
		for i=123 to 128
			temp=temp+1
			ErrorCharacter(temp)=chr(i)
		next
		
		for i=1 to temp
			if instr(1,inputvalue,errorcharacter(i))>0 then
				response.redirect("error.asp?err=2")
			end if
		next
	end sub
%>