故事接龙5 readnew.asp

作者：袖梨 2022-07-02
<%@ Language=VBScript %>
>





<%
Response.Write "阅读新章节
"
set conlink=server.CreateObject("MSWC.NextLink")
set fsys=server.CreateObject("scripting.filesystemobject")
if fsys.FileExists(server.MapPath("/project4_local") & "/new1/new.txt") then
    ith=conlink.GetListCount("new1/new.txt")
    for i=1 to cint(ith)
        Response.Write ""
        Response.Write    "" & conlink.GetNthDescription("new1/new.txt",i) & "
"
    next
else
    Response.Write "目前还没有新文章"
end if
%>



加入你的评论意见






相关文章

精彩推荐