购物网后台怎么连接SQL

问题描述：

这是ACCESS的CONN的原代码,我如何把它改成SQL中使用的CONN的原代码呢?希望写出具体的修改的步骤,谢谢!如果成功就给分
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="cnhwwdata\cnhww.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>

问题解答：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Dim Conn,db
Dim NowString
Dim ConnStr
'-----------------------SQL数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
NowString = "GetDate()"
SqlDatabaseName = "flv" '数据库名
SqlUsername = "lym" '用户名
SqlPassword = "lol_08" '用户密码
SqlLocalName ="22.3.7.14" '连接名（本地用local，外地用IP）
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

Sub ConnectionDatabase()
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。"
Response.End
End If
End Sub
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
'Set Newasp = Nothing
End Sub
%>
'-----------------自己修改下sql连接参数即可--------------------