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