故事接龙5 readnew.asp

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

加入你的评论意见