yd_guestbook_conn.asp

是个不错的留言版

<%
dim guestbook_conn,connstr,guestbook_db,G_NowString
'定义留言本数据库类别，1为SQL数据库，0为Access数据库
Const guestData = 0
If guestData = 0 Then
	'第一次使用请更改数据库的名字
	guestbook_db="YD_plus/YD_plus_data/guest.mdb"
	G_NowString = "Now()"
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(guestbook_db)
	'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(guestbook_db)
elseif guestData = 1 Then
	Dim guestSqlData,guestSqlPass,guestSqlUser,guestSqlLocal
	guestSqlData = "YD_plus_date"			'数据库名(guestSqlData)
	guestSqlPass = "YD_plus_date"			'用户密码(guestSqlPass)
	guestSqlUser = "YD_plus_date"			'用户名(guestSqlUser)
	guestSqlLocal = "(local)"			'连接名(guestSqlLocal)（本地用local，外地用IP）
	G_NowString = "GetDate()"
	connstr = "Provider = Sqloledb; User ID = " & guestSqlUser & "; Password = " & guestSqlPass & "; Initial Catalog = " & guestSqlData & "; Data Source = " & guestSqlLocal & ";"
End If

On Error Resume Next
Set guestbook_conn = Server.CreateObject("ADODB.Connection")
guestbook_conn.Open connstr
If Err Then
	err.Clear
	guestbook_conn.close
	Set guestbook_conn = Nothing
	Response.Write "留言本数据库连接出错，请检查连接字串。"
	Response.End
End If
%>