conn.asp

来自「功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私」· ASP 代码 · 共 18 行

<%
'数据库链接字符串
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("asp/###！￥%diary.asp")
'connstr="DRIVER={SQL Server};SERVER=zxf;UID=sa;PWD=123;DATABASE=master"
conn.open connstr
if err.number <> 0 then
	Response.Write("连接数据库出错！请与管理员联系")
	Response.end
end if

Function CloseDataConn
  conn.close
  set conn = Nothing
end Function
%>