|
|
代理资料
|
文件格式 |
文件名下载 |
下载 |
<%
dim scriptname
scriptname=Request.ServerVariables ("script_name")
dim title,specid,keyword
'title=formatstr(request("title"))
'specid=formatstr(request("specid"))
'keyword=formatstr(request("keyword"))
cid=formatstr(request("cid"))
link1="title=" & title & "&keyword=" & keyword & "&cid=" & cid
sql="select download.*,downclass.c_class from download,downclass where download.cid = downclass.id" & equalsql("download.cid",cid)
sql=sql & " order by download.cid ,download.dnum desc"
'response.write(sql)
'response.end
rs.open sql,conn,3,1
if not rs.eof then
dim pagenum,pages,countnum
pagenum=1 ' 设置变量PAGENUm=1
rs.PageSize = 20 '每页显示记录数
pages=rs.pagecount
countnum=rs.recordcount
recordnum=rs.PageSize
if Not IsEmpty(Request("pagenum")) and isnumeric(request("pagenum")) then '如果pagenum已经初始化且符合要求
pagenum = CInt(Request("pagenum")) '接收pagenum并化为数字型赋给pagenum变量
if pagenum > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif pagenum <= 0 then '如果page小于等于0
pagenum = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = pagenum '如果大于零,显示当前页等于接收的页数
end if
End if
pagenum = rs.AbsolutePage
if pagenum<=0 then pagenum=1
for i=1 to rs.PageSize step 1
if not rs.eof then
%>
 |
<<太优代理申请表>> |
|
<%
rs.movenext
end if
next
end if
rs.close
conn.close
%>
|
|
|