关于数据库读出的问题

ty20080903 2009-06-08 11:24:16

我编了一个读出数据库的asp代码，但是调用时总显示：
Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'CStr'

/viewPage.asp, line 31

asp代码如下


<HTML>
<HEAD><TITLE>显示报修记录</TITLE></HEAD>
<BODY>
<%
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from baoxiu",conn,1,3
rs.PageSize = 10
'读取参数
page = CLng(Request.QueryString("page"))
'处理无效页码
If page < 1 Then
page = 1
End If
If page > rs.PageCount Then
page = rs.PageCount
End If
'设置当前页
rs.AbsolutePage = page
%>
<h2 align="center">报修记录</h2>
<BR> 当前页码：<%=page%>/<%=rs.PageCount%>
<BR>
<table border="1" width="100%">
<tr> <td bgcolor="#C0C0C0"> 报修号</td> <td bgcolor="#C0C0C0"> 报修题目 </td> <td bgcolor="#C0C0C0"> 报修人 </td> <td bgcolor="#C0C0C0"> 报修时间 </td><td bgcolor="#C0C0C0"> 报修人电话 </td><td bgcolor="#C0C0C0"> 报修类型 </td><td bgcolor="#C0C0C0"> 地址 </td><td bgcolor="#C0C0C0"> 报修内容 </td> <td bgcolor="#C0C0C0"> 回复 </td> <td bgcolor="#C0C0C0"> 维修状态 </td> </tr>
<%
For i = 1 To rs.PageSize
varNo = (page - 1) * rs.PageSize + i
'在表格中显示字段值
Response.Write("<tr> <td> " & rs.Fields(0).Value & "</td> <td>" & CStr(rs.Fields(1).Value) & "</td> <td>" & CStr(rs.Fields(2).Value) & "</td> <td>" & CStr(rs.Fields(3).Value) &"</td> <td>" & CStr(rs.Fields(4).Value) & "</td> <td>" & CStr(rs.Fields(5).Value) & "</td> <td>" & CStr(rs.Fields(6).Value) & "</td> <td>" & CStr(rs.Fields(7).Value) & "</td> <td>" & CStr(rs.Fields(8).Value) & "</td> <td>" & CStr(rs.Fields(9).Value) & "</td> </tr>")
rs.MoveNext
'如果已经到达记录集结尾，则退出循环
If rs.EOF Then Exit For
Next
Response.Write("</table><BR>")

'设置“第一页”链接
If page = 1 Then
Response.Write("第一页 ")
Else
Response.Write(" <a href=viewPage.asp?page=1>第一页</a> ")
End If
'设置“上一页”链接
If page = 1 Then
Response.Write(" 上一页 ")
Else
Response.Write(" <a href=viewPage.asp?page=" & page-1 & ">上一页</a> ")
End If
'设置“下一页”链接
If page = rs.PageCount Then
Response.Write(" 下一页 ")
Else
Response.Write(" <a href=viewPage.asp?page=" & page+1 & ">下一页</a> ")
End If
'设置“最后一页”链接
If page = rs.PageCount Then
Response.Write(" 最后一页 ")
Else
Response.Write(" <a href=viewPage.asp?page=" & rs.PageCount &">最后一页</a> ")
End If
rs.Close
If rs.State = 0 Then
End If
Set rs = nothing
%>
</BODY>

...全文