【云播网站源码】【wpf大型源码下载】【diy装机系统源码】asp生成html源码

【云播网站源码】【wpf大型源码下载】【diy装机系统源码】asp生成html源码_asp源码怎么搭建网站

时间:2024-11-15 01:03:19 分类：焦点编辑：contacam 源码

1.ASPè½¬htm
2.如何利用fso将asp转化为html

asp生成html源码_asp源码怎么搭建网站

ASPè½¬htm

-------------------------------------------------------------------------

ä»¥ä¸ä¸ºå¼ç¨çåå®¹ï¼

filename="test.htm"

if request("body")<>"" then

set fso = Server.CreateObject("Scripting.FileSystemObject")

set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))

htmlwrite.write "<html><head><title>" & request.form("title") & "</title></head>"

htmlwrite.write "<body>è¾åºTitleåå®¹: " & request.form("title") & "<br /> è¾åºBodyåå®¹:" & request.form("body")& "</body></html>" [ä¸å½ç«é¿ç«]

htmlwrite.close

set fout=nothing

set fso=nothing

end if

<br>

<br>

</form>

-----------------------------------------------------------------------------

-----------------------------------------------------------------------------

ä»¥ä¸ä¸ºå¼ç¨çåå®¹ï¼

template.htm " //æ¨¡æ¿æä»¶

<html>

<head>

<title>$title$ by webjx.com</title>

</head>

<body>

$body$

</body>

</html>

TestTemplate.asp "// çæHtml

Dim fso,htmlwrite

Dim strTitle,strContent,strOut

"// åå»ºæä»¶ç³»ç»å¯¹è±¡

Set fso=Server.CreateObject("Scripting.FileSystemObject")

"// æå¼ç½é¡µæ¨¡æ¿æä»¶ï¼è¯»åæ¨¡æ¿åå®¹

Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))

strOut=f.ReadAll

htmlwrite.close

strTitle="çæçç½é¡µæ é¢"

strC

"// ç¨çå®åå®¹æ¿æ¢æ¨¡æ¿ä¸çæ è®°

strOut=Replace(strOut,"$title$",strTitle)

strOut=Replace(strOut,"$body$",strContent)

"// åå»ºè¦çæçéæé¡µ

Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)

"// åå¥ç½é¡µåå®¹

htmlwrite.WriteLine strOut

htmlwrite.close

Response.Write "çæéæé¡µæåï¼"

"// éæ¾æä»¶ç³»ç»å¯¹è±¡

set htmlwrite=Nothing

set fso=Nothing

-----------------------------------------------------------------------------

3ãç¬¬ä¸ç§æ¹æ³å°±æ¯ç¨XMLHTTPè·åå¨æé¡µçæçHTMLåå®¹ï¼åç¨ADODB.StreamæèScripting.FileSystemObjectä¿åæhtmlæä»¶ãæ¾å°ä¸æ®µXMLHTTPçæHtmlçä»£ç åèä¸ä¸ã

------------------------------------------------------------------------

ä»¥ä¸ä¸ºå¼ç¨çåå®¹ï¼

"å¸¸ç¨å½æ°

"1ãè¾å¥urlç®æ ç½é¡µå°åï¼è¿åå¼getHTTPPageæ¯ç®æ ç½é¡µçhtmlä»£ç

function getHTTPPage(url)

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB")

set /news_con.asp?id="&id

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sText = getHTTPPage(txtURL)

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

filename=server.MapPath("/")&"/html/"&id&".html"

Set openFile=FileObject.OpenTextfile(filename,2,true) 'true为不存在自行建立

openFile.writeline(sText)

Set OpenFile=nothing

function checksql(kustr)

checksql=server.htmlencode(replace(replace(replace(kustr,"<>"," "),"* from "," "),"="," "))

end function

response.Write("<script language=javascript>alert('信息发布成功！');window.location.href='list.asp';</script>")

更多参考：/search.asp?搭建云播网站源码keyword=%C9%FA%B3%C9&cid=&Submit=%CB%D1%CB%F7

本文地址：http://04.net.cn/news/74f69099235.html

【云播网站源码】【wpf大型源码下载】【diy装机系统源码】asp生成html源码_asp源码怎么搭建网站

关注焦点

热点资讯