从别人那考来的网站源码
在我的机器上就是不能连接数据库
高手来帮我看看
IIS已经配置好
Conn.asp
<!--#include file="../Include/Const.Asp" -->
<!--#include file="data_name.asp"-->
<%
Response.Buffer=True
Db = "D:\Projects\test\data\#Database.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
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
On Error GoTo 0
%>
<!--#include file="sql.asp"-->
<!--#include file="spiderbot.asp"-->
<%
set rs=conn.execute("select * from setup ")
if rs("webclose")=true then
response.write "<div align='center' style='font-size:30px; color:#FF0000;'><br /><br /><br />"&rs("webclosewhy")&"</div>"
response.end
end if
rs.close
set rs=nothing
%>
<!--#include file="config.asp"-->
ConnSiteData.asp
<!--#include file="Function1.Asp" -->
<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
If IsDatabaseType = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & DEF_SQLusername & "; Password = " & DEF_SQLpassword & "; Initial Catalog = " & DEF_SQLdatabase & "; Data Source = " & DEF_SQLserver & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysRootDir&""&SiteDataPath&"/"&SiteDataAccess&"")
End If
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write QianboChLanguage1
Response.End
End If
%>
data_name.asp
<%
Session.CodePage=65001'指定编码
'Server.ScriptTimeout=500'设置脚本超时时间，秒
data_name = "/data/#Database.mdb"'网站数据库路径
%>
数据库在/data/下
如果需要源码 我可以上传源码 解答
本版专家分：0结帖率 100%
版主本版专家分：200109
