conn.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Response.Buffer = True
Session.CodePage=936
Dim Conn,StartTime,Timeset,SqlNum
Timeset=0 '时区相对东八区（北京时间）
StartTime = Timer()
SqlNum=0
Sub ConnectionDatabase
	on error resume next
	Dim Db,ConnStr
	Db="Data/94kk.asp"           '修改双引号里面数据库名称
	Set conn=Server.CreateObject("ADODB.Connection")
	ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
	Conn.Open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据连接错误!"
		Response.End
	End If
End Sub
%>