帮忙看看这是什么意思，谢谢，非常感谢

function HTMLEncode2(fString)
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLEncode2 = fString
end function


Server.ScriptTimeOut=9999999



''dim fso,CateRs,rs_8,sql_8,okfile,sql
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   Set Rs=server.createobject("adodb.recordset")
   Set CateRs=server.createobject("adodb.recordset")
'取模版开始
''dim rs_8,sql_8,okfile
''dim HtmlTemplate

set rs_8 = server.CreateObject ("Adodb.recordset")
sql_8="select * from demo where ifuse=1 and demoid="&request("demoid")
rs_8.open sql_8,conn,1,1
HtmlTemplate=rs_8("demohtml")
rs_8.close


'取整体,头,尾模版
set rs_8 = server.CreateObject ("Adodb.recordset")
sql_8="select * from demo where ifuse=1 and demoid=27"
rs_8.open sql_8,conn,1,1
tophtml=rs_8("demohtml")
rs_8.close

set rs_8 = server.CreateObject ("Adodb.recordset")
sql_8="select * from demo where ifuse=1 and demoid=28"
rs_8.open sql_8,conn,1,1
endhtml=rs_8("demohtml")
rs_8.close
'取模版结束

'取小分类开始，生成html
'depth=1 小类
if Trim(Request.Form("Depth"))=1 then
sql="select * from shop_nclass"
else
sql="select * from shop_anclass"
end if
CateRs.open sql,conn,1,1 

if Trim(Request.Form("Depth"))=1 then

if not(CateRs.eof and CateRs.bof) then 
do while not CateRs.eof
call Create_SoftList_Cate(CateRs("nclassid"),""&CateRs("nclass")&"",Trim(Request.Form("MaxPerPage")),"adddate","Asc","Desc",Trim(Request.Form("Depth")),CateRs("nclassid"),CateRs("pp"),CateRs("url"))
CateRs.movenext
loop 
end if

else

if not(CateRs.eof and CateRs.bof) then 
do while not CateRs.eof
call Create_SoftList_Cate(CateRs("anclassid"),""&CateRs("anclass")&"",Trim(Request.Form("MaxPerPage")),"orderid","Asc","Desc",Trim(Request.Form("Depth")),CateRs("anclassid"),CateRs("pp"),CateRs("url"))
CateRs.movenext
loop 

end if
end if
CateRs.close
set CateRs=Nothing
'取小分类结束，生成html