麻烦懂ASP的高手来看一下

[hf86547405]

我的地址是：http://www.bsln.cn/index.asp

但是一访问就是查询数据的时候发现错误，请检查您的查询代码是否正确。。我把那个CONFIG。ASP代码发上来。各位帮看看那个里不对

<%@ codepage=936%>
<%

Option Explicit
Response.Buffer = True
Response.ContentType = "text/html"
Response.Charset = "GB2312"
const webdir="/" '网站的路径
const cookies_name="bixin" 'cookies的前缀
Const MsxmlVersion = ".3.0"
'设置自定义验证码生成文件路径,相对博客站点根目录,一般改文件名即可.
Const IncCodePath = "inc/code.asp"
'================================================================================================================
const IsSqlDataBase=1

dim DbPath,Conn,ConnStr,oa,rs
set oa=new cls_bixin


If IsSqlDataBase = 1 Then

Const SqlDatabaseName = "taojin688"
Const SqlPassword = "86547405"
Const SqlUsername = "652864"
Const SqlLocalName = "locl"
'================================================================================================================
'SqlNowString = "GetDate()"
Else
'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp
DbPath = webdir&"database/database.mdb"
'================================================================================================================
End If

Sub ConnectionDatabase
If IsSqlDataBase = 1 Then
' ConnStr="Driver={SQL Server};Server=locl;UID=652864;PWD=86547405;database=taojin688;"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
'connstr="provider=sqloledb;data source=locl;User ID=652864;pwd=86547405;Initial Catalog=taojin688"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbPath)

End If
'response.Write(connstr)
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
End Sub

'response.write "积分回复中！请各位玩家稍等！"
'response.end()

if isempty(application("dicepl")) then
Application.Lock
application("dicepl")=oa.dicepl(6,16)
Application.UnLock
end if


if isempty(application("numpl")) then
Application.Lock
application("numpl")=oa.numpl(10,28)
Application.UnLock
end if


if isempty(application("ballpl")) then
Application.Lock
application("ballpl")=oa.ballpl(16,40)
Application.UnLock
end if

%>
<!--#include file="cls_bixin.asp"-->
<!--#include file="cls_mem.asp"-->

[lzp4881]

Const SqlLocalName = "locl"
改成
Const SqlLocalName = "(local)"

[hf86547405]

回楼上的不是这个原因。。也试过了

[lzp4881]

Const SqlLocalName = "locl"
肯定是不对的，可能还有其它问题
你把conn.open connstr
注释掉，看看报什么错

[lzp4881]

错了，是把On Error Resume Next 注释掉

[hf86547405]

[Quote=引用 4 楼 lzp4881 的回复:]
Const SqlLocalName = "locl"
肯定是不对的，可能还有其它问题
你把conn.open connstr
注释掉，看看报什么错
[/Quote]

还是一样的问题```

[hf86547405]

[Quote=引用 5 楼 lzp4881 的回复:]
错了，是把On Error Resume Next 注释掉
[/Quote]

同样的错误

[lzp4881]

那再看看查询页面的代码

[hf86547405]

我也不清楚查询页面是那个文件。大哥

[hf86547405]

忘记说了。。数据库是SQL2005。。。SQL2005个2000一起共用下