故事接龙4 post.asp

<%
'该变量取得当前发表的故事是第几章
dim xchapter
strfilename=server.MapPath("story.txt")
set conlink=server.CreateObject("MSWC.NextLink")
ith=conlink.GetListCount("story.txt")
if cint(ith)>0 then
    '根据链接文件story.txt中的链接数确定当前要发表的是第几章
    xchapter=cint(ith)+1
else
    xchapter=1
end if
%>

欢迎加入故事接龙    
题目

第<%=xchapter%>章 

作 者 

以下写入续接的故事内容