<%'放在页面最上方 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%> " />
澳大利亚教育联盟授权合作伙伴澳大利亚卧龙岗大学
<%=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%>

 最新动态

<%'SchoolID修改对应院校ID,To 8修改循环显示多少条 Call SetRecord(rc,"Select * From Ce_NewsTable Where IsCheck = 1 And SchoolID = 42 Order By ID Desc",Conn,1,1) If Not rc.Bof Then For i = 1 To 5 If rc.Eof Then Exit For%> <%rc.Movenext Next End If Call Closed(rc)%>
· " title="<%=rc("Title")%>"><%=ReturnStrLenth(rc("Title"),28)%>

 在线咨询

<%Set rc = Conn.Execute("Select * from Ce_ConsultantsTable Order By NewID()") Do While Not rc.Eof%> <%rc.Movenext Loop Call Closed(rc)%>
<%=rc("Name")%>
<%=rc("Mobile")%>
<%=rc("QQCode")%>
#faq" target="_blank">咨询<%=rc("Name")%>
<%'放在页面最下方 Call Closed(rb) Call Closed(Conn)%>