故事接龙4 post.asp

作者：袖梨 2022-07-02

<%@ Language=VBScript %>
>

<%
'该变量取得当前发表的故事是第几章
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
%>