求ASP生成html或者shtml的简洁代码解决方法

gid=request("bcid")
  set rs=server.createobject("adodb.recordset")
      sql="select * from newsbigclass where id="&gid
            rs.open sql,conn,1,1
            if not rs.eof then
            bcname=rs("bcname")
            bcurl=rs("bcurl")
            bcmenu=rs("bcmenu")
            end if
            rs.close
            set rs=nothing
    set rs=server.createobject("adodb.recordset")        
  sql="select * from news where bcid="+cstr(gid)+" order by id desc"
            rs.open sql,conn,1,1
            if rs.eof then
            new1="<br><br><div align=center>暂时没有该类信息</div><br><br>"
            set rs1=server.createobject("adodb.recordset")
        sql1="select top 1 * from newsbmob order by id desc"
        rs1.open sql1,conn,1,1
        mb1=rs1("moban")
        rs1.close
        mb1=replace(mb1,"[body]",new1)'大类内容
    
        title=bcname&"--本站信息"'网站标题
        mb1=replace(mb1,"[cnleft]",title)'网站标题
    
    title1=bcname
    mb1=replace(mb1,"[title1]",title1)'大类名称
    
    
    filename2="../html/newsclass/bclass/"&bcmenu&"/"&bcurl&".html"
    
    set fso=server.createobject("scripting.filesystemobject")
    set ffile=fso.createtextfile(server.mappath(""&filename2&""))
    ffile.write""&mb1&""
    ffile.close
    set ffile=nothing
    set fso=nothing
    set rs1=nothing

------解决方案--------------------
VBScript code
<%
bcid=request.Form("bcid")
scid=request.Form("scid")



if bcid<>"" and scid="" then
sql="select * from NEWS where bcid="&bcid'固定某大类ID
elseif bcid<>"" and scid<>"" then
sql="select * from NEWS where bcid="&bcid& " and scid="&scid'固定某小类ID
else
sql="select * from NEWS"'生成所有的
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
i=0
do while not rs.eof
title=rs("title")
titlecolor=rs("titlecolor")
content=rs("neirong")
laiyuan=rs("laiyuan")
ndate=rs("ndate")
bcname=rs("bcname")
scname=rs("scname")
pic=rs("photo")
author=rs("author")
edituser=rs("edituser")
bcid=rs("bcid")
scid=rs("scid")
newsurl=rs("newsurl")
id=rs("id")

set js = server.CreateObject("ADODB.RecordSet")
sql="select * from newsbigclass where id="&bcid'大类表
set js = conn.Execute (Sql) 
if not js.eof then
    bcname=js("bcname")'大类名称 
    bcurl=js("bcurl")  
goaler ="<a href="&bcurl&">"&bcname&"</a>"'大类连接
end if
js.close
set js = nothing

set js = server.CreateObject("ADODB.RecordSet")
sql="select * from newssmallclass where id="&scid'大类表
set js = conn.Execute (Sql) 
if not js.eof then
    scname=js("scname")'大类名称 
    scurl=js("scurl")  
goaler1 ="<a href="&scurl&">"&scname&"</a>"'大类连接
end if
js.close
set js = nothing
mContent = content
    mContent = Replace(mContent,"<script","<sscript") 
    mContent = Replace(mContent,"/script>","/scripts>")
    mContent = Replace(mContent,"/script >","/scripts>")
sql1="select * from newsmob where id=1"'模板表
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("moban")'模板代码
rs1.close
set rs1=nothing

c_title=htmlencode(title)'网站标题
c_content=mcontent'新闻内容
mb_code=replace(mb_code,"$cntop$",ndate)'把now()值赋给cntop,发布时间
mb_code=replace(mb_code,"$cnleft$",c_title)'同上，网站标题
mb_code=replace(mb_code,"$titlecolor$",titlecolor)'同上，新闻标题颜色
mb_code=replace(mb_code,"$bcname$",goaler)'同上，大类连接
mb_code=replace(mb_code,"$scname$",goaler1)'同上,小类连接
mb_code=replace(mb_code,"$laiyuan$",laiyuan)'同上
mb_code=replace(mb_code,"$photo$",pic)'同上,图片
mb_code=replace(mb_code,"$edituser$",edituser)'同上，编辑者
mb_code=replace(mb_code,"$author$",author)'同上，作者
mb_code=replace(mb_code,"$cnid$",id)'同上,新闻id
mb_code=replace(mb_code,"$cnright$",c_content)'同上，新闻内容
 newsurl=newsurl&".html"   
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(newsurl))
fout.WriteLine mb_code
fout.close
response.write i&"<br>"
rs.movenext
i=i+1
loop
response.write "<script language='javascript'>" & chr(13)
        response.write "alert('新闻修改成功！');" & Chr(13)
        response.write "window.document.location.href='crenall_html.asp';"&Chr(13)
        response.write "</script>" & Chr(13)
Response.End
else
response.write"<SCRIPT language=JavaScript>alert('没有相关内容！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.End
end if
conn.close
set conn=nothing
%>