conn.asp

更新说明： 1.修复SQL注入 2.防止数据库被恶意下载

<!--#include file="f_sql.asp"-->
<%
dim conn
dim connstr
dim db
db="data/850518.mdb" '--------------------------修改数据库名字
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'
Response.End
End If
sub close_conn
conn.close
set conn=nothing
end sub
%>