仅使用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
本回答被提问者采纳