📄 newsclass.asp
字号:
<! *************************************************************
程序名称：南方数据新闻发布系统 V9.0
程序版权：南方数据 (www.southidc.net)
程序作者：贺伟群 (weiqun)
联系方式：E-mail:hdz2008@163.com QQ: 635495
*************************************************************** >
<!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Skin_css.asp"-->
<!-- #include file="inc/config.asp" -->
<!--#include file="inc/Function.asp"-->
<!-- #include file="Head.asp" -->
<!--#include file="Inc/Const.asp" -->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
BigClassID=replace(Trim(request.QueryString("BigClassID")),"'","")
if BigClassID="" or not IsNumeric(BigClassID) then
BigClass=request("BigClass")
SmallClass=request("SmallClass")
else
sql="select * from 0791idc_BigClass_New where BigClassID="&BigClassID
rs.open sql,conn,1,1
BigClass=rs("BigClassName")
ID=BigClassID
end if
%>
<body topmargin="0">
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" valign="top" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="72" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="tdbg_left" width="190" height="179" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="get" action="News_search.asp">
<tr>
<td height="34" class="title_left"> <img src="Images/smallbook.jpg" width="10" height="10"> <font color="#000000">新
闻 搜 索</font></td>
</tr>
<tr>
<td height="21"><input type="text" name="key" size="19" class="input"></td>
</tr>
<tr>
<td height="21"><select name="otype" class="input">
<option value="title" selected class="input">新闻标题</option>
<option value="msg" class="input">新闻内容</option>
</select> <input type="submit" name="Submit" value="搜索" class="input"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor="#CCCCCC">
<div align="left">
<%
If ISHTML = 1 Then
AutoLink = ""&NewClassName&""&Separated&""&rs("BigClassID")&""&Separated&"1."&HTMLName&""
Else
AutoLink = "NewsClass.asp?BigClass="&BigClass&""
End If
response.write
response.write "<a href="""&AutoLink&""">"&BigClass&"</a>" %></div></td>
</tr>
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From 0791idc_SmallClass_New Where BigClassName='" & BigClass & "'",conn,1,1
if not(rsSmallClass.bof and rsSmallClass.eof) then
do while not rsSmallClass.eof
%>
<tr onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#EFEFEF';" bgColor=#EFEFEF>
<td height="28" bgcolor="#CCCCCC" >
<div align="left"><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"> </a><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"> </a><a href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"><%=rsSmallClass("SmallClassName")%></a></div></td>
</tr>
<%
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
%>
</table></td>
<td width="6"></td>
<td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_right" height="32"> <img src="Images/smallbook.jpg" width="10" height="10"> <a href="index.asp">首页</a>>><a href="NewsClass.asp?BigClass=<%=BigClass%>"><%=BigClass%></a></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClass<>"" and SmallClass <>"" then
sql="select * from 0791idc_news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from 0791idc_news where BigClassName='"&BigClass&"' order by AddDate 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" ><img src="Img/arrow_6.gif" width="11" height="11"></td>
<td width="65%" height="24" style="BORDER-bottom: #999999 1px dotted">
<% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
<% If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs("ID")&"."&HTMLName&""
Else
AutoLink = "shownews.asp?ID="&rs("ID")&""
End If
Response.Write "<a href="""&AutoLink&""">"&rs("TITLE")&"</a>"&VbCrLf
%></td>
<td width="29%" style="BORDER-bottom: #999999 1px dotted"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<font color="#ff0000"><%= RS("hits") %></font>) </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr valign="bottom">
<td height="50" colspan="3" align="center" >
<div align="right">
<% If ISHTML = 1 Then
AutoLinkClass = ""&NewClassName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""
Else
AutoLinkClass = "NewsClass.asp?BigClass="&BigClass&""
End If
response.write "<a href="""&AutoLinkClass&""">更多>>></a>"&VbCrLf %>
<%
If ISHTML = 1 Then
response.write "<form method=Post action=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&">"
if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href="""&NewClassName&""&Separated&""&ID&""&Separated&"1."&HTMLName&""">首页</a> "
response.write "<a href="""&NewClassName&""&Separated&""&ID&""&Separated&""&Page-1&"."&HTMLName&""">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href="""&NewClassName&""&Separated&""&ID&""&Separated&""&Page+1&"."&HTMLName&""">"
response.write "下一页</a> <a href="""&NewClassName&""&Separated&""&ID&""&Separated&""&rs.pagecount&"."&HTMLName&""">尾页</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>条记录/页</form>"
else
response.write "<form method=Post action=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&">"
if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=1>首页</a> "
response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&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>"
end if
%>
</div></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Inc/foot.asp"-->
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -