【www.gdgbn.com--安卓教程】
dim sql_injdata
SQL_injdata = "exec|insert|select|delete|update|count|*|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request(SQL_Get),Sql_Inj(Sql_DATA))>0 Then %>
<script Language=javascript>history.back(-1);</script>
<%end if
next
Next
End If
function kill_keyword(txt)
execc = "select * from kill_keyword"
set rscc = server.createobject("adodb.recordset")
rscc.open execc,conn,3,3
for ic=1 to rscc.recordcount
headk = ""
killx = ""
kill = rscc("keyword")
if len(kill)>1 then
headk = left(kill,1)
for jc=1 to len(kill)-1
killx = killx + "*"
next
else
headk=""
killx="*"
end if
txt = replace(txt,kill,headk + killx)
rscc.movenext
next
kill_keyword = txt
end function