å°å¨æ页é¢è½¬æ¢çæéæHtmlæ件æ许å¤å¥½å¤ï¼æ¯å¦çæhtmlç½é¡µæå©äºè¢«æç´¢å¼ææ¶å½ï¼ç¹å«æ¯å¯¹æ¥åå¨æåæ°ç页é¢ï¼ãåå°è®¿é®æ¶ï¼è±ç¦»äºæ°æ®è®¿é®ï¼å轻对æ°æ®åºè®¿é®çååï¼å å¿«ç½é¡µæå¼é度ã
ã
ããå½ç¶ï¼å¡äºæå©å¿
æå¼ï¼çæHTML页é¢æ å½¢ä¸ä¹è费大éçç£ç空é´ä»¥åæ¾è¿äºéææ件ï¼å¨ç¼è¾é¡µé¢è¿ç¨ä¸é¤è¯»åæ°æ®åºå¤ï¼ä¹è¦è¯»åæå¡å¨ç£çï¼é¡µé¢æ ·å¼çæ¹å¨å¿
é¡»éæ°çæå
¨é¨HTMLæ件ï¼ççã
ã
ããåå¾å¤æç´¢å¼æï¼é½å¯ä»¥æ交ç½ç«ç页é¢å°åå表ï¼å¨ææ件çæ¶å½é®é¢å·²ç»ä¸ç®æ¯ä¸ªé®é¢äºï¼å¦google sitemapï¼ãå¾å¤±å°±è¦èªå·±è¡¡éææ¡äºï¼ä½æ 论å¦ä½ï¼æ们è¿æ¯è¦æå¾å¦ä½æä½çãè¿éå°±å¼ç¨ä¸ä¸å«äººçæç« è¯´æå ç§å¸¸è§ççææè·¯ï¼ä¾å¤§å®¶åèåèã
ã
ãã1ï¼ä¸é¢è¿ä¸ªä¾åç´æ¥å©ç¨FSOæhtml代ç åå
¥å°æ件ä¸ç¶åçæãhtmlæ ¼å¼çæ件 .è¿æ¯æåå§çï¼ä¼ç¹æ¯ç®åï¼ç¼ºç¹æ¯é¡µé¢çä¿®æ¹ä¸æ¹ä¾¿ï¼æä¸è¬ç¨å°çå°æ¹æ¯å©ç¨å®çææ´ç«åæ°æ件ãï¼é常ç½ç«å¦æ é¢ï¼å称çé
ç½®ä¿åå¨æ°æ®åºï¼æå°å®çæconfig.aspä¿åè¿äºåéè°ç¨ï¼é¿å
é¢ç¹è®¿é®æ°æ®åºï¼
ã
ï¼%
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
%>
ï¼form name="form" method="post" action="">
ï¼input name="title" value="Title" size=26>
ï¼br>
ï¼textarea name="body">Bodyï¼/textarea>
ï¼br>
ï¼br>
ï¼input type="submit" name="Submit" value="çæhtml">
ï¼/form>
2ï¼ä½æ¯æç
§ä¸é¢çæ¹æ³çæhtmlæ件é常ä¸æ¹ä¾¿ï¼ç¬¬äºç§æ¹æ³å°±æ¯å©ç¨æ¨¡æ¿ææ¯ï¼å°æ¨¡æ¿ä¸ç¹æ®ä»£ç çå¼æ¿æ¢ä¸ºä»è¡¨åææ¯æ°æ®åºå段ä¸æ¥åè¿æ¥çå¼ï¼å®æ模æ¿åè½ï¼å°æç»æ¿æ¢è¿çææ模æ¿ä»£ç çæHTMLæ件ãè¿ç§ææ¯éç¨å¾æ¯è¾å¤ï¼å¤§é¨åçCMSé½æ¯ä½¿ç¨è¿ç±»æ¹æ³ã
ã
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="çæçç½é¡µæ é¢"
strContent="çæçç½é¡µå
容"
'// ç¨çå®å
容æ¿æ¢æ¨¡æ¿ä¸çæ è®°
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ç代ç åèä¸ä¸.
<%'å®ä¹xmlhttp
function GetXmlText(Url)
dim GetXmlHttp
set GetXmlHttp=server.Createobject("Microsoft.XMLHTTP")
GetXmlHttp.open "Get",url,false,"",""
GetXmlHttp.Send
'GetXmlText=GetXmlHttp.Responsetext
GetXmlText=GetXmlHttp.ResponseBody
set GetXmlHttp=nothing
end 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 = nothing
End Function
'ä¿åæ件
Sub SaveToFile(strBody,File)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End Sub
%>
<%SaveToFile BytesToBstr(GetXmlText("
http://127.0.0.1/index.asp"),"GB2312"),"index.htm"%>
å°ç»ï¼è¿ä¸ç§æ¹å¼æ¯æ¯è¾å¸¸ç¨ççæHTMLæ件æ¹æ³ï¼ç¬¬ä¸ç§æ¹å¼ï¼é¡µé¢æ¹å¨æ¶é常æ¹ä¾¿ï¼å°±ç®å¨æ页æ¹å¨å¤å¤§é½å¥½ï¼åªè¦éæ°ç¨XMLHTTP读åçæä¸æ¬¡å³å¯ã