ASP中ACCESS数据库转成SQL SERVER的链接代码,请高手帮忙看看代码！

Question

我在网上搜到代码，按照样子改了，但是总抛异常
我搜到的是修改文件连接

1. \Inc\conn.asp

修改

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

为

connstr="provider=sqloledb;data source=数据库IP;User ID=数据库用户名;pwd=数据库密码;Initial Catalog=数据库名"

2.\Admin\cai\Inc\conn.asp

修改

connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)

为
connstr="provider=sqloledb;data source=数据库IP;User ID=数据库用户名;pwd=数据库密码;Initial Catalog=数据库名"

3.\Admin\cai\Admin_Itemlaoy.asp

修改

StyleConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("laoycai.mdb")

为
StyleConn.open "provider=sqloledb;data source=数据库IP;User ID=数据库用户名;pwd=数据库密码;Initial Catalog=数据库名"

要修改的代码是
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"-->
<%
dim conn,connstr,db
dim admintable
admintable="Yao_Admin" '管理员用户表,默认表名Yao_Admin
db=""&SitePath&"data/"&DataName&""
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查Inc/Config.Asp里的数据库名称及路径是否正确。</div>"
Response.End
End If

LaoYID=Request.Cookies("Yao")("ID")
LaoYName=Request.Cookies("Yao")("UserName")
LaoYPass=Request.Cookies("Yao")("UserPass")
If LaoYID<>"" and LaoYName<>"" and LaoYPass<>"" then
set rs4 = server.CreateObject ("adodb.recordset")
sql="select * from Yao_User where id="& LaoYRequest(LaoYID) &" and PassWord='"&CheckStr(LaoYPass)&"' and UserName='"&CheckStr(LaoYName)&"'"
on error resume next
rs4.open sql,conn,1,1
mymoney=rs4("UserMoney")
username=rs4("UserName")
dengjipic=rs4("dengjipic")
dengji=rs4("dengji")
UserPass=rs4("PassWord")
rs4.close
set rs4=nothing
If UserPass<>LaoYPass or username<>LaoYName Then
LaoYID=""
LaoYName=""
LaoYPass=""
Else
IsUser=1
End if
End if

Sub ShowAD(ID)
set rsad=conn.execute("select * from Yao_AD Where ID = "&ID&"")
If Not rsad.Eof Then
If rsad("yn")=1 then
Response.Write(laoy(rsad("Content")))
End if
End if
rsad.close
set rsad=nothing
End Sub

Sub Label(ID)
set rsLabel=conn.execute("select * from Yao_Label Where ID = "&ID&"")
If ID=2 then
Response.Write(" <li>P"&"o"&"w"&"e"&"r"&"e"&"d"&" b"&"y <b>"&"l"&"a"&"o"&"y"&"8"&"!"&" <a href=""ht"&"tp:"&"/"&"/"&"ww"&"w."&"l"&"a"&"o"&"y"&"8"&".c"&"n"" target=""_blank"">"&Version&"</a><b></li>"&rsLabel("Content")&"")
else
Response.Write(rsLabel("Content"))
End if
rsLabel.close
set rsLabel=nothing
End Sub
%>

请帮忙看一下
改完之后就抛出Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查Inc/Config.Asp里的数据库名称及路径是否正确。 这句的异常
帮忙把上面的代码改一下，谢谢

Answer 1

<%
set Conn = server.createobject("adodb.connection")
'-------------使用DSN与数据库建立连接的三种方法 <用于Access数据库>--------------
'第一种方式
'conn.open "数据源名称","sa",""
'第二种方式
'conn.connectionstring="DSN=数据源名称;UID=sa;PWD=;"
'conn.open
'第三种方式
'conn.open "dsn=数据源名称;uid=sa;pwd=;"

'------------使用OLE DB字符串与数据库建立连接<用于SQL数据库>--------------
Conn.open "Provider=SQLOLEDB.1;user ID=sa;Password=;Initial Catalog=数据库名称;Data Source=(local)"

'----------------使用ODBC字符串与数据库建立连接<用于SQL数据库>-----------------
'conn.open "Driver={SQL Server};Database=数据库名称;Server=(local);UID=sa;PWD=;"
%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"-->
<%
dim conn
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=SQLOLEDB.1;user ID=sa;Password=;Initial Catalog=数据库名称;Data Source=(local)"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查Inc/Config.Asp里的数据库名称及路径是否正确。</div>"
Response.End
End If

LaoYID=Request.Cookies("Yao")("ID")
LaoYName=Request.Cookies("Yao")("UserName")
LaoYPass=Request.Cookies("Yao")("UserPass")
If LaoYID<>"" and LaoYName<>"" and LaoYPass<>"" then
set rs4 = server.CreateObject ("adodb.recordset")
sql="select * from Yao_User where id="& LaoYRequest(LaoYID) &" and PassWord='"&CheckStr(LaoYPass)&"' and UserName='"&CheckStr(LaoYName)&"'"
on error resume next
rs4.open sql,conn,1,1
mymoney=rs4("UserMoney")
username=rs4("UserName")
dengjipic=rs4("dengjipic")
dengji=rs4("dengji")
UserPass=rs4("PassWord")
rs4.close
set rs4=nothing
If UserPass<>LaoYPass or username<>LaoYName Then
LaoYID=""
LaoYName=""
LaoYPass=""
Else
IsUser=1
End if
End if

Sub ShowAD(ID)
set rsad=conn.execute("select * from Yao_AD Where ID = "&ID&"")
If Not rsad.Eof Then
If rsad("yn")=1 then
Response.Write(laoy(rsad("Content")))
End if
End if
rsad.close
set rsad=nothing
End Sub

Sub Label(ID)
set rsLabel=conn.execute("select * from Yao_Label Where ID = "&ID&"")
If ID=2 then
Response.Write(" <li>P"&"o"&"w"&"e"&"r"&"e"&"d"&" b"&"y <b>"&"l"&"a"&"o"&"y"&"8"&"!"&" <a href=""ht"&"tp:"&"/"&"/"&"ww"&"w."&"l"&"a"&"o"&"y"&"8"&".c"&"n"" target=""_blank"">"&Version&"</a><b></li>"&rsLabel("Content")&"")
else
Response.Write(rsLabel("Content"))
End if
rsLabel.close
set rsLabel=nothing
End Sub
%>

Answer 2

sql连接语句如下

<%
Const SqlDatabaseName = "数据库名"
Const SqlPassword = "数据库密码"
Const SqlUsername = "数据库用户名"
Const SqlLocalName = "数据库IP"

Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" /><div style=""font-size:12px;font-weight:bold;border:1px solid #006;padding:6px;background:#fcc"">数据连接出错</div>"
Response.End
End If
End Sub
%>

Answer 3

很显然啊，数据库路径是否正确？

Answer 4

字段不一样 我怕转换了啊，建议找专业的问问再说吧。