【大闸蟹带溯源码】【75的源码补码】【源码反码补码移码】翻页源码

【大闸蟹带溯源码】【75的源码补码】【源码反码补码移码】翻页源码_翻页的代码

来源:数字币交易平台源码发表时间:2024-12-27 15:40:25

1.asp源码上下翻页问题

翻页源码_翻页的翻页翻页代码

asp源码上下翻页问题

建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页

-----------------------下面保存为search.asp--------------------------

<html>

<head>

</head>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

function btn_ck_bh_Click()

{

var cx = document.form1.cxsj.value;

form1.action ="search.asp?cx="+cx;

}

</script>

<tr>

<p>输入搜索内容:<input type="text" name="cxsj" size=""><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()">

</form>

</td>

</tr>

</table>

<tr>

</tr>

'数据库查询

'获得搜索内容

cx = request("cx")

dim pageCount

'把page转换成整数

page = cint(request("page"))

set conn=server.createobject("adodb.connection")'

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

conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={ Microsoft Access Driver (*.mdb)};"

' 获取产品的名字记录集（从 news表中）

if cx <> "" then

sql = "select * from news where title like '%"&cx& "%' order by id desc"

else

sql ="select * from news order by id desc"

end if

rs.open sql,conn,3,3

'如果没有数据记录

if rs.bof then

errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,请返回!!"

response.write errmsg

response.end

end if

' 设置记录集在每页的总行数，也就是源码大闸蟹带溯源码 PageSize属性

RS.PageSize=

'把rs.pageCount转换成整数和page才能作比较

pageCount = cint(rs.pageCount)

' 设置当前的页号（ AbsolutePage属性）

if page = 0 then

page =1

end if

RS.AbsolutePage = page

x=1

' 显示当前页中的所有记录（ PageSize中设置的行数）

WHILE NOT RS.EOF AND NumRows<RS.PageSize

<td width="%"><a href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>

</tr>

<%RS.MoveNext

NumRows=NumRows+1

WEND%>

<tr>

<p align="center"><FONT color=#>共<%=PageCount%>页第<%=page%>页★

<%if page=1 then%>首页<%end if%>

<%if page>1 then%>

<%end if%>★

<%if page>1 then%><A HREF="search.asp?page=<%=page-1%>&cx=<%=cx%>"><%end if%>上一页</a>

dim pagewhere

dim p

p = 1

'把pagewhere转换成整数

'pagewhere = cint(request("pagewhere"))

pagewhere = pageCount

if pagewhere>0 then

for p=1 to pagewhere

if p <> page then%>

<%end if

if p =page then%>

<%=p%>

<% end if

end if%>

<%if page < PageCount then%>

<%end if %>下一页</A>★

<%if page=PageCount then%>尾页

<%end if%>

<%if page<PageCount then%>

<%end if%>

</p></FONT></td> </tr> <tr>

</tr>

</table></center></div>

</body></html>

rs.close

Set rs=nothing

conn.close

set conn=nothing

.重点关注

4月全国查处违反八项规定问题7441起
2024-12-27 15:14
呯凡k线源码_k线公式源码
2024-12-27 15:02
期货跨期套利指标源码_期货跨期套利指标源码是什么
2024-12-27 15:01
美女找茬 js源码下载
2024-12-27 14:38
重啟陸生來台！教育部擬招生簡章最快明年7月入學
2024-12-27 13:41
软件下载整店源码_软件下载整店源码怎么下载
2024-12-27 12:56

【大闸蟹带溯源码】【75的源码补码】【源码 反码 补码移码】翻页源码_翻页的代码

.重点关注

【大闸蟹带溯源码】【75的源码补码】【源码反码补码移码】翻页源码_翻页的代码