📄 4-3-3.asp
字号:
<%
'创建这个发表内容
TheSubj=Server.HTMLEncode(Request.Form("subject"))
If TheSubj ="" THEN TheSubj="无标题"
ThePost="<HTML><HEAD><TITLE>"&TheSubj&"</TITLE></HEAD><BODY>"
ThePost=ThePost&"发表日期："&NOW&"<Hr>"
ThePost=ThePost&Server.HTMLEncode(Request.Form("Posting"))
ThePost=ThePost&"<!-- #INCLUDE file=""4-3-2.inc"" -->"
ThePost=ThePost&"</BODY></HTML>"
'创建一个新的文件名
Set mylinks=Server.CreateObject("MSWC.NextLink")
TheName="item"&mylinks.GetlistCount("news.txt")+1&".asp"
TheNamePath=Server.Mappath(TheName)
'保存该发表内容到文件中
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
Set MyOutStream=MyFileObj.CreateTextFile(TheNamePath,2)
MyOutStream.Write ThePost
MyOutStream.Close
'对内容连接组件所需文本文件的更新
TheNews=Server.MapPath("news.txt")
Set MyNews=MyFileObj.OpenTextFile(TheNews,8,TRUE)
MyNews.WriteLine TheName&vbTab&TheSubj
MyNews.Close
%>
<HTML>
<HEAD><TITLE>新的项目</TITLE></HEAD>
<BODY>
<h2>谢谢发表文章</h2>
<a href="4-3-4.asp">返回主页</a>
</Body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -