谁帮我注释下ASP的代码

<%
dim ii
ii=0
sql="select * from bgmusic where file <> null order by id desc"
set rsnews=server.createobject("adodb.recordset")
rsnews.open sql,conn,1,1
if rsnews.eof then
Response.Write "</td></tr></table></td></tr></table>"
end if
IF Not rsnews.eof Then
proCount=rsnews.recordcount
rsnews.PageSize=10
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rsnews.PageCount then
rsnews.AbsolutePage=rsnews.PageCount
intCurPage=rsnews.PageCount
elseif ToPage<=0 then
rsnews.AbsolutePage=1
intCurPage=1
else
rsnews.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rsnews.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i

<%
dim ii '定义
ii=0 '赋值
sql="select * from bgmusic where file <> null order by id desc" ‘定义sql字符串
set rsnews=server.createobject("adodb.recordset") 创建实例对象
rsnews.open sql,conn,1,1 只读方式打开表，语句就是sql那个字符串
if rsnews.eof then 是不是到记录末尾，也就是有没有记录
Response.Write "</td></tr></table></td></tr></table>"
end if
IF Not rsnews.eof Then 如果有记录
proCount=rsnews.recordcount 记录总数
rsnews.PageSize=10 定义每页显示条数
if not IsEmpty(Request("ToPage")) then 获取的页码参数是不是空
ToPage=CInt(Request("ToPage")) 转换一下页码类型，防止字符串
if ToPage>rsnews.PageCount then 页码是不是大于最大页码
rsnews.AbsolutePage=rsnews.PageCount 当前绝对页码
intCurPage=rsnews.PageCount 总页数
elseif ToPage<=0 then 判断页码合理性
rsnews.AbsolutePage=1
intCurPage=1
else
rsnews.AbsolutePage=ToPage ’同上
intCurPage=ToPage