代码注解

[xk8023ppt]

<%
openDB
sql = "Select id, ZhuTi, KaiShiTime,JieShuTime,Counts,ShiFou"&_
" from titles order by id desc"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.open sql,conn,1,1 '数据库的链接
rst.pagesize=5 '设置一页显示多少条记录
if not rst.eof then
pageno=request("pageno")
if Not IsNumeric(pageno) or pageno="" then
pageno=1
else
pageno=cint(pageno)
end if
rst.absolutepage=pageno
else
pageno=0
end if

if not rst.eof then
for i=1 to rst.pagesize%>
<tr bgcolor=#F0F0F0>
<td align=center><a href=modify.asp?mdfid=<%=rst("id")%>>修改</a>
<a href=do.asp?action=delvote&delid=<%=rst("id")%>
onclick="javaScript:return confirm('您确定删除？')">删除</a>
</td>
<td> <a href=counteshow.asp?Tid=<%=rst("id")%>><%=rst("ZhuTi")%></a>
</td>

<td> <%=rst("KaiShiTime")%>
</td>
<td> <%=rst("JieShuTime")%>
</td>

</tr>
<%rst.movenext
if rst.EOF then Exit For
next
end if
%>
<tr bgcolor=#F0F0F0>
<td colspan="5" align="right">
<%=page(rst.pagecount,pageno,"admin.asp",5)%></td>

帮我注解下这几句话

[xk8023ppt]

没了？？能不能详细点啊

[sumjor]

注解那几句话？？

[xk8023ppt]

if not rst.eof then
pageno=request("pageno")
if Not IsNumeric(pageno) or pageno="" then
pageno=1
else
pageno=cint(pageno)
end if
rst.absolutepage=pageno
else
pageno=0
end if

if not rst.eof then
for i=1 to rst.pagesize%>
<tr bgcolor=#F0F0F0>
<td align=center> <a href=modify.asp?mdfid= <%=rst("id")%>>修改 </a>
<a href=do.asp?action=delvote&delid= <%=rst("id")%>
onclick="javaScript:return confirm('您确定删除？')">删除 </a>
</td>
<td>  <a href=counteshow.asp?Tid= <%=rst("id")%>> <%=rst("ZhuTi")%> </a>
</td>

<td>  <%=rst("KaiShiTime")%>
</td>
<td>  <%=rst("JieShuTime")%>
</td>

</tr>
<%rst.movenext
if rst.EOF then Exit For
next
end if
%>
这几句注解下

[sumjor]

if not rst.eof then 如果存在
pageno=request("pageno")
if Not IsNumeric(pageno) or pageno="" then
pageno=1
else
pageno=cint(pageno)
end if
rst.absolutepage=pageno
else
pageno=0
end if

if not rst.eof then
for i=1 to rst.pagesize%> 定义分页
<tr bgcolor=#F0F0F0>
<td align=center> <a href=modify.asp?mdfid= <%=rst("id")%>>修改 </a>
<a href=do.asp?action=delvote&delid= <%=rst("id")%>
onclick="javaScript:return confirm('您确定删除？')">删除 </a>
</td>
<td>  <a href=counteshow.asp?Tid= <%=rst("id")%>> <%=rst("ZhuTi")%> </a>
</td>

<td>  <%=rst("KaiShiTime")%>
</td>
<td>  <%=rst("JieShuTime")%>
</td>

</tr>
<%rst.movenext
if rst.EOF then Exit For
next
end if
%>
循环