inc_datconn.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#Include file="setup.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
if ms=1 then
On Error Resume Next
end if
Dim strFilePath
Dim strConnectionString	
Dim Conn
wjj="mdbjuka"   '存放数据库的文件夹，显示空间及文件大小时用到
yslj=gqml&"database\www.fyasp.com.asp" '存放数据库文件夹后台压缩、备份、还原数据库要用到
ddstrFilePath = Server.MapPath(""&yslj&"")               '/改数据库路径为您的数据库路径，如为根目录，删除“”即可/
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& ddstrFilePath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConnectionString
intMemberKey = Session("intMemberKey")              '会员ID,不要修改
%>