<%'放在页面最上方 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%> " />
 
<%'SchoolID修改对应院校ID,To 8修改循环显示多少条 Call SetRecord(rc,"Select * From Ce_NewsTable Where IsCheck = 1 And SchoolID = 67 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"),40)%>
 
在线咨询
<%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")%>
联系地址
中国办公室:
上海浦东区浦东新区浦建路145号
强生大厦26楼 
电话:
联系电话:021-50315652/
50315839/50315832
50315820/
传真:021-51315702

新闻详情

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