第1个回答 2010-12-02
<%
sQLServerName = "127.0.0.1" 'IP地址
SQLDBUserName = "sa" '帐号
SQLDBPassword = "123456" '密码
SQLDBName = "shopname" '数据库
'数据库连接
On Error Resume Next '容错声明
response.buffer=true
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"Provider=sqloledb;user id="&SQLDBUserName&";password="&SQLDBPassword&";initial catalog="&SQLDBName&";data source="&SQLServerName&";"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If
%>
建一个conn.asp文件,加入链接代码 ;
然后再需要的页面引入 这个文件 就可以了本回答被网友采纳
第3个回答 2010-12-04
新建个conn.asp内容如下:
<%
'on Error Resume Next
Dim DataIP,LoginUser,LoginPass,DatabaseName,connstr
Set conn = Server.CreateObject("ADODB.Connection")
DataIP = "数据库所在IP"
LoginUser = "用户名"
LoginPass = "密码"
DatabaseName = "数据库名"
connstr = "Provider=SQLOLEDB"
connstr = connstr & ";Data Source ="&DataIP
connstr = connstr & ";User ID="&LoginUser
connstr = connstr & ";Password="&LoginPass
connstr = connstr & ";Initial Catalog ="&DatabaseName&";"
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "<br><br><br><br><table align='center'><tr><td align='center'><font color='#FF0000' size=2>对不起,数据连接错误!</font><br><br><font face=Tahoma size=5>Sorry ! The DataBase Connection ERROR</font></td></tr><tr><td align='center'><br><br><font size=2>请将问题反馈给管理员,谢谢</font></td></tr></table>"
Response.End
End If%>
然后在想用数据库的页里最上方加 <!--#include file="conn.asp"-->这句调用。
其它的就是正常asp语法了。