续：朋友（denghai）帮忙，高分查看这段代码:查询关键字分页显示时，第一页正常，从第二页开始，就按查询所有记录显示了？

2003-02-21 09:00:20 175 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用李雅普诺夫函数开发航天器姿态控制系统本文基于李雅普诺夫函数控制方法，采用修正罗德里格斯参数(MRP)描述航天器姿态，设计了姿态控制律。通过构造能量型李雅普诺夫函数，推导出保证系统稳定的控制闭环方程，实现了航天器从初始状态到目标状态的稳定转换。针对MRP参数可能出现的奇异性问题，采用影子集进行规避。仿真实验包含两种模式：非追踪模式（目标状态为0）和追踪模式（目标为三角函数轨迹）。结果表明，该控制方法能够有效实现姿态稳定和轨迹跟踪，在短暂调整后即可精确跟随目标轨迹。控制律设计考虑了不同参考系间的转换，通过DCM矩阵处理目标角速度的坐标变换问题。阅读详情

http://appserver/search.asp
企业客户基本資料文档
--------------------------------------------------------------------------------
客户名称：公司 ------ 查询
首页显示：
http://appserver/search.asp

客户编号客户名称負責人聯系人 EMAIL 网址单位性质地址联系方式
搜索：公司
27003 新西兰凯威公司蔡莉上鼎1713 2659581 2659581(fax)
......

27016 司达福纺织有限公司赵青上鼎1711 2802532 2802536(fax)
本库共435个记录首页上一页下一页尾页页次：1/44页 10个记录/页第1页...第44页

第二页显示：
http://appserver/search.asp?page=2&strname=公司

本库共689个记录首页上一页下一页尾页页次：2/69页 10个记录/页第2页 ... 第69页

