幫忙解釋一段ASP代碼

Function gongsi(leixing,leibie,ys)
set rs = server.createobject("adodb.recordset") '創(chuàng)建RecordSet對(duì)象
sql="select * from shuaiweb_co,shuaiweb_waiter where id = "&leixing&" and bid = " & ys & " ORDER BY id DESC" 'SQL查詢語句,不用多解釋吧
rs.open sql,dbok,1,1 '打開記錄集(即SQL的查詢結(jié)果集)
Content = left(rs("shuaiweb_cocontent"),rs("shuaiweb_ber")) '取得shuaiweb_cocontent字段的左邊shuaiweb_ber個(gè)字符
if leibie = 1 then '判斷傳遞給函數(shù)的leibie參數(shù),為1時(shí)
tgongsi = tgongsi&(RemoveHTML(replace(rs("shuaiweb_bsan"),"#neirong#",Content))) '將shuaiweb_bsan字段的內(nèi)容中#neirong#替換為Content變量的內(nèi)容(RemoveHTML函數(shù)應(yīng)該是刪掉HTML標(biāo)簽)
elseif leibie = 2 then '判斷傳遞給函數(shù)的leibie參數(shù),為2時(shí)
tgongsi = tgongsi&(replace(rs("shuaiweb_bsan"),"#neirong#",Content)) '將shuaiweb_bsan字段的內(nèi)容中#neirong#替換為Content變量的內(nèi)容(不刪除HTML標(biāo)簽)
end if
set rs = server.createobject("adodb.recordset") '重新創(chuàng)建記錄集對(duì)象(好像上面的記錄集沒關(guān)閉呀,浪費(fèi)資源)
sql="select * from shuaiweb_co,shuaiweb_waiter where bid = " & ys 'SQL查詢語句
rs.open sql,dbok,1,1 '打開記錄集,返回查詢結(jié)果
Response.Write(replace(rs("shuaiweb_bsi"),"{center}",tgongsi)) '將shuaiweb_bsi字段中的{center}替換為上面取到的內(nèi)容(tgongsi變量的值),然后輸出到客戶端
rs.Close '關(guān)閉記錄集
set rs=nothing '銷毀對(duì)象
End Function