已解决问题 - 浏览101次
下一个已解决问题
过客
123.52.85.*
MSWC.NextLink 无法打开文件 
来源：网页搜索
<% if thesubj="" then thsubj="无标题" thepost="<html><head><title>"&thesubj&"</head></title><body>" thepost=thepost&" 发表日期: "&now&"<hr>" thepost=thepost&server.HTMLEncode(request.Form("posting")) thepost=thepost&"<!--#include file=""two.inc""-->" thepost=thepost&"</body></html>" set link=server.CreateObject("MSWC.NextLink") thename="item"&link.GetListCount("news.txt")+1&".asp" thenamepath=server.MapPath(thename) set files=server.CreateObject("Scripting.filesystemobject") set strem=files.CreateTextFile(thenamepath,2) MyoutStream.write thepost myoutstream.close the news=server.MapPath("news.txt") set mynews=files.opentextfile(thenews,8,ture) mynews.writeline thename&vbtab&thesubj mynews.close %>
