求ASP生成html或者shtml的简洁代码
求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
[解决办法]
<%bcid=request.Form("bcid")scid=request.Form("scid")if bcid<>"" and scid="" thensql="select * from NEWS where bcid="&bcid'固定某大类IDelseif bcid<>"" and scid<>"" thensql="select * from NEWS where bcid="&bcid& " and scid="&scid'固定某小类IDelsesql="select * from NEWS"'生成所有的end ifset rs=server.createobject("adodb.recordset")rs.open sql,conn,1,3if not rs.eof theni=0do while not rs.eoftitle=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 ifjs.closeset js = nothingset 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 ifjs.closeset js = nothingmContent = 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,1mb_code=rs1("moban")'模板代码rs1.closeset rs1=nothingc_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)'同上,新闻idmb_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_codefout.closeresponse.write i&"<br>"rs.movenexti=i+1loopresponse.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.Endelseresponse.write"<SCRIPT language=JavaScript>alert('没有相关内容！');"response.write"javascript:history.go(-1)</SCRIPT>"Response.Endend ifconn.closeset conn=nothing%>
[解决办法]
Function getHttpXML(byttStream,url) Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP") dim lResolve,lConnect,lSend,lReceive lResolve = 5*20000 lConnect = 5*20000 lSend = 15*20000 lReceive = 15*20000 Http.setTimeouts lResolve,lConnect,lSend,lReceive Http.open "Get",url,false '//抓取远程web页面 Http.Send(byttStream) if Http.readystate =1 then str1=timer() if Http.readystate =4 then str2=timer() if Http.readystate <> 4 then exit Function end if getHttpXML=BytesToBstr(Http.responseBody,"gb2312") if err.Number<>0 then err.ClearEnd Function'//编码,解决乱码问题Function BytesToBstr(body,Cset) Dim objStream Set objStream=Server.CreateObject("Adodb.stream") objStream.Type=1 objStream.Mode=3 objStream.Open objStream.Write body objStream.Position=0 objStream.Type=2 objstream.Charset = Cset BytesToBstr=objstream.ReadText objStream.Close Set objStream=nothingEnd Function'// contentstr=getHttpXML("0","http://localhost/")'抓取http://localhost/的html代码 set fso=server.createobject("scripting.filesystemobject") txtFile=Server.MapPath("/Default.htm") Set pTex = fso.CreateTextFile(txtFile, True)'新建一文件,若该文件已存在，则覆盖它 pTex.close Set html=fso.OpenTextFile(txtFile,8,True)'打开成可以在结尾写入数据的文件 html.Write contentstr html.Close set html=nothing set fso=nothing