<% set rss=server.createobject("adodb.recordset") sqls="select * from class order by id asc" rss.open sqls,conn,1,1 %>
美知上海韩语培训学校/上海日语培训为您开设初级、生活会话、商务会话,考级等各种丰富培训课程,并助您取得留学资格。在上海美知学韩语/学日语满足您工作学习留学等各种需求  
美知韩国语
 
<% Set Rs2 = Server.CreateObject("ADODB.Recordset") sql2="select * from news where class='"&rss("class")&"' order by id desc" Rs2.Open Sql2,conn,3,3 If IsNumeric(Request("Page"))=false Or Request("Page")="" Then Page=1 Else Page=CInt(Request("Page")) End if Rs2.PageSize=10 '每页显示的帖子数 If Rs2.EOF Or Rs2.BOF Then Response.Write "" Else myPageSize=Rs2.PageSize Rs2.AbsolutePage=Page Do While not Rs2.Eof And myPageSize>0 %> <% myPageSize=myPageSize-1 i=i+1 Rs2.MoveNext Loop %> <% End If Rs2.Close Set Rs2=nothing %>
最新情报
该论坛目前还没有帖子!
" target="_blank"><%=Rs2("title")%>   <%=Rs2("time")%>    
         
第 <%=Page%> 页/共 <%=Rs2.PageCount%> 页     <% If Page > 1 Then Response.Write "首页" Response.Write " 上一页" End If If Rs2.PageCount <= 4 Then For j = 1 To Rs2.PageCount Response.Write " " & j & "" Next Else For j = 1 To 4 Response.Write " " & j & "" Next If Page < Rs2.PageCount Then Response.Write " 下一页" End If Response.Write " 尾页" End If %>    
         
关于美知 | 采用情报 | 网站地图 | 联系我们 徐家汇

Copyright (C) 上海美知教育. All rights reserved
上海学韩语 找 上海韩语培训机构 上海韩语培训班 上海韩语培训学校 上海韩语培训中心 考韩国语能力考试到徐家汇上海韩语培训学校美知!
上海学日语 找 上海日语培训机构 上海日语培训班 上海日语培训学校 上海日语培训中心 考日语能力考试请到徐家汇上海韩语培训学校美知!

 

<% rss.close Set rs1=Nothing set rss=nothing conn.close Set conn=Nothing %>