|
</table> <script language="javascript"> function putobject(obj_name,parentid) { eval("window.opener.document.goodsAdd." + parentid + ".value='" + obj_name + "'"); return window.close(); } function putobject(obj_name1,city) { eval("window.opener.document.goodsAdd." + city + ".value='" + obj_name1 + "'"); return window.close(); } </script> <script language="vbs"> sub handle dim page,page1 if isnumeric(document.frf.page.value) then if replace(document.frf.page.value," ","")<>"" and cint(document.frf.page.value) <= cint(DOCUMENT.FRF.TOP.VALUE) and cint(document.frf.page.value) > 0 then page1=document.frf.page.value location.href="city.asp?page=" & page1 & "&" & "objectname=" & document.frf.objectname.value end if end if end sub </script> <html> <BODY> <% Dim RecordPerPage, absPageNum, TotalPages, absRecordNum,flage flage=0 RecordPerPage =2 '每页显示的记录数 If Request.QueryString("page") = "" Then absPageNum = 1 Else flage=1 absPageNum = Request.QueryString("page") select case Request.QueryString("direction") case 1 absPageNum = 1 case 2 if absPageNum = 1 then absPageNum = 1 else absPageNum = absPageNum - 1 end if case 3 if absPageNum =session("TotalPages") then absPageNum =session("TotalPages") else absPageNum = absPageNum + 1 end if case 4 absPageNum = session("TotalPages") End select if request.querystring("page") = "" and replace(request.form("page")," ","") = "" then dim conn,strsql,rst set conn = server.CreateObject("adodb.connection") conn.Open Application("connstr") set rst = Server.CreateObject("adodb.recordset") strsql ="select * from cs " session("rst").Open strsql,conn,1,3 end if if Request.Form("submit")="查询" then absPageNum = 1 if Request.querystring("cityno")<>"" and Request.querystring("startcity") = "" then strsql="select id,cs from cs where id like '%" + Request.querystring("cityno")+"%'" else strsql="select * from cs" session("rst").Open strsql,conn,1,3 session("rst").PageSize=perpage totalpages=session("rst").PageCount if session("rst").RecordCount=0 then %> <script language = "vbscript"> alert("无符合要求记录") </script> <% else session("rst").CacheSize = RecordPerPage session("rst").PageSize = RecordPerPage '设置每一页的记录数 session("TotalPages") = session("rst").PageCount if flage=1 then If Not(session("rst").EOF) Then session("rst").AbsolutePage = absPageNum End If end if %> <BR> <form action="" method="post" name="queryform"> <table width="95%" border="0" cellspacing=0 cellpadding=0 bordercolor=#cccccc align=center> <tr> <td align=center> <font size="2">城市编号</font> <input type=text size=10 name="cityNo" class=input1 style="WIDTH: 61px; HEIGHT: 19px" > </td> <td> <font size="2">城市名称</font> <input type=text size=10 name=startcity class=input1 style="WIDTH: 61px; HEIGHT: 19px" > <input type="submit" name="submit" value="查 询" > </td> </tr> </table> </form> <table width=95% cellpadding=0 cellspacing=0> <tr bgcolor=Black> <td align=center> <table border=1 bordercolor=white cellspacing=0 cellpadding=0 width=600> <tr bordercolor=black bgcolor=LightSteelBlue> <tr bgcolor=LightSteelBlue> <td align=center width=12.5% > <font size="2"> 城市编号</font></td> <td align=center width=12.5%> <font size="2">城市名称</td></font> </tr> <% for absRecordNum=1 to session("rst").PageSize %> <td align=center width=150 bgColor=#ddffdd class=row> <font size="2"><a href="#" onclick="javascript:putobject('<%=trim(session("rst")("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(session("rst")("id"))%> </font></td> <td align=center width=150 bgColor=#ddffdd class=row> <font size="2"> <a href="#" onclick="javascript:putobject('<%=trim(session("rst")("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(session("rst")("cs"))%> </font></a></td> </tr> <% session("rst").MoveNext If session("rst").EOF Then session("rst").movefirst End If Next session("rst").Close:conn.close set session("rst")=nothing:set conn=nothing %> </table> <tr bgcolor=#eef7ff> <td colspan="6"> <table width='100%'> <tbody> <tr> <Form Action = "" Method="Post" name="frf"> <td> <input type="button" class="f0" name="gotopage" value="转到" class="buttonred" onclick="vbscript:handle"> <input type="text" name="page" class="f0" size="4" maxlength="3"> <Input Type="Hidden" Name="TOP" Value="<%=session("TotalPages")%>"> <input type="hidden" name="objectname" value="<%=request.querystring("objectname")%>"> </td> <td align='right'> <a href="city.asp?direction=1&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>">>|</a> <a href="city.asp?direction=2&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>">></a> <%=absPageNum%>/<%=session("TotalPages")%> <a href="city.asp?direction=3&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>"><</a> <a href="city.asp?direction=4&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>"><|</a> </td> </form> </tr> </tbody> </table> </td> </tr> </body> </html> </body> </html> 大家看看有什么问题嘛? |
|
|
|
|
|
不看，这么长的代码就给10分，太抠门了，坚决不看！
|
|
|
|
不是啊!我就剩下10分了!我也不想的,拜托了
|
|
|
|
读别人的程序太难了
<% rs.open "SELECT...",,1,1 rs.pagesize=10 if request("Page")="" then page=1 else page=request("Page") end if rs.absolutepage=page response.write "10篇/页 "&page&"/"&rs.recordcount '首页上一页 if cint(page)>1 then response.write "<a href='***.asp?Page=1'>首页</a>|<a href='***.asp?Page="&page-1&"'>上一页</a>|" else response.write "首页|上一页|" end if '列出页号 for i=1 to rs.pagecount if i<>rs.absolutepage then response.write "<a href=***.asp?Page="&i&" class=a2>"&i&"</a> " else response.write i&" " end if next '末页下一页 if cint(page)<rs.pagecount then response.write "|<a href='***.asp?Page="&page+1&"'>下一页</a>|<a href='***.asp?Page="&rs.pagecount&"'>末页</a>" else response.write "|下一页|末页" end if '用列表框 %> <select name="page" onChange="location=this.options[this.selectedIndex].value"> <%for i=1 to rs.pagecount if i=rs.absolutepage then response.write "<option value=***.asp?Page="&i&" selected>"&i&"</option>" else response.write "<option value=***.asp?Page="&i&">"&i&"</option>" end if next%> </select> <% ... ... rs.close %> |
|
|
关闭