📄 otype.asp
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<%
owen1=request("owen1")
owen2=request("owen2")
%><body topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" valign="top" background="Style/<%=Root%>/cont_left_bg01.gif"><img src="Style/<%=Root%>/cont_left_img01.gif" width="30" height="431"></td>
<td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/xwss.gif" width="200" height="67"></td>
</tr>
<tr>
<td align="center" valign="top" background="Style/<%=Root%>/left_bg01.gif"><table width="89%" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="get" action="News_search.asp">
<tr>
<td height="30" align="center" bgcolor="#F4F4F4"><input type="text" name="key" size="19" class="input"></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#F4F4F4"><select name="otype" class="input">
<option value="title" selected class="input">新闻标题</option>
<option value="msg" class="input">新闻内容</option>
</select>
<input type="submit" name="Submit2" value="搜索" class="input"></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img01.gif" width="200" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="63" valign="bottom"><img src="Style/<%=Root%>/rmxw.gif" width="200" height="51"></td>
</tr>
<tr>
<td style="padding-top:10px; " height="182" align="center" valign="top" background="Style/<%=Root%>/left_bg02.gif"><table width="94%" border="0" cellpadding="0" cellspacing="0">
<%
t=0
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from NEWS order by id desc"
rs.Open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
t=t+1
%>
<tr>
<td width="17%" height="22" align="center" class="top_m_txt01"><%= t %></td>
<td width="82%"><a href="shownews.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank" class="top_m_txt01"><%=left(rs("title"),11)%></a></td>
</tr>
<%
if t>=10 then exit do
rs.movenext
loop
else
response.write "<tr><td align=center colspan=2 bgcolor=#E8E8F4>éD?Tê???</td></tr>"
end if
rs.close
%>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img02.gif" width="200" height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="Style/<%=Root%>/xsrx_img.gif" width="185" height="51" border="0"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/cont_img01.gif" width="580" height="17"></td>
</tr>
<tr>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
<td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45" align="left" valign="top"><img src="Style/<%=Root%>/xwzx.gif" width="298" height="36"></td>
</tr>
<tr>
<td valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><img src="Style/<%=Root%>/gsjs_img01.gif" width="540" height="19"></td>
</tr>
<tr>
<td width="22" valign="top" background="Style/<%=Root%>/gsjs_left_bg01.gif"><img src="Style/<%=Root%>/gsjs_img03.gif" width="22" height="149"></td>
<td width="498" rowspan="2" align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td width="6%" height="24" align="center" class="top_m_txt01" >◎</td>
<td height="24" style="BORDER-bottom: #999999 1px dotted"> <span class="top_m_txt01">
<% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
<a href="shownews.asp?id=<%= RS("id") %>" target="_blank" class="top_m_txt01"><%= RS("TITLE") %></a> </span><font color="#999999" class="top_m_txt01">[<%= RS("infotime") %>] (阅读<font color="#ff0000"><%= RS("hits") %></font>次) </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr align="right" valign="bottom">
<td height="50" colspan="2" ><form action="otype.asp?owen1=<%=owen1%>&owen2=<%=owen2%>" method=Post class="top_m_txt01">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a> "
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</form></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
<p> </p></td>
<td width="20" background="Style/<%=Root%>/gsjs_right_bg01.gif"></td>
</tr>
<tr>
<td background="Style/<%=Root%>/gsjs_bg01.gif"></td>
<td valign="bottom" background="Style/<%=Root%>/gsjs_right_bg01.gif"><img src="Style/<%=Root%>/gsjs_img04.gif" width="20" height="148"></td>
</tr>
<tr>
<td colspan="3"><img src="Style/<%=Root%>/gsjs_img02.gif" width="540" height="18"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/cont_img02.gif" width="580" height="17"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="33" valign="top" background="Style/<%=Root%>/cont_right_bg01.gif"><img src="Style/<%=Root%>/cont_right_img01.gif" width="33" height="431"></td>
</tr>
<tr>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img01.gif" width="30" height="29"></td>
<td align="center" valign="middle" background="Style/<%=Root%>/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57"><img src="Style/<%=Root%>/yqlj_img01.gif" width="57" height="15"></td>
<td width="247"><MARQUEE
align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
<% call ShowAnnounce(5) %>
</MARQUEE></td>
</tr>
</table></td>
<td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
</tr>
</table></td>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img02.gif" width="33" height="29"></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Inc/foot.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -