错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]用户 'sa' 登录失败。原因: 未与信任 SQL Server 连接相关联。
/try/conn/conn.asp, 第 5 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /try/second/modanddel.asp
时间：
2007年7月30日, 20:30:54
modanddel.asp
<!--#include file="../conn/conn.asp"--><!--包含文件用于数据库的连接-->
<%
set rs=createobject("ADODB.Recordset")
sql="Select ID,产品名称,单位数量,单价,库存量,订购量 from 产品"
rs.open sql,conn,1,1
pagecounter=15'每页显示的记录数
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../style/style.css" rel="stylesheet" type="text/css">
<title>修改－－删除表记录</title>
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFCC66">
<form name="form1" method="post" action="delete.asp"> <tr>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">产品名称</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单位数量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单价</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">库存量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">订购量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">修改信息</span></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="删除"></td>
</tr>
<%
pageno=request.QueryString("pageno") '使用request.QueryString集合取得参数pageno的值
rs.pagesize=pagecounter '把页面记录数赋值给Recordset对象的pagesize属性，即一页所包含的记录数
page=rs.pagecount 'rs对象包含的数据页面
if pageno="" or pageno<1 then '当取到的当前页为空或者小于1时，把页面定位在第一页
pageno=1
end if
if rs.eof or rs.bof then
response.Write"<font color=""ff0000"">此数据表没有记录!</font>"
else
rs.absolutepage=Cint(pageno) '当页面不为空时，定位到pageno页面
position=rs.PageSize*pageno '计算到当前页面总的记录数
pagebegin=position-rs.PageSize+1 '当前页面开始的记录数
if position < rs.RecordCount then
pagend=position
else
pagend= rs.RecordCount
end if
e=1
do while not rs.eof and e<=rs.pagesize '在页面中循环显示15条记录
e=e+1
%>
<tr>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("产品名称")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("单位数量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("单价")%>元</td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("库存量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("订购量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2">
<a href="modinfo.asp?MID=<%=rs("ID")%>">修改</a></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%ID=rs("ID")
response.Write"<input type=""checkbox"" name=""checkbox"" value="""& ID &""""%></td>
</tr>
<%
rs.movenext
loop
pagecounter=pagecounter-1
end if
rs.close '关闭记录集对象
set rs=nothing '释放记录集对象
conn.close '关闭数据库的连接
set conn=nothing '释放Connection对象
%>
<tr>
<td colspan="7" align="center" bgcolor="#FFFFFF" class="font2">
页次：[<%=Cint(pageno)%>/<%=page%>]
记录：[<%=Cint(pagebegin)%>至<%=pagend%>条]
<%if Cint(pageno)>1 then%>
<a href="?pageno=<%=(pageno-1)%>">[上一页]</a>
<%end if%>
<%if page>1 and Cint(pageno)<Cint(page) then%>
<a href="?pageno=<%=(pageno+1)%>">[下一页]</a>
<%end if%>
</td>
</tr>
</form>
</table>
</body>
</html>
conn.asp
]<%
dim conn,connstr
connstr="Driver={sql server};uid=sa;pwd=123456;database=data;server=sophie"
set conn=server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
