Question

刚下载了一个ASP网站代码 发现数据库连接出错

2003企业版，IIS6.0 SQL2000+SP4补丁，完了后打开提示这个，翻了几个小时百度无果，代码如下
<!--#include file="include/maisos_sql.asp"-->
<!--#include file="include/function.asp"-->
<%
On Error Resume Next
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
dim pany,ConnStr
'修改以下信息以适合你的网站

'---------------------------------------------------------------------------
dbuid=(Application("maisos")) '数据库登陆名/此为新版本,请修改Global.asa
dbpwd=(Application("alangong")) '数据库密码/此为新版本,请修改Global.asa
dbname=(Application("ssc1")) '数据库名称/此为新版本,请修改Global.asa
dbip=(Application("local")) '数据库所在的IP地址，如果是本地数据库则为："(local)"/此为新版本,请修改Global.asa
'---------------------------------------------------------------------------
session.timeout=600
set conn=Server.CreateObject("adodb.Connection")
'conn.open "driver=sql server;server="&dbip&";uid="&dbuid&";password="&dbpwd&";database="&dbname&";"
ConnStr="driver={sql server};server="&dbip&";uid="&dbuid&";pwd="&dbpwd&";database="&dbname&""
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

Set pany = Server.CreateObject("panynetcn.Myclass")
pany.domainname=get_domainname()
'pany.Lottery_panycheck()

%> 真能解决问题，本人可追加20财富
标题错误，应该是本地测试 提示数据库连接出错，请检查连接字串

Answer 1

dbuid=(Application("maisos")) '数据库登陆名/此为新版本,请修改Global.asa
dbpwd=(Application("alangong")) '数据库密码/此为新版本,请修改Global.asa
dbname=(Application("ssc1")) '数据库名称/此为新版本,请修改Global.asa
dbip=(Application("local")) '数据库所在的IP地址，如果是本地数据库则为："(local)"/此为新版本,请修改Global.asa

他这个写的很明了，修改Global.asa这个文件。
dbuid=(Application("maisos"))
dbpwd=(Application("alangong"))
dbname=(Application("ssc1"))

你的数据名和密码等都是通过传值的。所以你要在Global.asa里找到变量名里面的值修改成你自己的数据名和密码等。

Answer 2

配置global.asa文件