麻烦各位大侠帮我看一下如下test.asp测试代码:总是连接不上server 2000数据库,因为我自己装了iis,然后数据库文件test_data.mdf放在Data目录下,(test.asp与Data放在同等位置上)。我安装2000时是用windows验证的,用户名和密码是本系统用户。但是运行test.asp时,只显示"您好!" ,而要查询的内容却没有显示出来。系统没有提示任何错误。谢谢大家。
<%
dim aConn ,aoRs,assql
dim connstr Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="administrator" '您的登录帐号
StrSaPwd="***" '您的登录密码
StrDbName="Data/test_Data.MDF" '您的数据库名称
on error resume next
connstr="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set aConn = Server.CreateObject("ADODB.Connection") aConn.Open connstr
If Err.Number > 0 Then
response.Write("数据库连接出错")
response.End()
end if
%>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>sql数据库测试</title>
</head><body>
<%response.buffer=false%>
<% set aoRs=Server.CreateObject("ADODB.RecordSet")
assql="select top 1 * from test"
aoRs.open assql,aConn,1,1
%>
<table width="780" border="0">
<tr>
<td><%=trim(aoRs("title"))%>您好!</td>
</tr>
</table>
<%
set aoRs=nothing
aoRs.close
%>
</body>
</html>
<%
dim aConn ,aoRs,assql
dim connstr Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="administrator" '您的登录帐号
StrSaPwd="***" '您的登录密码
StrDbName="Data/test_Data.MDF" '您的数据库名称
on error resume next
connstr="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set aConn = Server.CreateObject("ADODB.Connection") aConn.Open connstr
If Err.Number > 0 Then
response.Write("数据库连接出错")
response.End()
end if
%>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>sql数据库测试</title>
</head><body>
<%response.buffer=false%>
<% set aoRs=Server.CreateObject("ADODB.RecordSet")
assql="select top 1 * from test"
aoRs.open assql,aConn,1,1
%>
<table width="780" border="0">
<tr>
<td><%=trim(aoRs("title"))%>您好!</td>
</tr>
</table>
<%
set aoRs=nothing
aoRs.close
%>
</body>
</html>
dim aConn ,aoRs,assql
dim connstr Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="administrator" '您的登录帐号
StrSaPwd="***" '您的登录密码 ,你是密码是 "***" 这个吗?
StrDbName="test_Data" '您的数据库名称
on error resume next
connstr="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set aConn = Server.CreateObject("ADODB.Connection") aConn.Open connstr
If Err.Number > 0 Then
response.Write("数据库连接出错")
response.End()
end if
%>
<html>
<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title> sql数据库测试 </title>
</head> <body>
<%response.buffer=false%>
<% set aoRs=Server.CreateObject("ADODB.RecordSet")
assql="select top 1 * from test"
aoRs.open assql,aConn,1,1
%>
<table width="780" border="0">
<tr>
<td> <%=trim(aoRs("title"))%> 您好! </td>
</tr>
</table>
<%
set aoRs=nothing
aoRs.close
%>
</body>
</html>
建一个.udl文件,双击这个文件,在图形界面下测试连接成功后,把.udl文件中的连接串copy进去。