conn.asp

私密信息系统-PrivNote System v20080719 很好用的大家试试看

<%
'==================以下为个性设置部分==================
Dim NoteJiaMi,username,pass,servername,fromemail,sysName,isSQL

'------------------系统全局设置------------------
sysName = "《私密信息系统-PrivNote.Net System》"'系统自定义名称
sysURL = "http://PrivNote.Net/"'系统网址（如果是下层目录请一同加入，如：http://PrivNote.Net/sys/）
ICPNO = "闽ICP备********号"'网站ICP备案号
NoteJiaMi = "0"'（等于0不加密信息内容；等于1加密信息内容）
isSQL = "0"'是否使用MSSQL2000数据库（0使用Access，1使用MSSQL2000）

'------------------系统邮件设置------------------
username = "[e-mail]" '登录邮件服务器的用户名
pass = "********" '登录邮件服务器的密码
servername = "smtp.test.cn" '邮件服务器地址
fromemail = "[e-mail]" '发件人地址

'------------------SQL数据库信息设置------------------
SQLuser = "sqlusername"'SQL数据库用户名
SQLpsw = "********"'SQL数据库密码
SQLname = "PrivNote"'SQL数据库名
SQLadd = "127.0.0.1"'SQL数据库服务器地址（本机可使用"127.0.0.1"）

'------------------Access数据库路径设置------------------
AccessADD = "DATA\Global.asa"'（默认Access数据库文件名Global.asa可防止被http下载因此建议不要改名，DATA数据库目录名建议要修改。）
'==================以上为个性设置部分==================

'==================以下是数据库连接字符串 请勿随意修改==================
Dim MM_CONN_STRING
if isSQL = "1" Then
MM_CONN_STRING = "Provider = Sqloledb; User ID = "&SQLuser&"; Password = "&SQLpsw&"; Initial Catalog = "&SQLname&"; Data Source = "&SQLadd&";"
Elseif isSQL = "0" Then
MM_conn_STRING = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(AccessADD)
End if
'==================以上是数据库连接字符串 请勿随意修改==================
%>