[求助][DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝
Microsoft OLE DB Provider for SQL Server 错误 '80004005'
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。
/admin/Refresh/Function.asp，行 608
NewsSql = "Select *,NewsClass.FileExtName as ClassFileExtName,News.FileExtName as NewsFileExtName from News,NewsClass where News.ClassID=NewsClass.ClassID and News.AuditTF=1 and News.NewsID='" & NewsID & "'"
Set RsNewsObj = Conn.Execute(NewsSql)
if RsNewsObj.Eof then
Set RsNewsObj = Nothing
GetOneNewsLinkURL = ""
Exit Function
else
if RsNewsObj("HeadNewsTF") = 1 then
ReturnValue = RsNewsObj("HeadNewsPath")
else
if RsNewsObj("ParentID") <> "0" then
Set RsParentObj = Conn.Execute("Select SaveFilePath,ParentID,Domain from NewsClass where ClassID='" & RsNewsObj("ParentID") & "'")
if Not RsParentObj.Eof then
CheckRootClassIndex = 1
TempParentID = RsParentObj("ParentID")
do while Not (TempParentID = "0")
CheckRootClassIndex = CheckRootClassIndex + 1
RsParentObj.Close
Set RsParentObj = Nothing
Set RsParentObj = Conn.Execute("Select SaveFilePath,ParentID,Domain from NewsClass where ClassID='" & TempParentID & "'")
if RsParentObj.Eof then
Set RsParentObj = Nothing
Set RsNewsObj = Nothing
GetOneNewsLinkURL = ""
Exit Function
end if
TempParentID = RsParentObj("ParentID")
if CheckRootClassIndex > CheckRootClassNumber then TempParentID = "0" '防止死循环
Loop
DoMain = RsParentObj("DoMain")
RootSaveFilePath = RsParentObj("SaveFilePath")
Set RsParentObj = Nothing
基本上都是执行数据库查询的操作是出错，把它改成存储过程也没有用（有些页面使用的GetOneClassLinkURL，GetOneNewsLinkURL函数很多，执行速度慢），请问管理员怎么解决？
希望能尽快回复！！！谢谢！！！
[此贴子已经被作者于2005-8-6 17:29:05编辑过]
