📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% If session("Admin")<>"" Then
Response.Redirect("Manage/Manager.asp")
End if
%>
<%
riqi=cint(Request.QueryString("date"))
If Session("add")<>"" Then
Session("add")=""
Session("month")=cint(Session("month"))+1
If Session("month")=13 Then
Session("month")=1
Session("year")=cint(Session("year"))+1
End If
End If
If Session("minus")<>"" Then
Session("minus")=""
Session("month")=Session("month")-1
If Session("month")=0 Then
Session("month")=12
Session("year")=Session("year")-1
End If
End If
If Session("year")="" Then
Session("year")=cint(year(date()))
Session("month")=cint(month(date()))
Session("day")=cint(day(date()))
End If
If Request.Querystring("date")<>"" Then
Session("day")=riqi
End If
months=Session("month")
If months=1 or months=3 or months=5 or months=7 or months=8 or months=10 or months=12 Then
sum=31
Else
If months=2 Then
If years Mod 100=0 and years Mod 4=0 Then
sum=29
Else
sum=28
End If
Else
sum=30
End If
End If
if Session("day")>sum then
Session("day")=sum
riqi=sum
end if
times=cdate(Session("year")&"-"&Session("month")&"-"&Session("day"))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
<title>网络新闻中心首页</title>
<link rel="stylesheet" href="Css/Style.css">
<script src="Js/Status.js"></SCRIPT>
<script src="Js/Manage.js"></script>
<script src="Js/Win.js"></script>
</head><body topmargin="0" leftmargin="0" onblur="ed()">
<!-- 导航条部分 -->
<!--#include file="Top.asp" -->
<table width="800" height="1035" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#F7F3F7" class="wenbenkuang">
<tr valign="middle" bgcolor="#214994">
<td height="20" colspan="2"> <table width="724" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="post" action="Search.asp" name="search">
<tr>
<td width="100" height="20"><div align="right"><span class="style6">站内新闻搜索</span></div></td>
<td width="129"><div align="center" class="style6">
<div align="right">内容关键字： </div>
</div></td>
<td width="210"><input name="keyword" type="text" class="wenbenkuang" size="35"></td>
<td width="184"><div align="center">
<Select name="id" class="wenbenkuang1">
<option value="1" Selected>时政要闻</option>
<option value="2">经济动向</option>
<option value="3">世界军事</option>
<option value="4">科学教育</option>
<option value="5">法治道德</option>
<option value="6">社会现象</option>
<option value="7">体育世界</option>
<option value="8">时尚娱乐</option>
</Select>
</div></td>
<td width="101"><input name="Submit6" type="submit" class="go-wenbenkuang3" value="确认查询"></td>
</tr>
</form>
</table></td>
</tr>
<tr class="wenbenkuang">
<td width="608" height="992" valign="top"> <table width="609" height="992" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="304" height="258"><table width="284" height="233" border="0" align="center" cellpadding="0" cellspacing="0" background="Image/BG1.gIf">
<tr>
<td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="baseline"> <div align="center">
<table width="267" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45"> </td>
<td width="202" valign="bottom" class="style9"> 时 政 要 闻</td>
<td width="20"> </td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0">
<!-- #include File="Conn/conn.asp" -->
<%
sql="Select top 6 * from tb_News where Style='时政要闻' and IssueDate=#"×&"#"
rs.open sql,conn
While Not rs.Eof
%>
<tr>
<td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td>
<td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')">
<%If len(rs("Title"))>15 Then
Response.Write(left(rs("Title"),13)&"...")
Else
Response.Write(rs("Title"))
End If %>
</A> </td>
</tr>
<%
rs.movenext
Wend
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
</table></td>
</tr>
<tr>
<td height="20"> </td>
</tr>
</table></td>
</tr>
</table></td>
<td width="303" height="258"><table width="284" height="233" border="0" align="center" cellpadding="0" cellspacing="0" background="Image/BG1.gIf">
<tr>
<td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45"> </td>
<td width="202" valign="bottom" class="style9"> 经 济 动 向</td>
<td width="20"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0">
<!-- #include File="Conn/conn.asp" -->
<%
sql="Select top 6 * from tb_News where Style='经济动向' and IssueDate=#"×&"#"
rs.open sql,conn
While Not rs.Eof
%>
<tr>
<td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td>
<td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')">
<%If len(rs("Title"))>12 Then Response.Write(left(rs("Title"),10)&"...") Else Response.Write(rs("Title")) End If %>
</A> </td>
</tr>
<%
rs.movenext
Wend
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
</table></td>
</tr>
<tr>
<td height="20"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="253"><div align="center">
<table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf">
<tr>
<td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45"> </td>
<td width="202" valign="bottom" class="style9"> 世 界 军 事</td>
<td width="20"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0">
<!-- #include File="Conn/conn.asp" -->
<%
sql="Select top 6 * from tb_News where Style='世界军事' and IssueDate=#"×&"#"
rs.open sql,conn
While Not rs.Eof
%>
<tr>
<td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td>
<td width="200"><a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')">
<%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %>
</A></td>
</tr>
<%
rs.movenext
Wend
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
</table></td>
</tr>
<tr>
<td height="20"> </td>
</tr>
</table></td>
</tr>
</table>
</div></td>
<td height="253"><div align="center">
<table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf">
<tr>
<td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45"> </td>
<td width="202" valign="bottom" class="style9"> 科 学 教 育</td>
<td width="20"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="203"> <table width="284" height="203" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td valign="top"> <table width="282" border="0" cellpadding="0" cellspacing="0">
<!-- #include File="Conn/conn.asp" -->
<%
sql="Select top 6 * from tb_News where Style='科学教育' and IssueDate=#"×&"#"
rs.open sql,conn
While Not rs.Eof
%>
<tr>
<td width="89" height="20"><div align="center">【<%=rs("Type")%>】</div></td>
<td width="200"> <a href="#" onclick="window.open('Show.asp?id=<%=rs("ID")%>','详细内容查看','width=630,height=400,scrollbars=yes,toolbar=no,location=no,status=no,menubar=no')">
<%If len(cstr(rs("Title")))>12 Then Response.Write(left(cstr(rs("Title")),10)&"...") Else Response.Write(rs("Title")) End If %>
</A> </td>
</tr>
<%
rs.movenext
Wend
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
</table></td>
</tr>
<tr>
<td height="20"> </td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="248"><div align="center">
<table width="284" height="233" border="0" cellpadding="0" cellspacing="0" background="Image/BG1.gIf">
<tr>
<td height="30" valign="top"> <table width="284" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="bottom" class="style9"> <table width="267" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="45"> </td>
<td width="202" valign="bottom" class="style9"> 法 治 道 德</td>
<td width="20"> </td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -