[url=http://zhidao.baidu.com/question/txedit.asp?Id=<%=oRs(]<!--#include file = "../admin/Startup.asp"-->
<html>
<head>
<title>通讯录</title>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<%
iSQL = " Select * from tongxun Order By id"
oRs.Open iSQL,oConn,1,1
if oRs.eof and oRs.bof then
Response.Write("<tr><td height=""120"" align=""center"" bgcolor=""#FFFFFF""><font
color=""red"">还没有记录...</font></td></tr>")
Response.end
else
%>
<tr>
<td height="22" colspan="4" align="center">姓名</td>
<td align="center">号 码</td>
<td align="center">通信地址</td>
<td align="center">个人爱好</td>
<td align="center">所在学校</td>
<td align="center">备 注</td>
<td align="center">班 级</td>
<td width="25%" align="center">选择操作</td>
<td width="9%" align="center">是否删除</td>
</tr>
<%
oRs.pagesize=4
nPageCount=oRs.PageCount
Currentpage=int(request.QueryString("Currentpage "))
if CurrentPage>oRs.PageCount then CurrentPage=oRs.PageCount
if CurrentPage<=0 then CurrentPage=1
oRs.absolutepage=CurrentPage
for i = 1 to oRs.pagesize
%>
<tr>
<td height="26" colspan="4" align="center" bgcolor="#FFFFFF"><%=oRs("name")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("phone")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("address")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("hobby")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("school")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("beizhu")%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("cla")%></td>
<td align="center" bgcolor="#FFFFFF"> <a href="txedit.asp?Id=<%=oRs("Id")%>">编辑</a></td>
<td align="center" bgcolor="#FFFFFF"><a href="txdel.asp?Id=<%=oRs("Id")%>" onclick="return
DelConfirm();">删除</a></td>
</tr>
<%
oRs.MoveNext
if oRs.eof then Exit for
Next
end if
%>
<tr>
<td><%Pagelink()%></td>
<td>共<%=nPageCount%>页</td>
<td>共<%=oRs.RecordCount%>条记录</td>
<%
Sub PageLink()
If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "<font color=""#CCCCCC"">上一页</font>"
Else
Response.Write "<a href="txlist.asp?Currentpage=<%=Currentpage-1%>">上一页</a>"
End If
If CurrentPage = nPageCount Then
Response.Write "<font color=""#CCCCCC"">下一页</font> "
Else
Response.Write "<a href="txlist.asp?Currentpage=<%=Currentpage+1%>">下一页</a> "
End If
If CurrentPage = nPageCount Then
Response.Write "<font color=""#CCCCCC"">未页</font> "
Else
Response.Write "<a href="txlist.asp?Currentpage=<%=nPageCount%>">未页</a>"
End If
If CurrentPage = 1 Or nPageCount=0 Then
Response.Write "<font color=""#CCCCCC"">首页</font> "
Else
Response.Write "<a href="txlist.asp?Currentpage=1">首页</a> "
End If
End sub
%>
</tr>
</table>
</body>
</html>
错误类型:
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/cxs/main/txlist.asp, line 62, column 25
Response.Write "<a href="txlist.asp?Currentpage=<%=Currentpage-1
參考答案:[/url]Response.Write " href="txlist.asp?Currentpage=<%=Currentpage-1%>">上一页</a>"
全部变成
Response.Write " href=""txlist.asp?Currentpage=<%=Currentpage-1%>"">上一页</a>"