数据可以写入就是不能执行
<P>不知道为什么,数据可以写入就是不能执行! 搞了几天都不知道那里有问题!特意来这里找高手帮忙!跪谢!!<br>我说的意思,在后台可以写入数据到库内,但是就是不能执行,打个比方,我的是音乐网站.比如我在后台本来已经设置了,某一个IP不能访问,但是依然可以.在后台已经禁止注册了,但是还是可以注册,禁止了游客不能视听歌曲但是,依然可以听!<br>这个是限制IP的<br><%<br> Set rs=Server.CreateObject("Adodb.RecordSet") <br> sql="select * from noip order by id desc"<br> rs.Open sql,conn,1,1<br>%><br><br><br>这个是连接数据库的<br><br><%</P><P><br>'--------定义部份------------------<br>Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr<br>'自定义需要过滤的字串,用 "心情设计" 分隔<br>Fy_In = "'心情设计and心情设计exec心情设计insert心情设计select心情设计delete心情设计update心情设计count心情设计*心情设计%心情设计chr心情设计mid心情设计master心情设计truncate心情设计char心情设计declare"<br>'----------------------------------<br>%></P>
<P><%<br>Fy_Inf = split(Fy_In,"凌乱设计")<br>'--------POST部份------------------<br>If Request.Form<>"" Then<br>For Each Fy_Post In Request.Form</P>
<P>For Fy_Xh=0 To Ubound(Fy_Inf)<br>If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then<br>'--------写入数据库----------头-----<br>Fy_dbstr="DBQ="+server.mappath("../data/*.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"<br>Set Fy_db=Server.CreateObject("ADODB.CONNECTION")<br>Fy_db.open Fy_dbstr<br>Fy_db.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')")<br>Fy_db.close<br>Set Fy_db = Nothing<br>'--------写入数据库----------尾-----</P>
<P>Response.Write "<Script Language=JavaScript>alert('心情设计SQL通用防注入系统提示↓\n\n请不要在参数中包含非法字符尝试注入！\n\nhttp://www.123.cn');</Script>"<br>Response.Write "非法操作！系统做了如下记录↓<br>"<br>Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"<br>Response.Write "操作时间："&Now&"<br>"<br>Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"<br>Response.Write "提交方式：ＰＯＳＴ<br>"<br>Response.Write "提交参数："&Fy_Post&"<br>"<br>Response.Write "提交数据："&Request.Form(Fy_Post)<br>Response.End<br>End If<br>Next</P>
<P>Next<br>End If<br>'----------------------------------</P>
<P>'--------GET部份-------------------<br>If Request.QueryString<>"" Then<br>For Each Fy_Get In Request.QueryString</P>
<P>For Fy_Xh=0 To Ubound(Fy_Inf)<br>If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then<br>'--------写入数据库----------头-----<br>Fy_dbstr="DBQ="+server.mappath("../data/*.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"<br>Set Fy_db=Server.CreateObject("ADODB.CONNECTION")<br>Fy_db.open Fy_dbstr<br>Fy_db.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")<br>Fy_db.close<br>Set Fy_db = Nothing<br>'--------写入数据库----------尾-----</P>
<P>Response.Write "<Script Language=JavaScript>alert('紫轩K吧SQL通用防注入系统提示↓\n\n请不要在参数中包含非法字符尝试注入！\n\nhttp://www.123.cn');</Script>"<br>Response.Write "非法操作！系统做了如下记录↓<br>"<br>Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"<br>Response.Write "操作时间："&Now&"<br>"<br>Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"<br>Response.Write "提交方式：ＧＥＴ<br>"<br>Response.Write "提交参数："&Fy_Get&"<br>"<br>Response.Write "提交数据："&Request.QueryString(Fy_Get)<br>Response.End<br>End If<br>Next<br>Next<br>End If<br>%><%<br> connstr="DBQ="+server.mappath("../data/*.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"<br> set conn=server.createobject("ADODB.CONNECTION")<br> conn.open connstr <br>%></P>
[align=right][color=#000066][此贴子已经被作者于2007-8-14 15:31:18编辑过][/color][/align]
页:
[1]