做一个能生成TXT文件的网页html

Question

我想做一个网页能够自动生成一个TXT文件显示我所需要显示的内容

第一句 填入1 显示 show llicense 1

第二句 填入 1 显示 show 1 license

最好能在下面加个扩展菜单 求高手帮忙 不胜感激！

Answer 1

仅使用HTML是办不到的。使用服务器脚本语言，如JSP、ASP、PHP等，是非常容易办到的一件事。以下是使用ASP来做这件事的关键代码：
<%
Dim s
s = "show license 1"
s = s & vbCrLf & "show 1 license"

SaveEncodedTextFile("C:\aFile.txt", "utf-8", s)
%>
以上 SaveEncodedTextFile() 子过程（函数）就是专门用来保存文本文件的，其源代码如下(也可以上 http://www.myfootprints.cn/blog/post/SaveTextFile.html 查看)：
<%
' 保存文本文件
Function SaveEncodedTextFile(sFilePath, sCharset, s)
Dim oStream
Set oStream = Server.CreateObject("ADODB.Stream")
' 以文本模式
oStream.Type = 2
oStream.Mode = 3
If Len(sCharset) > 0 Then
On Error Resume Next
oStream.Charset = sCharset
If Err.number <> 0 Then
oStream.Charset = "_autodetect_all"
End If
On Error Goto 0
End If
oStream.Open
oStream.WriteText s
' 2 - adSaveCreateOverwrite
On Error Resume Next
oStream.SaveToFile sFilePath, 2
If Err.number <> 0 Then
SaveEncodedTextFile = False
Else
SaveEncodedTextFile = True
End If
On Error Goto 0
Set oStream = Nothing
End Function
%>

参考资料：http://www.myfootprints.cn/blog/post/SaveTextFile.html

本回答被提问者采纳