asp图片翻页代码（asp图片翻页代码是什么）

本篇文章给大家谈谈asp图片翻页代码，以及asp图片翻页代码是什么对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、ASP翻页代码
• 2、asp翻页代码
• 3、请教一个asp翻页代码的编写

ASP翻页代码

%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%

!--#include file="adovbs.inc"--

%

Dim Cnn, StrCnn

Set Cnn = Server.CreateObject("ADODB.Connection")

StrCnn = "driver={SQL server};server=127.0.0.1;UID=sa;PWD=;DATABASE=test"

Cnn.Open StrCnn

Dim rs,StrSQL

Set rs = server.CreateObject("ADODB.Recordset")

StrSQL = "select ID,Name,English_Name,case Sex when '0' then 'Male' else 'Female' end Sex,TelePhone_NO,"

StrSQL = StrSQL "case Department_NO when '0' then 'BOI100' when '1' then 'B0R100' when '2' then 'B0R200' else 'B0R300' end Department_NO ,Hometown "

StrSQL = StrSQL " from TBL_2006Member"

rs.Open StrSQL, Cnn,adopenstatic

%

html

head

titleprdshow/title

meta http-equiv="Content-Type" content="text/html; charset=big5"

/head

body

%

rs.pagesize=5

page=clng(request("page"))

if page1 then page=1 end if

if pagers.pagecount then page=rs.pagecount end if %

pAopen2006校招新人资料：/ptable width="75%" border="1"

tr

td工号/td

td中文名/td

td英文名/td

td性别/td

td分机号码/td

td部门/td

td籍贯/td

/tr

%

rs.absolutepage=page

for ipage=1 to rs.pagesize

%

tr

td% =rs("ID") %/td

td% =rs("Name") %/td

td% =rs("English_Name") %/td

td% =rs("Sex") %/td

td% =rs("Telephone_NO") %/td

td% =rs("Department_NO") %/td

td% =rs("HomeTown") %/td

/tr

%

rs.movenext

if rs.eof then exit for

next

%

/table

%

if page1 then

response.write "a href=prdshow.asp?page=1第一页/a"

response.write "a href=prdshow.asp?page=" (page-1) "上一页/a"

end if

if pagers.pagecount then

response.write "a href=prdshow.asp?page=" (page+1) "下一页/a "

response.write "a href=prdshow.asp?page=" rs.pagecount "最后一页/a"

end if

%

div align=centerp

form

输入页面select name="page"

%i=1

do while irs.pagecount+1

%

option%=i%

%

i=i+1

loop%

/select

input type="submit" value="GO"

/form

页次：font color="blue"%=page%/%=rs.pagecount%/font

/p/div

/body

/html

asp翻页代码

该页面的其他代码可能有其他request，翻页的时候应该带上他们的参数。

请教一个asp翻页代码的编写

%

set rs=server.createobject("adodb.recordset")

sql="select * from [table] order by [ID] DESC"

rs.open sql,conn,1,1

MyPagesize=15 '每页条数

RS.pagesize = MyPagesize

MyRecordCount=rs.recordcount

MyPageCount=rs.pagecount

curpage=cint(request.querystring("page"))

if curpage=0 then curpage=1

RS.absolutepage = curpage

for i=0 to MyPagesize-1

ID=rs("id")

'其他=rs("其他")

RESPONSE.WRITE ID "br"

RESPONSE.WRITE "其他" "其他br"

rs.MoveNext

if RS.eof then

i = i + 1

exit for

End If

next

rs.close

set rs=Nothing

Conn.close

set Conn=Nothing

%

tabletrtd

% = ExportPageInfo( curpage, i, "page.asp?username="username"") %

/td/tr/table

%

Function ExportPageInfo(curpage,i,LinkFile)

Dim retval, j, pageNumber, BasePage

retval = "第" curpage "页/总" MyPageCount "页 "

retval = retval "本页" i "条/总" MyRecordCount "条 "

If curpage = 1 Then

retval = retval "首页 前页 "

Else

retval = retval "a href='" LinkFile "page=1'首页/a a href='" LinkFile "page=" cstr(curpage - 1) "'前页

/a "

End If

If curpage MyPageCount Then

retval = retval "a href='" LinkFile "page=" cstr(curpage+1) "'后页/a a href='" LinkFile "page=" cstr

(MyPageCount) "'末页/a"

else

retval = retval "后页 末页"

End if

retval = retval "br/"

ExportPageInfo = retval

End Function

%

关于asp图片翻页代码和asp图片翻页代码是什么的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。