inc_datconn.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<!--#Include file="setup.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
'数据库类型，1为sql数据库，0为access数据库
is_sqldata=1
'是否使用其他系统的数据库用户表,1为使用，0为不使用
Const is_ot_user=0 

if ms=1 then           '是否输出错误信息，1为不输出
On Error Resume Next
end if

Dim connstr
Dim Conn
If is_sqldata=0 Then
'access数据库连接参数
ddstrFilePath = Server.MapPath(""&bbdbpath&"")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& ddstrFilePath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open connstr
Else
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
		Dim sql_databasename,sql_password,sql_username,sql_localname
		sql_localname = "127.0.0.1"
		sql_databasename = "gq.fyasp.com"
		sql_username = "gq.fyasp.com"
		sql_password = "gq.fyasp.com"
		connstr = "Provider = Sqloledb; User ID = " & sql_username & "; Password = " & sql_password & "; Initial Catalog = " & sql_databasename & "; Data Source = " & sql_localname & ";"
	Set conn=Server.CreateObject("ADODB.connection")
	conn.open connstr
End If
intMemberKey = Session("intMemberKey")              '会员ID,不要修改
	rem ****若使用外部数据库表请自行修改下面的变量值****
	If is_ot_user=1 then 
		ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb") 'access外部数据库连接字符串
		'ot_connstr = "Provider = Sqloledb; User ID = ***; Password = ***; Initial Catalog = ***; Data Source = ***;" 'sql外部数据库连接字符串
		Set ot_conn = Server.CreateObject("ADODB.Connection")
		ot_conn.open ot_connStr '外部数据库连接
		ot_usertable="dv_user" '用户表名
		ot_username="username" '用户名字段
		ot_password="userpassword" '密码字段
		ot_regurl="../bbs/reg.asp" '注册用户链接
		ot_modIfypass1="../bbs/modIfyadd.asp?t=1" '修改密码连接
		ot_modIfypass2="../bbs/modIfyadd.asp?t=1" '修改密码提示问题连接
		ot_lostpasswordurl="../bbs/lostpass.asp" '找回密码链接
	End If
	If err then
		err.clear
		Set conn = nothing
		response.write "数据库连接出错，请检查连接字串。"
		response.End
	End If
%>