第3页(从此页开始，地址中strname没有值了
http://appserver/search.asp?page=3&strname=

本库共689个记录首页上一页下一页尾页页次：3/69页 10个记录/页第3页 ... 第69页

http://appserver/search.asp?page=4&strname=

本库共689个记录首页上一页下一页尾页页次：4/69页 10个记录/页第4页 ... 第69页

......

...全文

界面上下固定_基于ANSYS的胶粘结构界面开裂有限元计算引言：目前工程上主要有螺栓，过盈，焊接和胶粘四种常用的连接方式，本文基于ANSYS Workbench环境，引入内聚力模型来实现对胶粘结构界面开裂失效的计算，文中的界面失效参数为随意给定，不是工程实际测试数据，仅起到演示作用！1.问题的描述如图所示给出了胶粘结构的三维模型，该胶粘结构由上下钢板组成，中间通过胶粘接到一起。(胶不需要建模，其影响主要通过内聚力模型实现)上下板的材料为结构钢，... 阅读详情

rolandzhang

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

denghan 2003-02-27

打赏
举报

'''以下是关于分页显示的函数，可反复调用
sub showContent
dim i
i=0
do while not rs.eof
%>

<tr>
<td width="64"> <%=rs("contactid")%> </td>
<td width="57"> <%=rs("name")%> </td>
<td width="53"> <%=rs("corporation")%> </td>
<td width="49"> <%=rs("contact")%></td>
<td width="40"> <%=rs("email") %></td>
<td width="38"> <%=rs("webaddr") %></td>
<td width="85"> <%=rs("occupation")%></td>
<td width="67"> <%=rs("zipcode")%></td>
<td width="313"><%=rs("allphn")%> </td>
</tr>
<tr>
<td colspan="9"><%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub

function showpage(totalnumber,maxperpage,filename)
dim n

if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?name="& strname & ">"
response.write "本类共"&totalnumber&"个 "

if CurrentPage<2 then
response.write "首页上一页"
else
response.write "<a href="&filename&"?page=1&name="& strname & ">首页</a>"
response.write "<a href="&filename&"?page="¤tPage-1&"&name=" & strname & ">上一页</a>"
end if
''''以下是按不同情况显示分页页码及传参数
if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&name=" & strname & ">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&name=" & strname & ">尾页</a>"
end if
response.write "页次："¤tPage&"/"&n&"页 "
response.write ""&maxperpage&"个记录/页 "
%>

<select name='page' size='1' style="border:1px solid #007fbb; font-size: 9pt; color:#000000; background-color:#ceefff" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if cint(currentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
response.write "</form>"
end function
%></td></table>
</body>
</html>

denghan 2003-02-27

打赏
举报

<%
''''''''''连接数据库

dim conn,connst
'connstr= "provider=oraoledb.oracle.1;persist security info=true;user id=iagent;password=ia;data source=app_yong"
'set conn=server.createobject("adodb.connection")
'conn.open connstr

'''''''''''''''''''''''''''''''''''''''''''''
'为方便调试，我把它换成了ACCESS
connstr="DBQ="+server.mappath("db3.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
if trim(request("name"))="" then
strname=""
else
strname=trim(request("name") )'关键字
end if
MaxPerPage=2 '每页最多显示的记录数
if not isempty(request("page")) then
currentPage=cint(request("page")) '由上页传过来的页数
else
currentPage=1 '如果页数为空则为第一页
end if
%>
<html>
<head>
<title></title>
</head><body><form Action="search.asp" Method="Post">
<table border="0" cellpadding="0" cellspacing="0" width="100%" topmargin="0"><tr>
<td> 
企业客户基本資料文档
<hr size="1" color="#000080">

 客户名称：
<input name="name" type="text" id="name" size="20">
<input type="submit" name="Submit" value="查询">
</td>
</tr>

</table> </form>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolor="#999999">
<tr> <!-显示表头!->
<td align=center width="64">客户编号</td>
<td align=center width="57">客户名称</td>
<td align=center width="53">負責人</td>
<td align=center width="49">聯系人</td>
<td align=center width="40">EMAIL</td>
<td align=center width="38">网址</td>
<td align=center width="85"> 单位性质
</td>
<td align=center width="67"> 邮编 
</td>
<td align=center width="313"> 联系方式
</td>
</tr>
<%
response.write "搜索："&strname&""
set rs=server.createobject("adodb.recordset")
'根据不同情况创建并打开记录集
if strname="" then
sql="select contactid,name,corporation,contact,email,webaddr,occupation, zipcode,allphn from contact"
else
sql="select contactid,name,corporation,contact,email,webaddr,occupation, zipcode,allphn from contact where name like '%"&strname&"%'"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then '如果记录集为空
Response.Write "抱歉，没有搜索到相关的资料！"
else '不为空
'Response.Write "共搜索到" & rs.RecordCount & "条相关资料，共"& rs.PageCount &"页，每页"& rs.PageSize &"条(当前第"& Page &"页)"
totalPut=rs.recordcount
if currentpage<1 then '确定当前页码
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"search.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"search.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"search.asp"
end if
end if
rs.close
end if

zhusuhao 2003-02-21

打赏
举报

用 url?参数的方式就行了！

ardong 2003-02-21

打赏
举报

建义用Hidden将查询的值保存，这样条件才不会丢掉。

gshope 2003-02-21

打赏
举报

要把查询条件也传到下一页去。

BrightEye 2003-02-21

打赏
举报

没看你的代码,你试试用session传递strname

whcasp 2003-02-21

打赏
举报

url?page=1&Search1=aaa&Se.....

dhluo 2003-02-21

打赏
举报

for j=1 to pages
response.write("|<a href=seednews.asp?pgno="&j&"&type="&typehere&"&noflag="&flaghere&"&pubtime="&timehere&"&key="&keyhere&"&searchtype="&searchtype&">第"&j&"页</a> ")
next

rolandzhang 2003-02-21

打赏
举报

楼上的朋友们说了这么多方法，能否举李说明，在下谢谢了！

续：******朋友（denghai）帮忙，高分查看这段代码:查询关键字分页显示时，第一页正常，从第二页开始，就按查询所有记录显示了？******

相关推荐

续：朋友（denghai）帮忙，高分查看这段代码:查询关键字分页显示时，第一页正常，从第二页开始，就按查询所有记录显示了？