账号通
    

账号  

密码  

2623

查看

6

回复
主题:修改conn.asp [收藏主题] 转到:  
rzjh 当前离线

13

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:236 分
登录次数:6 次
注册时间:2006/11/14
最后登录:2006/11/17
rzjh 发表于:2006/11/15 11:54:00   | 只看该作者 查看该作者主题 楼主 

<%
Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw
Const DataBaseType=0 '系统数据库类型,"1"为MS SQL2000数据库,"0"为MS ACCESS 2000数据库
Const SysVer=1
 
If DataBaseType=0 then
 '如果是ACCESS数据库,请认真修改好下面的数据库的文件名
 DBPath       = "\KS_Data\KS_DataBase.mdb"      'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
 SqlNowString = "Now()"
Else
  '如果是SQL数据库,请认真修改好以下数据库选项
  DataServer   = "服务器iP"                                     '数据库服务器IP
  DataUser     = "数据库用户名"                               '访问数据库用户名
  DataBaseName = "数据库名称"                             '数据库名称
  DataBasePsw  = "数据库密码"                               '访问数据库密码
  SqlNowString = "getdate()"
End if

 '采集数据库路径
 CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb"

Call OpenConn
Sub OpenConn()
    On Error Resume Next
    Dim ConnStr
    If DataBaseType = 1 Then
       ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
    Else
       ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
    End If
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
    Application("ConnStr") = ConnStr
 Application("CollcetConnStr") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( CollectDBPath)
    Application("DataBaseType") = DataBaseType
 Application("SqlNowString")=SqlNowString
    Application("SysVer") = SysVer
 
End Sub
Sub CloseConn()
    On Error Resume Next
 Conn.close:Set Conn=nothing
End sub
%>

 

SQL数据库应该怎样改才对?这样行吗?请帮忙.谢谢!!就差这点了.

:):)
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
雨燕双飞 当前离线

25

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:337 分
登录次数:34 次
注册时间:2006/11/9
最后登录:2006/12/23
雨燕双飞 发表于:2006/11/20 9:08:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
Const DataBaseType=0 '系统数据库类型,"1"为MS SQL2000数据库,"0"为MS ACCESS 2000数据库
这点也要将数据库类型改为1,才能判断用什么语句进行连接
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rzjh 当前离线

13

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:236 分
登录次数:6 次
注册时间:2006/11/14
最后登录:2006/11/17
rzjh 发表于:2006/11/16 20:16:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rzjh 当前离线

13

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:236 分
登录次数:6 次
注册时间:2006/11/14
最后登录:2006/11/17
rzjh 发表于:2006/11/16 8:27:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rzjh 当前离线

13

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:236 分
登录次数:6 次
注册时间:2006/11/14
最后登录:2006/11/17
rzjh 发表于:2006/11/15 16:04:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rzjh 当前离线

13

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:236 分
登录次数:6 次
注册时间:2006/11/14
最后登录:2006/11/17
rzjh 发表于:2006/11/15 12:33:00   | 只看该作者 查看该作者主题 地板 
测试之后能买正版的.这个功能少很多:)
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
kesion 当前离线

2176

主题

0

广播

1

粉丝
添加关注
级别:高三年

用户积分:6810 分
登录次数:1247 次
注册时间:2006/2/23
最后登录:2014/9/16
kesion 发表于:2006/11/15 12:07:00   | 只看该作者 查看该作者主题 7楼 
科汛在线网校系统
如果是商业版可以咨询客服
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行6.03516秒 powered by KesionCMS 9.0