conn.asp

许愿望源码许愿树成长过程树苗树枝叶开发结果

<%
Dim title,url,forjj_pwd,forjj_DB,Conn
title="Forjj Wish Lin"
url="Www.Forjj.Com"
forjj_pwd="adminjj"
forjj_DB="_forjj_DB.asp"
On Error Resume Next
set conn=server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&forjj_DB&"")
If Err Then
err.Clear
Response.Write "对不起！数据库连接出错，请检查连接字串"
Set conn=Nothing
Response.End
End If
%>