七彩课堂[网页设计ASP.NET教程系列]
ACCESS转SQL数据库后
     ACCESS转SQL数据库后,conn.asp需要怎么修改
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="data/db1.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 "数据库连接出错,请检查数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
你那是连ACCESS的代码,我给你连SQL的代码,如下:
SqlDatabaseName="数据库名" 'SQL使用的数据库名,请修改为你在SQL在的使用数据库名
SqlPassword="密码" '密码,请修改为你在SQL的据库名用户密码
SqlUsername="用户名" '用户名,请修改为你在SQL据库名的用户名
SqlLocalName="192.168.1.3" '服务器名,请修改为你主机中SQL的服务器名
'-----------------------------------------------------------------------------------------------------
connstr="driver={SQL Server};server="&SqlLocalName&"; uid="&SqlUsername&";pwd="&SqlPassword&"; database="&SqlDatabaseName&";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确!</div>"
Response.End
End If
 
信息推荐
资讯中心 | 电子商务 | 搜索营销 | 设计学院 | 中医养生 | 养生保健 | 节日祝福 | 民俗文化 | 奇闻趣事
建站知识 | 人世百态 | 网站导航 | 传统节日 | 搜索热点 | 星座运势 | 趣闻轶事 | 祝福的话 | 短信大全
© 2023 QicaiSpace.Com