<%@ Language=VBScript %> <% On Error Resume Next dim conn dim connstr dim db db="data\dfff.asp" '改成你的数据库地址 Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") '如果你的服务器采用较老版本Access驱动,请用下面连接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr showdiary="5" '每页显示日记数 adminname="admin" '改成你的超级管理员名称 adminpassword="tttt9" '改成你的密码 bgcolor="#ffffff" %>
欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/) | Powered by Discuz! 7.2 |