<%
GlOBALPAGESIZE = 8
GlOBALAC = request("ac")
if GlOBALAC = "" then
'response.Write("select count(*) from KS_U_yygl where tid=20102506687733 and " & where)
GlOBALAC = newsconn.execute("select count(*) from KS_U_yygl where tid=20102506687733 and " & where)(0)
end if
if not isnumeric(GlOBALAC) then
GlOBALAC = newsconn.execute("select count(*) from KS_U_yygl where tid=20102506687733 and " & where)(0)
end if
ac = GlOBALAC
ps = GlOBALPAGESIZE
'response.Write(ac)
page = request("page")
if page = "" then page = 1
if not isnumeric(page) then page = 1
if page < 1 then page = 1
page = clng(page)
nnum = ac
apage = nnum / ps
if apage <> int(apage) then apage =int(apage) + 1
spage = page - 1
if spage < 1 then spage = 1
xpage = page + 1
if xpage > apage then xpage = apage
if page > apage then page = apage
set rs = server.CreateObject("adodb.recordset")
sqlstr = "select * from (select a.id,a.tid,a.Title,a.Fname,a.PhotoUrl,a.Fulltitle,a.KS_jingyan,b.Folder,a.Intro,a.KS_yiyuan,row_number() over (order by a.KS_sort asc) as row from KS_U_yygl a inner join KS_Class b on a.tid = b.ID where a.tid=20102506687733 and "& where & ")temptable where row between " & (page-1)*GlOBALPAGESIZE+1 & " and " & page*GlOBALPAGESIZE
'response.Write sqlstr
rs.open sqlstr,newsconn,1,1
do until rs.eof
Folder = rs("Folder")
Title = rs("Title")
Fname = rs("Fname")
Fulltitle = rs("Fulltitle")
Intro = rs("Intro")
PhotoUrl = rs("PhotoUrl")
KS_yiyuan = rs("KS_yiyuan")
KS_jingyan = rs("KS_jingyan")
%>
-
在线预约
擅长：<%= left(rs("Intro"),46) %>...[详细]
<%
rs.movenext
loop
rs.close
%>
