沌口在汉阳区的气味:帮帮忙拉!谢谢!!

帮忙看看这段代码:
<!--#include file="Ft_config.asp"-->
<!--#include file="Ft_conn.asp"-->
<!--#include file="Ft_format.asp"-->
<!--#include file="Ft_lib.asp"-->
<!--#include file="Ft_online.asp"-->
<%
sub_title="首页"
call head()
'==================================
'=功 能：取出当前模板
'==================================
StrTemp=mb_index
sql="select top 1 d_id,d_content from Ft_diary where index_diary=1 order by d_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
url="showdiary.asp?id="&rs("d_id")
Ft_mbstr=replace(StrTemp,"$dcontent$",cutstr(rs("d_content"),130,true,url))
else
Ft_mbstr=replace(StrTemp,"$dcontent$","<p align=""center"" class=""disable_font""><br><br>暂时没有首页公告</p>")
end if
rs.close:set rs=nothing
if instr(Ft_mbstr,"$diary$")<>0 then
sql="select top "&diaryperpage&" d_date,d_title,d_id,d_poster from Ft_diary order by d_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
dim kaw
kaw = 0
do while not rs.eof
dim d_id,d_title,d_poster,d_date
d_id=rs("d_id")
d_title=rs("d_title")
d_poster=rs("d_poster")
d_date=rs("d_date")
d_diary=d_diary+"marqueeContent[" & kaw & "] = '<a href=showdiary.asp?id=" & d_id & " target=""_blank"">"&d_title&"</a> <span class=""disable_font"">["&d_poster&" "&d_date&"]</span><br>';"
kaw = kaw + 1
rs.movenext
loop
Ft_mbstr=replace(Ft_mbstr,"$diary$",d_diary)
elseif rs.eof and rs.bof then
Ft_mbstr=replace(Ft_mbstr,"$diary$","marqueeContent[0]= '正在更新之中……'")
end if
rs.close:set rs=nothing
end if
怎么认识它??
谢谢!!!