固定资产说明书:帮我加上注释吧

<%
Dim i,text,checkpage,page,MaxPerPage,CurrentPage
Sub showpage
Response.Write "<table width='98%' border='0' cellpadding='0' cellspacing='0' align='center'>"
Response.Write "<tr> "
Response.Write "<td height='25' colspan='5' align='center'> "
Response.write "<strong>共</font>" & "<font color=#FF0000>" & Cstr(rs.RecordCount) & "</font>" & "<font color='#000000'>条记录</font></strong> "
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong> "

If currentpage > 1 Then
response.write "<strong><a href='User_LN.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='User_LN.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if

If currentpage < rs.PageCount Then
Response.write "<strong><a href='User_LN.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='User_LN.asp?page="+Cstr(rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong> "
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong> "
End if
Response.write "</td>"
Response.write "</tr></table>"
End Sub

%>