Question

ACCESS转SQL数据库后，conn.asp需要怎么修改

<% Option Explicit %>
<!-- #include file = "adovbs.inc" -->
<%
dim Conn, StrConn, mdbFile
Set Conn = Server.CreateObject( "ADODB.Connection" )
mdbFile = Server.MapPath( "db1.mdb" )
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile
Conn.open( StrConn )
%>

Answer 1

'必修改设置一：====定义数据库类别，1为MSSQL数据库，0为Access数据库，2为MySQL数据库====
Const IsSqlDataBase = 0
'=============================================================
'必修改设置二：====ACCESS数据库目录设置（必须为绝对地址即前后都加“/”）====
'根目录直接填写数据库目录名称即可（注意名称前后必须带上“/”，且不要使用中文名称），
'其他目录（二级、三级或多极）应在数据库目录名称前加多极目录的名称。
ACCdbPath="/databas/"
'=============================================================
If IsSqlDataBase = 1 or IsSqlDataBase = 2 Then
'必修改设置三：====SQL数据库设置====
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（外地数据库用IP地址（注意端口号），
'本地可以用(local)代替IP地址，当出现连接错误时换用IP地址一般都能解决）
Const SqlDatabaseName = "novel"
Const SqlPassword = "123"
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
Const MySQLdsn = "myodbc"
Const MySQLdriver = "3.51"
'============================================================
SqlNowString = "GetDate()"
Else
SqlNowString = "Now()"
End If
If IsSqlDataBase = 1 Then
ConnStr = "Provider=Sqloledb;User ID="&SqlUsername&";Password="&SqlPassword&"; Initial Catalog="&SqlDatabaseName&";Data Source="&SqlLocalName&";"
Elseif IsSqlDataBase = 0 Then
sitidata = "#data#bas.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&ACCdbPath&sitidata&"")
Elseif IsSqlDataBase = 2 Then
ConnStr = "dsn=" & MySQLdsn & ";driver={mySQL ODBC " & MySQLdriver & " driver};database=" & SQLDatabaseName & ";server=" & SQLLocalName & ";uid=" & loginName & ";pwd=" & loginPassword & ";OPTION=3;stmt=SET NAMES 'GB2312';CharSet=gb2312"
End If
' On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
Set Conn = Nothing
Response.Write "主数据库连接出错，请检查根目录中数据库连接文件的连接设置。<br>"
Response.Write Err.Description
Response.End
err.Clear
End If
'-----------------------------------------------------------------------------------------------------

Answer 2

用于连接SQL数据库的代码应该这样:
连接字符串以及解释如下:
connstr="driver={SQL Server};server=(local);uid=sa;pwd=sa;database=Your database"
语法介绍：
(1)、driver={SQL Server};始终为这个形式，不变
(2)、server：可以是local、你计算机的IP、计算机的名称中的任意一个
(3)、uid：登陆SQL的用户名
(4)、pwd：登陆SQL的密码
(5)、database：要连接的数据库名称。
然后再声明连接对象:
set conn=Server.Createobject("adodb.connection")
然后用Open方法打开连接
conn.open connstr
按着上面写的改成你的sql数据库的相关信息就可以了