📄 more.asp

📁 北京商务网
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><META content="text/html; charset=gb2312" http-equiv=Content-Type><BODY><script LANGUAGE="JavaScript">function goHist(a) {history.go(a);}</script><SCRIPT>function view1(url){ var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); }</SCRIPT><%const MaxPerPage=15 '每页显示信息数目 dim totalPut dim CurrentPagedim TotalPagesdim i,jdim keywordkeyword=request("title")title=request("txtitle")typeid=request("typeid")newstype=request("newstype")if not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim sqldim rs%><%if typeid="0" thenset rs=server.createobject("adodb.recordset") sql ="select * from hyxx where title like '%"&request("txtitle")&"%' order by NewsID Desc" rs.open sql,conn,1,1elseset rs=server.createobject("adodb.recordset") sql ="select * from hyxx where title like '%"&request("txtitle")&"%' and typeid="&cstr(typeid)&" order by NewsID Desc" rs.open sql,conn,1,1end ifnewstype=rs("typename")if rs.eof and rs.bof then response.write"<SCRIPT language=JavaScript>alert('对不起，没有您要查询的信息！');"response.write"javascript:history.go(-1)</SCRIPT>"else 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 showContentelse if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContentelse currentPage=1 showContentend if end if rs.close end if set rs=nothingsub showContent%><head><LINK href="../css/Style.css" rel=stylesheet type=text/css></head><BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"><STYLE type=text/css>TD {FONT-SIZE: 12px; LINE-HEIGHT: 150%}</STYLE><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber1"><tr><TD vAlign=top bgcolor="#FAFDF9" width="575"><TABLE border=0 cellPadding=0 cellSpacing=0 width="575" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD height=30 width="575" colspan="2"><b><FONT color=#4e68a4>&nbsp;当前位置:<a href="../default.asp"><FONT color=#4e68a4>首页</FONT></a>&gt;&gt;<a href="default.asp"><font color="#4E68A4">行业信息</font></a>&gt;&gt;</FONT><%if typeid="0" then%><FONT class=f3><font color="#000080">所有信息</font><%else%><font color="#FF6600"><%=newstype%></font><%end if%></FONT></b></TD></TR><TR><TD height=37 width="575" colspan="2"><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber3"><tr><TD width=520 style="font-size: 12px; font-family: 宋体; color: #000"><IFRAME frameBorder=0 height=92 marginHeight=1 marginWidth=1 scrolling=no src="../ads/bl.asp" width=538 BORDERCOLOR="#000000" name="I2"></IFRAME></TD><TD align=left style="font-size: 12px; font-family: 宋体; color: #000"><a target="_blank" href="../banner.asp"><IMG border=0 src="../images/520bannernotes.gif"></a></TD></tr></table></center></div></TD></TR><TR><TD width="575" colspan="2">　</TD></TR><TR><TD background="images/bg3.gif" height=30 width="542"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"><tr><TD height=10 width=30></TD><TD height=2></TD></tr><tr><TD width=42>　</TD><TD><b><font color="#000080"><span style="font-size: 10.5pt"><%if typeid="0" then%></span></font><FONT class=f3><font color="#000080"><span style="font-size: 10.5pt">所有信息<%else%><%=newstype%><%end if%></span></font></FONT></b></TD></tr></table></TD><TD height=30 width="33">　</TD></TR><TR><TD height=13 width="575" colspan="2"><div align="center"><center><TABLE border=0 cellPadding=2 cellSpacing=1 width="564" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD colSpan=2 height=10 width="560"></TD></TR><%do while not rs.eof%><TR><TD height=20 width="445"><span style="font-size: 10.5pt">&nbsp;<img src=images/dotitem.gif widht=10 height=12 border=0>&nbsp;</span><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>&typename=<%=rs("typename")%>')"><%=rs("title")%></a></TD><TD align=right width="110"><p align="left">[<%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%>]</TD></TR><% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <TR><TD height=8 width="556" colspan="2"><p align="center"><IMG src="images/CreditDynamic_zxqy_02.gif"></TD><TR><TD align=left height=1 width="445"><%showpage totalput,MaxPerPage,"more.asp"%></TD><%end subfunction 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&"?newtypeid="&newtypeid&">" if CurrentPage<2 then response.write "<table border=0 cellspacing=0 cellpadding=0>" response.write "<tr>"response.write "<td align=left>"response.write "【最前页】【上一页】" else response.write "<table border=0 cellspacing=0 cellpadding=0>"response.write "<tr height=30>"response.write "<td align=left>"response.write "【<a href="&filename&"?page=1&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">" response.write "下一页</a>】【<a href="&filename&"?page="&n&"&txtitle="&keyword&"&typeid="&typeid&"&newstype="&newstype&">最后页</a>】" end if response.write "</form>" response.write "</td>"response.write "</tr>"response.write "</table>"end function%></TR></TBODY></TABLE></center></div></TD></TR></TBODY></TABLE></TD><TD bgcolor="#FAFDF9" width="30">　</TD><TD background="images/CreditDynamic_zxqy_03.gif" vAlign=top height="332" width="170"><DIV align=right><FORM action="more.asp" method=POST><TABLE border=0 cellPadding=0 cellSpacing=0 width=160><TBODY><TR><TD><IMG src="images/CreditDynamic_zxqy_04.gif"></TD></TR><TR><TD background="images/CreditDynamic_zxqy_05.gif" height=60><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="153"><TBODY><TR><TD height=26 width="153" colspan="2"><DIV align=center> <INPUT name=txtitle size=18></DIV></TD></TR><TR><TD height=26 width="75"><DIV align=right> <select name="typeid" size="1" class=f11 style="width: 54; height: 54"><option selected value="0">全部</option><%dim rs2,sql2,selset rs2=server.createobject("adodb.recordset")sql2="select * from hyxxtype"rs2.open sql2,conn,1,1do while not rs2.eofsel="selected" response.write "<option " & sel & " value='"+CStr(rs2("typeID"))+"' name=typeid>"+rs2("type")+"</option>"+chr(13)+chr(10)rs2.movenextlooprs2.close%> </select>&nbsp; </DIV></TD><TD height=26 width="78">&nbsp;<INPUT align=bottom border=0 name=I9 src="images/CreditDynamic_index_search.gif" type=image ></TD></TR></TBODY></TABLE></DIV></TD></TR><TR><TD><img border="0" src="images/fw9.gif"></TD></TR><TR><TD>　</TD></TR><TR><TD><a href="../banner.asp"><img border="0" src="images/fw10.gif"></a></TD></TR><tr><TD><iframe src="../ads/sxgg.asp" width=160 height=421 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe></TD></tr></TBODY></TABLE></FORM></DIV></TD></tr></table><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber4"><tr><td width="100%" background="images/bt3.gif">　</td></tr></table><!--#include file="../inc/end.asp"--></center><html></html><html></html><html></html><html></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -