<%
set rr=conn.execute("select foldername,class1name,dbo.fun_getPY(left(class1name,1)) firstCharacter from kclass order by dbo.fun_getPY(left(class1name,1))")
if rr.eof and rr.bof then
response.Write("暫無記錄")
Else
firstCharacter = ""
do while not rr.eof
If firstCharacter<>rr("firstCharacter") Then
%>
<%
End If
firstCharacter=rr("firstCharacter")
rr.movenext
loop
end if
rr.close:set rr=nothing
%>
考研資訊
<%
set rs=server.createobject("adodb.recordset")
sql="select * from kInfo order by InfoID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暫無記錄")
else
if not rs.eof then
page = request("page")
if page="" then page=0
intPageSize=42
rs.pagesize = intpagesize
intcount = rs.recordcount
intpagecount = rs.pagecount
if int(page)>rs.pagecount then
page=rs.pagecount
end if
if page="" or page=0 then
page=1
else
page=int(page)
end if
if intcount > 0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
%>
<%
set rlg=conn.execute("select * from guanggao where classid=22 order by tuku_order_id desc")
if rlg.eof and rlg.bof then
response.Write("暫無記錄")
else
for i=1 to 1
%>
<%
set rr=conn.execute("select * from proclass1_proclass2_product where tuijian=1 order by orderid desc")
if rr.eof and rr.bof then
response.Write("暫無記錄")
else
for i=1 to 10
%>
<%
rz.movenext
if rz.eof then exit for
next
end if
%>
<%
set rxx=conn.execute("select * from proclass1_proclass2 order by paixu desc")
if rxx.eof and rxx.bof then
response.Write("暫無記錄")
else
for i=1 to 20
%>