台灣最大程式設計社群網站
線上人數
857
 
會員總數:245819
討論主題:189440
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 用FileSystemObject寫成Html檔
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用FileSystemObject寫成Html檔
價值 : 0 QP  點閱數:837 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

<form action="view.asp" method="POST" name="users">
<textarea STYLE="position:absolute;LEFT:10; TOP:10;" name="ans" cols="40" rows="10">
<BODY background="img/bg.gif">
<font face="Arial" =Green><% = rstObj("Qus") %></FONT>
</TEXTAREA>
<INPUT type=hidden name=name value="<% =Request.form("name") %>">
</form>

然後傳給另一 view.asp 寫成文字檔 .htm後,再開 IFRAME 顯示.
<%
Sub SaveTextFile(strFile, strFileIn)
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim objFSO, objOutStream, strTestFile
strTestFile = Server.Mappath(strFile)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objOutStream = objFSO.OpenTextFile(strTestFile, ForWriting, True, False)
objOutStream.WriteLine(strFileIn)
objOutStream.Close
Set objOutStream = Nothing
Set objFSO = Nothing
End Sub
' ------------------------------------------
strFile = Request.form("name")&".htm" '檔案名稱
strLine = Request.form("ans") '檔案內容
Call SaveTextFile(strFile, strLine)
%>
<IFRAME
height=350 width=758 src="<% =recordname %>" style="BORDER-BOTTOM-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px; BORDER-TOP-WIDTH: 0px; LEFT: 0px"></IFRAME>


==================================================================================
回應者: maduka maduka@ms2.hinet.net

Set fs = CreateObject ("Scripting.FileSystemObject")

Set ts = fs.CreateTextFile (Server.MapPath("\test.htm") , Ture )

ts.WriteLine ("現在時間:" & Now )

ts.Close

本篇文章發表於2002-03-28 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.