[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
windowsxp+iis5.0+金蝶电子政务+mysql5.0,怎么会出现这样的错误,登陆界面可以打开,登陆后就是这样的,请问是什么原因错误类型:MicrosoftOL...
windows xp+iis5.0+金蝶电子政务+mysql5.0,怎么会出现这样的错误,登陆界面可以打开,登陆后就是这样的,请问是什么原因
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
/dzzw/default.asp, 第 31 行
<%
'强行使用IP进行访问
if Request.ServerVariables("SERVER_NAME")<>Request.ServerVariables("LOCAL_ADDR") then
Url="http://"&Request.ServerVariables("LOCAL_ADDR")&left(Request.ServerVariables("PATH_INFO"),instrrev(Request.ServerVariables("PATH_INFO"),"/") )
Response.Redirect Url
End if
uid = request("uid")
pwd = request("pwd")
DataBase= request("DataBase")
DataBase= "oa20"
FpValue=Request.Form ("FpValue")
if DataBase<>"" then
Response.Cookies("_DataBase")=DataBase
Response.Cookies("_DataBase").Expires = "July 31, 2005"
Response.Cookies("_DataBase").Path = "/"
Response.Cookies("_pwd")=pwd
Response.Cookies("_pwd").Expires = "July 31, 2005"
Response.Cookies("_pwd").Path = "/"
Response.Cookies("_uid")=uid
Response.Cookies("_uid").Expires = "July 31, 2005"
Response.Cookies("_uid").Path = "/"
end if
以下省略!
if (pwd <> "" and uid <> "") or (uid<>"" and FpValue="Y") then
if DataBase<>"" then
Session( "_dbConn" ) = "driver={SQL Server};server=beyond;uid=sa;pwd=123456;database="&DataBase
set cn = server.CreateObject("adodb.connection")
cn.Open Session("_dbConn")
else
set reg = server.CreateObject("reg.regreader.1")
company = reg.Company
loginName = reg.LoginName
password = reg.Password
serverName = reg.server
if loginName = "" then loginName = "sa"
if serverName = "" then serverName = "(local)"
Session( "_dbConn" ) = "driver={SQL Server};server=" & serverName & ";uid=" & loginName & ";pwd=" & password & ";database=jdoa20"
Application("_dbConn") = "driver={SQL Server};server=" & serverName & ";uid=" & loginName & ";pwd=" & password & ";database=jdoa20"
set cn = server.CreateObject("adodb.connection")
cn.Open Application("_dbConn")
End if 展开
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
/dzzw/default.asp, 第 31 行
<%
'强行使用IP进行访问
if Request.ServerVariables("SERVER_NAME")<>Request.ServerVariables("LOCAL_ADDR") then
Url="http://"&Request.ServerVariables("LOCAL_ADDR")&left(Request.ServerVariables("PATH_INFO"),instrrev(Request.ServerVariables("PATH_INFO"),"/") )
Response.Redirect Url
End if
uid = request("uid")
pwd = request("pwd")
DataBase= request("DataBase")
DataBase= "oa20"
FpValue=Request.Form ("FpValue")
if DataBase<>"" then
Response.Cookies("_DataBase")=DataBase
Response.Cookies("_DataBase").Expires = "July 31, 2005"
Response.Cookies("_DataBase").Path = "/"
Response.Cookies("_pwd")=pwd
Response.Cookies("_pwd").Expires = "July 31, 2005"
Response.Cookies("_pwd").Path = "/"
Response.Cookies("_uid")=uid
Response.Cookies("_uid").Expires = "July 31, 2005"
Response.Cookies("_uid").Path = "/"
end if
以下省略!
if (pwd <> "" and uid <> "") or (uid<>"" and FpValue="Y") then
if DataBase<>"" then
Session( "_dbConn" ) = "driver={SQL Server};server=beyond;uid=sa;pwd=123456;database="&DataBase
set cn = server.CreateObject("adodb.connection")
cn.Open Session("_dbConn")
else
set reg = server.CreateObject("reg.regreader.1")
company = reg.Company
loginName = reg.LoginName
password = reg.Password
serverName = reg.server
if loginName = "" then loginName = "sa"
if serverName = "" then serverName = "(local)"
Session( "_dbConn" ) = "driver={SQL Server};server=" & serverName & ";uid=" & loginName & ";pwd=" & password & ";database=jdoa20"
Application("_dbConn") = "driver={SQL Server};server=" & serverName & ";uid=" & loginName & ";pwd=" & password & ";database=jdoa20"
set cn = server.CreateObject("adodb.connection")
cn.Open Application("_dbConn")
End if 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询