📄 morenews.asp
字号:
<%
'*********************************************************************************
'模块名称：专题新闻更多新闻页
'开发人：佟庆涛
'时间：2001年02月07日
'*********************************************************************************
%>
<%
dim rs '数据访问对象
dim sql 'select 语句
dim i '循环控制变量
dim flag '文件头标志
dim infoid '专题编号
%>
<%'数据库连接包含文件 %>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->专题新闻</title>
</head>
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check1(form1){
if (trim(form1.sFrom.value)=='')
{alert('您的E-mail不允许为空!');
form1.sFrom.focus();
form1.sFrom.select();
return (false);
}
if (trim(form1.sFrom.value).length>100)
{alert('您的E-mail超长（100字以内）!');
form1.sFrom.focus();
form1.sFrom.select();
return (false);
}
if ((form1.sFrom.value.indexOf("@") ==-1))
{alert("您的E-mail格式不正确！");
form1.sFrom.focus ();
form1.sFrom.select ();
return (false);
}
if ((form1.sFrom.value.indexOf("<") !=-1) || (form1.sFrom.value.indexOf(">") !=-1)||(form1.sFrom.value.indexOf("'") !=-1)||(form1.sFrom.value.indexOf("\"") !=-1))
{alert("您的E-mail中不允许含有标注！");
form1.sFrom.focus ();
form1.sFrom.select ();
return (false);
}
if (trim(form1.sTo.value)=='')
{alert('您朋友的E-mail不允许为空!');
form1.sTo.focus();
form1.sTo.select();
return (false);
}
if (trim(form1.sTo.value).length>100)
{alert('您的朋友E-mail超长（100字以内）!');
form1.sTo.focus();
form1.sTo.select();
return (false);
}
if ((form1.sTo.value.indexOf("@") ==-1))
{alert("您朋友的E-mail格式不正确！");
form1.sTo.focus ();
form1.sTo.select ();
return (false);
}
if ((form1.sTo.value.indexOf("<") !=-1) || (form1.sTo.value.indexOf(">") !=-1)||(form1.sTo.value.indexOf("'") !=-1)||(form1.sTo.value.indexOf("\"") !=-1))
{alert("您朋友的E-mail中不允许含有标注！");
form1.sTo.focus ();
form1.sTo.select ();
return (false);
}
}
</script>
<%
'定义recordset对象
set rs=server.CreateObject ("adodb.recordset")
%>
<body topmargin="3" leftmargin="3">
<div align="center">
<% '网页头部包含文件
flag="010000"%>
<!--#include file="../include/secondhead.asp"-->
<center>
<!--#include file="include/redian.asp"-->
</center></div>
<div align="center"><center>
<!--#include file="include/sousuo.asp"-->
<table border="0" width="770" cellspacing="0" cellpadding="0"
background="../images/bg-010.gif">
<tr>
<td width="20%" style="border-left: 2px solid rgb(140,204,202)" valign="top"
bgcolor="#0072A8">
<!--#include file="include/zhuanti.asp"-->
<!--#include file="include/diaocha.asp"-->
<!--#include file="include/pengyou.asp"-->
<td width="60%" valign="top"><div align="center"><center><table border="0" width="95%"
cellspacing="0" cellpadding="0">
<tr>
<td width="100%" colspan="2"> </td>
</tr>
<% '输出该新闻专题相关新闻 %>
<%if request("mysql") ="" then
sql="select * from news2_special where left(infoid,8)='"&left(infoid,8)&"' and right(infoid,4)<>'0000' order by regTime desc "
else
sql=request("mysql")
end if
rs.Open sql,conn,3,1
%>
<tr>
<td width="30%" bgcolor="#BB3102" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">追踪报道</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(187,49,2)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<!--#include file="../include/rollpage.asp"-->
<%
if not rs.EOF then
rs.PageSize = 30
rs.AbsolutePage = getPageNo(rs)
for i=1 to rs.PageSize
If rs.EOF Then Exit For
%>
<li><a class="l7"
href="../looknews_zt.asp?infoid=<%=rs("infoid")%>"
target="_blank"><%showbody(rs("newstitle"))%>[<%showbody(rs("derivation"))%>]</a><font size="2" color="#808080"> <%showtime(rs("regTime"))%></font> <br>
</li>
<%rs.MoveNext
if right(trim(cstr(i)),1)="0" then '隔十行空一行*******************************************
Response.Write "<br>"
end if
If rs.EOF Then Exit For
next
end if
%>
</ul>
<p align="right"> </td>
</tr>
<tr>
<td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
</tr>
<% rs.Close %>
<tr>
<td width="100%" height="19" colspan="2"></td>
</tr>
</table>
</center></div></td>
<td width="20%" valign="top" bgcolor="#0072A8">
<!--#include file="include/shendu.asp"-->
<p><br>
</p>
<center>
<!--#include file="include/jiaodian.asp"-->
<p><br>
</p>
<!--#include file="include/link.asp"-->
</center></div></td>
</tr>
<tr>
<td width="100%" bgcolor="#32BEB7" height="30"><p align="center"><br>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#00A49E" height="20" background="../images/bg-012.gif"></td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</div>
<hr width="90%" size="1" color="#BB3102">
<div align="center"><center>
<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -