conn.asp

详细说明在文件 程序说明： ☆ 中英文双语版 ☆ 后台在同一页内同时管理添加修改资料内的中英文内容 ☆ 网站的左边栏使用了模块,可以自由的增加&删除 ☆ 可以不用修改代码,

<%
dim sql_injdata,SQL_inj,SQL_Get,SQL_Data
SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|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(ucase(Request.QueryString(SQL_Get)),ucase(Sql_Inj(Sql_DATA)))>0 Then 
Response.Write "<Script Language=javascript>alert('请不要在参数中包含非法字符尝试注入！');history.back(-1)</Script>" 
Response.end 
end if 
next 
Next 
End If 

'check end
%>

<%
dim conn
dim connstr
dim db
db="../Database/#liangjing_demo.asa" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>