<%'放在页面最上方 Dim ID ID = SQLStr(Request.QueryString("id")) Call SetRecord(rb,"Select * From Ce_NewsTable Where ID = "&ID,Conn,1,3) If rb.Bof Or rb.Eof Then Call MyAlert("erren","") Response.End() End If Conn.Execute("Update Ce_NewsTable Set Click = Click + 1 Where ID = "&ID) Title = rb("Title") AddTime = rb("AddTime") Content = rb("Content") IsPage = 0 if page = "" or page = 0 then page = 1 If Instr(Content,"{page}") > 0 Then ContentPage = split(Content,"{page}") pageNum = ubound(ContentPage) If Clng(page) > Clng(pageNum+1) Then page = pageNum Content = ContentPage(page-1) IsPage = 1 End If %> <%=Title&" - "&SiteTitle%> " />

<%=Title%>

<%=AddTime%> 来源:eduau.com
<%=Content%>
<%If ispage = 1 Then%>

本文共分<%=pagenum+1%>页 <%If Clng(page) > 1 Then Response.Write "<<上一页" For j = 1 To pagenum + 1 Call pageHTML(j,"view.html?id="&ID&"&page=","") Next If Clng(page) < Clng(pagenum+1) Then Response.Write "下一页>>"%>

<%End If%>
澳大利亚教育联盟 <%'放在页面最下方 Call Closed(rb) Call Closed(Conn)%>