Get Ready to Unleash the Power of UCanCode .NET

<%@ Language="VBScript"%> <% '记数器 dim visitors countfile=server.mappath("counter.txt") Set fs=CreateObject("Scripting.FileSystemObject") Set thisfile=fs.OpenTextFile(countfile) visitors=thisfile.readline thisfile.close countlen=len(visitors) visitors=visitors+1 Set thisfile=fs.CreateTextFile(countfile) thisfile.WriteLine(visitors) thisfile.close set fs=nothing response.write visitors %>

	所有建议

所有建议:

总共:<%=cnn.pagecount%> 页 <%if session("page")>1 then%> 前一页 <%end if%> <%if session("page") 下一页 <%end if%> 返回 <% for i=1 to cnn.pagesize if cnn.eof then exit for end if %>

序号	<%=cnn("id")%>	日期	<%=cnn("sj")%>
目录	<%=cnn("cate")%>
主题	<%=cnn("title")%>
内容
<%=replace(cnn("sug"),chr(13)," ")%>

<% cnn.movenext next %>