📄 news.asp
字号:
<%'--------------------------------------------------------------------------
' Project: AMBER-SOFT网络办公系统
' Module : 公告栏
' By: chaly
' Discription:
'--------------------------------------------------------------------------%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<!--#include virtual="/_inc/VBSRTF.asp"-->
<%
if session("userid")="" then
response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
response.write "<!--"&chr(13)
response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
response.write "//-->"&chr(13)
response.write "</SCRIPT>"&chr(13)
end if
dim iCurrentpage,iRowcount,iPage
iPage=request.querystring("page")
iCurrentpage=trim(request.querystring("iCurrentpage"))
if iCurrentpage="" then
iCurrentpage=1
end if
if iPage<>"" then
iCurrentpage=iPage
end if
iCurrentpage=cINT(iCurrentpage)
oRs.open "select * from IC_NEWS order by ID DESC",oCon,3,3
oRs.pagesize=10
%>
<!--#include virtual="/_inc/Func.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>公司动态</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.unnamed1 { font-size: 9pt; color: #000000; text-decoration: none}
.unnamed2 { font-size: 9pt; color: #666666; text-decoration: none}
a:hover { color: #9999ff; text-decoration: underline}
-->
</style>
<link rel="stylesheet" href="<%=session("css")%>/person.css" type="text/css">
<script language="JavaScript" src="/js/calendar_sel.js"></script>
<script language="JavaScript">
<!--
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="../../images/image--banyuan--cccccc--2.gif" class="unnamed1" align="center">
<tr>
<td width="10%"><img width="8" height="22" src="../../images/image--banyuan--cccccc.gif"><img width="15" height="22" src="../../images/image--banyuan--cccccc--6.gif"></td>
<td width="40%">公司动态</td>
<td align="center"><a href="newsadd.asp?page=<%=iCurrentpage%>"><font face="Arial, Helvetica, sans-serif" color="#999966">新建</font></a></td>
<td align="right" width="6%"><img width="15" height="22" src="../../images/image--banyuan--cccccc--6.gif"><img width="6" height="22" src="../../images/image--banyuan--cccccc--.gif"></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td valign="top">
<table width="100%" border="1" cellspacing="0" cellpadding="1" class="unnamed2" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" align="top">
<tr bgcolor="#E8E8E8">
<td align="center" bgcolor="#F5F5F5">
<%if iCurrentpage=1 then %>
<img src="/images/images/next--v--1.gif" width="17" height="16" align="absmiddle">
<img src="/images/next--.gif" width="17" height="16" align="absmiddle">
<%else%>
<a href="news.asp?iCurrentpage=1&where=<%=where%>"><img src="/images/images/next--v--1.gif" border=0 width="17" height="16" align="absmiddle"></a>
<a href="news.asp?iCurrentpage=<%=iCurrentpage-1%>&where=<%=where%>"><img src="/images/next--.gif" border=0 width="17" height="16" align="absmiddle"></a>
<%end if%>
<%if oRs.recordcount=0 then
response.write "0/0"
else
response.write iCurrentpage &"/" & oRs.pagecount
end if%>
<% if iCurrentpage<oRs.pagecount then %>
<a href="news.asp?iCurrentpage=<%=iCurrentpage+1%>&where=<%=where%>"><img src="/images/next.gif" border=0 width="17" height="16" align="absmiddle" border="0"></a>
<a href="news.asp?iCurrentpage=<%=oRs.pagecount%>&where=<%=where%>"><img src="/images/images/next--v--2.gif" width="17" height="16" border=0 align="absmiddle"></a>
<%else%>
<img src="/images/next.gif" width="17" height="16" align="absmiddle" border="0">
<img src="/images/images/next--v--2.gif" width="17" height="16" align="absmiddle">
<%end if%>
</td>
<td align="center" bgcolor="#F5F5F5"> </td>
<td align="center" bgcolor="#F5F5F5"width="20%"> </td>
<td align="center" bgcolor="#F5F5F5"> </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="1" class="unnamed2" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr valign="top">
<td align="center"><%response.write "[共有" & oRs.recordcount &"个主题] 当前第" & iCurrentpage &"页 [共有" & oRs.pagecount &"页]"%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#666666"><td height="1"><img src="../images/point.gif" width="1" height="1"></td></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="unnamed1" bgcolor="#ECF2FF" height="18">
<tr align="center">
<td width="50"align="center">编号</td>
<td colspan="2">新闻主题</td>
<td width="15%">发布时间</td>
<td width="25%"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#666666">
<td height="1"><img src="/images/point.gif" width="1" height="1"></td>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="2" class="unnamed2">
<%
if not oRs.eof then
oRs.absolutepage=iCurrentpage
iRowcount=0
do while not oRs.eof and iRowcount<oRs.pagesize%>
<tr>
<td width="50"align="center"><%response.write (iCurrentpage-1)*oRs.pagesize+iRowcount+1%></td>
<td colspan="2"> <a href="news_infor.asp?tid=<%=oRs("ID")%>&which=1"><font face="Arial, Helvetica, sans-serif" color="#999966"><%response.write oRs("TOPIC")%></font></a></td>
<td width="15%" align="center"><%response.write oRs("TIME")%></td>
<td width="25%"></td>
</tr>
<%
iRowcount=iRowcount+1
oRs.movenext
loop
else%>
<tr>
<td colspan="2"> </td>
<td width="24%" align="center">现在还没有新闻！</td>
<td width="28%" align="center"></td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
</body>
</form>
</html>
<%
set oRs=nothing
oCon.close
set oCon=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -