📄 news.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<%
Dim SQL,Rs,i,TypeName,Typeid,N_TypeName
Dim Param
Dim Title,FileName,Path,DateAndTime
Param = Replace_Text(Request.QueryString("Param"))
Check_Id(Param)
'//获取新闻类别名称
SQL = "Select Type From [pH_New_Type] Where Typeid="&Cstr(Param)
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
Rs.Close
Call CloseDB()
Response.write "没有指定的新闻类别！"
Response.End()
End if
N_TypeName = Rs(0)
Rs.Close
'//开始从数据库中获取某类别的新闻
SQL = "Select Title,FileName,Path,DateAndTime From [pH_New_Info] Where Typeid="&Param&" And Flag=1 Order By DateAndTime Desc"
Rs.Open SQL,Conn,1,1
Rs.Pagesize = 25
Psize = Rs.PageSize
PCount = Rs.PageCount
RCount = Rs.RecordCount
PageNo = Cint(Request.QueryString("PageNo"))
If PageNo < 1 Then
PageNo = 1
Elseif PageNo > PCount Then
PageNo = PCount
End if
Thepage = (PageNo-1)*Psize
If Not Rs.Eof Then Rs.AbsolutePage = PageNo
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Style.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName %> -- 新闻资讯</title>
</head>
<script language="JavaScript">
function search_check(){
if (document.theForm.key.value=="请输入文章关键字"){
alert("-请输入文章关键字-");
document.theForm.key.focus();
return false;
}
}
</script>
<body>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Header.asp" --></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="209" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">新闻栏目</font></td>
</tr>
<tr>
<td>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
SQL = "Select Top 10 * From [pH_New_Type]"
Set Re = Conn.Execute(SQL)
While Not Re.Eof
TypeName = Re("Type")
Typeid = Re("Typeid")
%>
<tr>
<td height="20"><img src="../Images/icon3.gif" width="12" height="16">
<a href="?Param=<%= Typeid %>"><%= TypeName %></a></td>
</tr>
<%
Re.Movenext
Wend
Re.Close
%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0" class="table2">
<form action="News_Search.asp" method="post" target="_blank" name="theForm" onSubmit="return search_check()">
<tr>
<td height="5" align="center"></td>
</tr>
<tr>
<td height="25" align="center">
<select name="class" style="width:140px;">
<option value="0">文章类别不限</option>
<%
SQL = "Select * From [pH_New_Type]"
Set Re = Conn.Execute(SQL)
While Not Re.Eof
TypeName = Re("Type")
Typeid = Re("Typeid")
%>
<option value="<%= Typeid %>"><%= TypeName %></option>
<%
Re.Movenext
Wend
Re.Close
Set Re = Nothing
%>
</select>
</td>
</tr>
<tr>
<td height="25" align="center"> <input name="key" style="width:140px;" size="16" maxlength=50 value="请输入文章关键字" onClick="this.value='';"></td>
</tr>
<tr>
<td height="25" align="center"><input type="submit" name="Submit3" value=" 开 始 搜 索 ">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">热门信息</font></td>
</tr>
<tr>
<td> <%= Cls_News_Param("HotNew=1",6,14) %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">相关推荐</font></td>
</tr>
<tr>
<td> <%= Cls_News_Param("BestNew=1",6,14) %></td>
</tr>
</table>
</td>
<td width="5"> </td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="500" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a"><%= N_TypeName %></font></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
For i = 1 To Psize
If Rs.Eof Then Exit For
Title = Rs("Title")
FileName = Rs("FileName")
Path = Rs("Path")
DateAndTime = Year(Rs("DateAndTime"))&"."&Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime"))
%>
<tr>
<td height="25"> ·<a href="../<%= Path %>/<%= FileName %>" target="_blank" class="font-13"><%= Title %></a>
<font size="1" color="#999999">[<%= DateAndTime %>]</font></td>
</tr>
<%
Rs.Movenext
Next
%>
</table>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="4" bgcolor="#EEF7FF">
<tr>
<td width="50%" height="25">共<font color="#FF0000"><%= RCount %></font>条
分<font color="#FF0000"><%= PCount %></font>页 | 当前第<font color="#FF0000"><%= PageNo %></font>页</td>
<td width="50%" align="right">
<%
If PageNo > 1 Then
Response.write "<a href=""?PageNo=1&Param="&Param&""">首页</a> "
Response.write "<a href=""?PageNo="&PageNo-1&"&Param="&Param&""">上页</a> "
Else
Response.write "首页 "
Response.write "上页 "
End if
%>
<%
If PageNo < PCount Then
Response.write "<a href=""?PageNo="&PageNo+1&"&Param="&Param&""">下页</a> "
Response.write "<a href=""?PageNo="&PCount&"&Param="&Param&""">尾页</a>"
Else
Response.write "下页 "
Response.write "尾页"
End if
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="5"> </td>
<td width="150" valign="top" bgcolor="#F5F5F5">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="70" align="center"><img src="../Ad_Imgs/148_60_1(1).gif" width="148" height="60"></td>
</tr>
<tr>
<td height="70" align="center"><img src="../Ad_Imgs/148_60_1(2).gif" width="148" height="60"></td>
</tr>
<tr>
<td height="70" align="center"><img src="../Ad_Imgs/148_60_1(3).gif" width="148" height="60"></td>
</tr>
<tr>
<td height="70" align="center"><img src="../Ad_Imgs/148_60_1(4).gif" width="148" height="60"></td>
</tr>
<tr>
<td height="70" align="center"><img src="../Ad_Imgs/148_60_1(5).gif" width="148" height="60"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#eeeeee"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Footer.asp" --></td>
</tr>
</table>
</body>
</html>
<%
Rs.Close
Set Rs = Nothing
CloseDB()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -