|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。Apache ASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。函数 <%
function sqlcheck(Str,errtype)
if Instr(LCase(Str),"select ") > 0 or Instr(LCase(Str),"insert ") > 0 or Instr(LCase(Str),"delete ") > 0 or Instr(LCase(Str),"delete from ") > 0 or Instr(LCase(Str),"count(") > 0 or Instr(LCase(Str),"drop table") > 0 or Instr(LCase(Str),"update ") > 0 or Instr(LCase(Str),"truncate ") > 0 or Instr(LCase(Str),"asc(") > 0 or Instr(LCase(Str),"mid(") > 0 or Instr(LCase(Str),"char(") > 0 or Instr(LCase(Str),"xp_cmdshell") > 0 or Instr(LCase(Str),"exec master") > 0 or Instr(LCase(Str),"net localgroup administrators") > 0 or Instr(LCase(Str),"and ") > 0 or Instr(LCase(Str),"net user") > 0 or Instr(LCase(Str),"or ") > 0 then
Response.write("<script language=javascript>" & vbcrlf & "window.location.href ='ShowError.asp?errtype=" & errtype & "'" & vbcrlf & "</script>")
Response.End
end if
Str=WordStr(Str,"_","") '过滤SQL注入_
Str=WordStr(Str,"*","") '过滤SQL注入*
Str=WordStr(Str," ","") '过滤SQL注入空格
Str=WordStr(Str,chr(34),"") '过滤SQL注入"
Str=WordStr(Str,chr(39),"") '过滤SQL注入'
Str=WordStr(Str,chr(91),"") '过滤SQL注入[
Str=WordStr(Str,chr(93),"") '过滤SQL注入]
Str=WordStr(Str,chr(37),"") '过滤SQL注入%
Str=WordStr(Str,chr(58),"") '过滤SQL注入:
Str=WordStr(Str,chr(59),"") '过滤SQL注入;
Str=WordStr(Str,chr(43),"") '过滤SQL注入+
Str=WordStr(Str,"{","") '过滤SQL注入{
Str=WordStr(Str,"}","") '过滤SQL注入}
sqlcheck=Str '前往经由下面字符交换后的Str
end function
%>
</p> 强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业; 通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|