conn.asp

asp无限分类之源码！适合于新手！ 这是一个实例！

<%
''''--------防注函数------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
''''自定义需要过滤的字串,用 "防" 分隔
Fy_In = "''''防;防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防<防>防=防|防-防_"
Fy_Inf = split(Fy_In,"防")
If Request.Form<>"" Then
	For Each Fy_Post In Request.Form	
		For Fy_Xh=0 To Ubound(Fy_Inf)
		   If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
			  Response.Write "<Script Language=JavaScript>alert(''''防注射程序已经启动'''');</Script>"
			  Response.Write "您的操作我已经给您做下了纪录<br>"
			  Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
			  Response.Write "操作时间:"&Now&"<br>"
			  Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
			  Response.Write "提交方式:Post<br>"
			  Response.Write "提交参数:"&Fy_Post&"<br>"
			  Response.Write "提交数据:"&Request.Form(Fy_Post)
			  Response.End
		   End If
		Next
	Next
End If
If Request.QueryString<>"" Then
	For Each Fy_Get In Request.QueryString
		For Fy_Xh=0 To Ubound(Fy_Inf)
			If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
				Response.Write "<Script Language=JavaScript>alert(''''防注射程序已经启动'''');</Script>"
				Response.Write "您的操作我已经给您做下了纪录<br>"
				Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
				Response.Write "操作时间:"&Now&"<br>"
				Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
				Response.Write "提交方式:Get<br>"
				Response.Write "提交参数:"&Fy_Get&"<br>"
				Response.Write "提交数据:"&Request.QueryString(Fy_Get)
				Response.End
			End If
		Next
	Next
End If


DB="Data/Bn365.mdb"
Response.Buffer=True
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.MapPath("Data"))=false then
   DB="../"&DB
end if
set fso=nothing
on error resume next
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
conn.Open connstr
%>
<!--#include file="Inc/Fuction.asp"-->
<!--#include file="Inc/md5.asp"-->