ÍøÒ³Éú³É¾²Ì¬HtmlÎļþÓÐÐí¶àºÃ´¦,ºÃ±ÈÉú³ÉhtmlÍøÒ³ÓÐÒæÓÚ±»ËÑË÷ÒýÇæÊÕ¼,²»½ö±»ÊÕ¼µÄ¿ì»¹ÊÕ¼µÄÈ«.ǰ̨ÍÑÀëÁËÊý¾Ý·ÃÎÊ,¼õÇá¶ÔÊý¾Ý¿â·ÃÎʵÄѹÁ¦,¼Ó¿ìÍøÒ³´ò¿ªËÙ¶È.
Ïñwww.aspid.cnµÄÖ÷Õ¾¾Í²ÉÓÃÁËTSYSÉú³ÉhtmlÎļþ!
ËùÒÔÒ÷Çå×î½ü¶ÔÉú³Éhtml±È½Ï¸ÐÐËȤ,¿´Á˺ܶàÎÄÕÂ,Ò²ÓÐÒ»µãµãÊÕ»ñ.
1,ÏÂÃæÕâ¸ö°¸ÀýÖ±½ÓÀûÓÃFSO°Ñhtml´úÂëдÈëµ½ÎļþÖÐÈ»ºóÉú³É.html¸ñʽµÄÎļþ
<%
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 aspid.cn</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 "Éú³É¾²Ì¬Ò³³É¹¦£¡"
ÍøÂ罨ÉèÒµÎñ×Éѯ
TEl£º13626712526