conn.asp

FLASH吧网站源码 v2.0栏目版： 功能不是很强大

<%
Dim XiaoGe,Conn
XiaoGe="../xgdata/flash.mdb"        '数据库
On Error Resume Next
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&XiaoGe&"")
If Err Then
err.Clear
Response.Write "对不起！数据库连接出错，请检查连接字串"
Set conn=Nothing
Response.End
End If
%>