?? gq.asp
字號(hào):
<!--#include file="top.asp" -->
<!--#include file="inc/chr.asp" -->
<%
strtype=RtnReplaceInt(Request("type"),2)
kword=request("kword")
Select case strtype
Case 1
strname="zwgk"
strname1="本站動(dòng)態(tài)"
Case 2
strname="zwgk"
strname1="市場動(dòng)態(tài)"
End Select
%>
<TITLE><%=title%>—<%=strname1%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="imgb/style.css" type=text/css
rel=stylesheet>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR><TD vAlign=top width=176 bgColor=#99ccff>
<!--#include file="left.asp" --></TD>
<TD bgColor=#ffffff valign="top">
<TABLE
style="BACKGROUND-POSITION: right top; BACKGROUND-IMAGE: url(img/hwxx_bg1.jpg); BACKGROUND-REPEAT: no-repeat"
cellSpacing=0 cellPadding=0 width=582 border=0>
<TBODY>
<TR>
<TD><img border="0" src="hw.asp12.gif" width="595" height="23"></TD></TR>
<TR>
<TD><SPAN class=style7>您現(xiàn)在的位置 》</SPAN><strong><%=strname1%> </strong></TD></TR>
<TR>
<TD></TD></TR>
<TR>
<TD height=6></TD></TR>
<TR>
<TD height=6></TD></TR>
<TR>
<TD height=6>
<table width="589" border="0" id="table9">
<tr>
<td>
<table border="0" style="border-collapse: collapse" width="99%" cellpadding="0">
<tr>
<td><td vAlign="top" width="557">
<table cellSpacing="0" cellPadding="0" width="95%" align="center" border="0">
<tr>
<td align="middle"><table border="0" style="border-collapse: collapse" width="98%" cellpadding="0">
<%
if kword<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
'分頁代碼1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分頁代碼結(jié)束1######
sql="select id,stype,time,hits,tit,D_SavePathFileName from qynews where stype="&strtype&" and (tit like '%"&kword&"%') "
sql=sql&"order by id desc"
rs.open sql,conn,1,1
%><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="79%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
<tr>
<td width="99%">
<p align="center"> 查詢結(jié)果—共有<font color="#000073">（<%=rs.recordcount%>）</font>條信息符合關(guān)鍵詞:<font color="#000073"><%=request("kword")%></font>
</td>
</tr>
</table>
</center>
</div>
<%end if
if kword="" then
set rs=server.CreateObject("Adodb.Recordset")
'分頁代碼1#######
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'分頁代碼結(jié)束1######
sql="select id,stype,time,hits,tit,D_SavePathFileName from qynews where stype="&strtype&" order by id desc"
rs.open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.write "<p align=center>沒有符合條件的記錄！<br>【<a href='javascript:window.close()'>關(guān)閉窗口</a>】</p>"
response.end
end if
'分頁代碼2#######
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
'分頁代碼2結(jié)束####### %>
<%if mmm<>0 then
for iisf=1 to mmm * 16
if rs.eof then exit for
rs.movenext
next
end if
do while not rs.eof
%>
<!--結(jié)束--><tr>
<td>· <%if rs("D_SavePathFileName")<>"" then%>[圖]<%end if%><%if rs("stype")=2 then%><a href="gq.asp?type=2&id=<%=id%>"></a>
<%end if%><%if rs("stype")=3 then%>
<%end if%><a href="showgq.asp?vid=<%=rs("id")%>" target="_blank"><%=rs("tit")%></a> [<%=rs("time")%>,<%=rs("hits")%>]</td>
</tr><%i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
%>
<tr>
<td><div align="center">
<table width="98%" border="0" cellspacing="1" cellpadding="0">
<% if rs.pagecount=1 then %>
<td height="6" colspan="4" valign="bottom" align="right"> <font color="#000000">共有[<font color="#ff0000"><%=rs.recordcount%></font>]條記錄
以上是[<font color="red">1～<%=rs.recordcount%></font>]條</font></td>
</tr>
<tr>
<td width="600" height="7" colspan="4" valign="bottom" align="right"></td>
</tr>
<%else%>
<tr>
<td height="6" colspan="4" valign="bottom" align="right"><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
if pagecount=1 then page_start=1
page_end=rs.pagesize*pagecount
if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
共有[<font color="#ff0000"><%=rs.recordcount%></font>]條記錄 以上是[<font color="red"><%=page_start%>～<%=page_end%></font>]條</font></td>
</tr>
<tr>
<td height="6" colspan="4" valign="bottom" align="right">
<% response.write"<form name=go2to form method=Post action='?kword="&kword& "&type="&strtype&"'>"
response.write "<font color='#000064'>◆ </font>"
if pagecount=1 then
response.write "<font color='#000064'>首頁 上一頁</font> "
else
response.write "<a href=?kword="&kword& "&type="&strtype&"&page=1><font color='0000BE'>首頁</font></a> "
response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(pagecount-1)+"><font color='0000BE'>上一頁</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font color='#000064'>下一頁 尾頁</font>"
else
response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(pagecount+1)+"><font color='0000BE'>下一頁</font></a> "
response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(rs.PageCount)+"><font color='0000BE'>尾頁</font></a>"
end if
response.write "<font color='000064'> 頁次:<font color=blue>"&pagecount&"</font>/"&rs.pagecount&"頁</font>"
response.write "</form>"%></td>
</tr>
<%end if%>
</table>
</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</td></tr>
</table></tr>
</table></td>
</tr>
</table>
</TD></TR>
<TR>
<TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
<!--#include file="end.asp" -->
</BODY></HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -