武林浩荡1.8118掌:ASP编程！请高手来看一下。请在代码后写上每一句的意思。解决以后我加高分！

if lm=1 or lm="" then
response.write""&ttop&"<table class=TDBG9 align=center class=tableBorder1 border=1 bordercolor="&c1&" cellpadding=0 cellspacing=0 style='border-collapse: collapse' width="&tbw&" ><tr><td class=td1 width='100%' bgcolor='"&c1&"' background='"&tbg&"' height='26'> <img src='pic/gl.gif' border='0'> 论坛联盟 [ <a href=# onclick=openscript('linkreg.asp') title=自助联盟><SPAN style='CURSOR: hand'>自助联盟</span></a> ]</td></tr><tr><td width=100% height=40><p style='margin: 5'><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=100% ><tr>"
if thebbslink="" then
dim showlink,td
set rs=conn.execute("select*from bbslink where new=0")
td=1
do while not rs.eof
td=td+1
if checknum(application(prefix&"bbslinktype"))=1 then

else
showlink="<img src="&rs("picurl")&" border=0 width=88 height=31 border=0>"
end if
response.write"<td width=20% height=20><a title='"&kbbs(rs("readme"))&"' target=_blank href='"&rs("url")&"'>"&showlink&"</a></td>"
thebbslink2=thebbslink2&"<td width=20% height=20><a title='"&kbbs(rs("readme"))&"' target=_blank href='"&rs("url")&"'>"&showlink&"</a></td>"
if td>5 then response.write"</tr>":td=1:thebbslink2=thebbslink2&"</tr>"
rs.movenext
loop
application(prefix&"thebbslink")=thebbslink2
set rs=nothing
else
response.write""&thebbslink&""
end if
response.write"</tr></table></p></td></tr></table>"&tbottom&"<br><br><table align=center cellSpacing=0 cellPadding=0 border=0><tr><td align=middle width=100% ><img src=pic/type0.gif align=absMiddle border=0> 普通版面   <img src=pic/type1.gif align=absMiddle border=0> 会员版面   <img src=pic/type2.gif align=absMiddle border=0> 只读版面   <img src=pic/type3.gif align=absMiddle border=0> 认证版面   <img src=pic/type4.gif align=absMiddle border=0> Vip版面</td></tr></table>"
end if