最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
故事接龙4 post.asp
时间:2022-07-02 23:34:39 编辑:袖梨 来源:一聚教程网
<%@ 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
%>