一聚教程网:一个值得你收藏的教程网站

热门教程

故事接龙5 readnew.asp

时间:2022-07-02 23:22:20 编辑:袖梨 来源:一聚教程网

<%@ 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
%>



加入你的评论意见






热门栏目