源码论坛,商业源码下载,尽在锦尚中国商业源码论坛

标题: 请问临沂市场信息网CMS8.0怎样绑定域名 [打印本页]

作者: jiaxin1123 时间: 2009-9-9 10:57
标题: 请问临沂市场信息网CMS8.0怎样绑定域名
我在网上下载个临沂市场信息网CMS8.0，但是提示数据库连接出错，请检查连接字串。
我知道要绑定域名的但是不知道怎样绑定请问大家怎样绑定？？？

作者: jilikeji 时间: 2009-9-9 17:03
<%@ LANGUAGE = VBScript CodePage = 936%>

<%
'本程序作者：中国蓝狐[QQ54083049]
'官方网站：快网科技[www.kuaiwww.com]
'如果您商用，请联系购买正版，本程序受法律保护
'尊重劳动，享受服务，售后跟踪支持
%>
<%
Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
If err.number<>0 Then
Response.Write(err.description)
Response.End()
End If
On Error Resume Next
Dim Startime,Conn
Dim SqlString
Dim ConnStr
Startime = Timer()
'主数据
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & Dbname)
On error Resume Next
Set conn = server.createObject("ADODB.Connection")
conn.open ConnStr
if err Then
err.clear
Set Conn = nothing
response.Write "数据库连接出错，请检查连接字串。"
response.end
end if
'//-------------------------------------------------------------
'IP地址
Set CiP=server.createobject("ADODB.CONNECTION")
costr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & LastMdbName)
CiP.open costr
if err Then
err.clear
Set CiP = nothing
response.Write "数据库连接出错，请检查连接字串。" response.end
end if
Sub CloseConn()
Conn.close
set Conn=nothing
Cip.close
set CiP=nothing
End Sub
%>

作者: jiaxin1123 时间: 2009-9-10 15:22
找个这个了，请问怎样修改？？？

作者: wuzi 时间: 2009-9-11 10:07
连接数据库代码如果正确的话，估计是你的IIS的权限问题

欢迎光临源码论坛,商业源码下载,尽在锦尚中国商业源码论坛 (https://bbs.52jscn.com/)