📄 wmcms_rbcs.asp
字号:
<td width="6" bgcolor="#FFFFFF"></td>
<!--右侧新增开始-->
<td width="236" bgcolor="#FFFFFF" valign="top" style="border-left: 1px solid #8A0000 ; border-top: 1px solid #8A0000 ; border-bottom: 1px solid #8A0000 ; border-right: 1px solid #8A0000 ">
<table width="100%" border="0" cellspacing="0" cellpadding="0" >
<!--右侧公告开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 公示公告<b></font> <a href="Board.asp" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr><td>
<!--#include file="WmCms_board.asp"-->
</td></tr>
<!--右侧公告结束-->
<!--右侧查询开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 公文检索<b></font> <a href="#" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr>
<form method="post" name="myform" action="Result.asp" target="newwindow">
<td width="236" valign="middle">
<div align="center"><br>
<!--#include file=search.asp-->
</div><br></td>
</form>
</tr>
<!--右侧查询结束-->
<!--右侧邮箱开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 邮箱登录<b></font> <a href="#" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr><td>
<!--#include file="WmCms_Email.asp"-->
</td></tr>
<!--右侧邮箱结束-->
<!--热点与最新开始-------------------------------->
<tr><td>
<table width="236" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="Layer6">
<tr>
<td><img src="Images/wmcms_rdnewa.jpg" width="236" height="32" border="0" usemap="#Map6" /></td>
</tr>
<tr>
<td align="center" valign="top">
<!--热点信息开始-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="98%" id="AutoNumber5">
<%
dim ii
ii = 0
set rs=server.CreateObject("ADODB.RecordSet")
if DbType = "MSSQL" then
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where checkked=1 order by click DESC" '选择全部，where updatetime>'"& now()-30 &"' and 选择本月
else
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where checkked=1 order by click DESC" '选择全部，where (updatetime>#"& now()-30 &"#) and 选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td align=center><br>暂 无<br><br></td></tr>"
else
do while not rs.eof%>
<tr>
<td height=18> <img src="images/dian.gif" border="0" height="20">
<%if rs("picnews")=1 then%><img src="images/news_img.gif"> <%end if%>
<a class=middle href="Article.asp?NewsID=<%=rs("NewsID")%>" title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),24)%></a><font color=#666666>[<%=rs("click")%>]
<%if rs("goodnews")="1" then%>
<img src="images/g.gif" >
<%end if%></font><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
</td>
</tr>
<% ii = ii + 1
if ii>top_txt-1 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table></td>
</tr>
</table>
<!--热点信息结束-->
<!--最新发布开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="Layer7">
<tr>
<td ><img src="Images/wmcms_rdnewb.jpg" width="236" height="32" border="0" usemap="#Map7" /></td>
</tr>
<tr>
<td align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="98%" id="AutoNumber5">
<%
dim newii
newii = 0
set rs=server.CreateObject("ADODB.RecordSet")
if DbType = "MSSQL" then
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where checkked=1 order by UpdateTime DESC" '选择全部，where updatetime>'"& now()-30 &"' and 选择本月
else
rs.Source="select top " & top_txt & " * from "& db_News_Table &" where checkked=1 order by UpdateTime DESC" '选择全部，where (updatetime>#"& now()-30 &"#) and 选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td align=center><br>暂 无<br><br></td></tr>"
else
do while not rs.eof
if showyear=1 then
datetime=" <font class=middle>" & year(rs("UpdateTime")) &"/"& Month(rs("UpdateTime")) &"/"& Day(rs("UpdateTime")) &"</font>"
else
datetime=" <font class=middle>"& Month(rs("UpdateTime")) &"/"& Day(rs("UpdateTime")) &"</font>"
end if
%>
<tr>
<td height=18> <img src="images/dian.gif" border="0" height="20">
<%if rs("picnews")=1 then%><img src="images/news_img.gif"> <%end if%>
<a class=middle href="Article.asp?NewsID=<%=rs("NewsID")%>" title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),22)%></a><%=datetime%>
<%if rs("goodnews")="1" then%>
<img src="images/g.gif" >
<%end if%><div style='border-top:1px dashed #cccccc;height: 1px;overflow:hidden'></div>
</td>
</tr>
<% newii = newii + 1
if newii>top_txt-1 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table></td>
</tr>
</table>
<!--最新发布结束-->
</td>
</tr>
</table>
<map name="Map6" id="Map6">
<area onmouseover=javascript:showdep(Layer6);shape="rect" coords="3,3,161,31" />
<area onmouseover=javascript:showdep(Layer7);shape="rect" coords="160,0,234,34" />
</map>
<map name="Map7" id="Map7">
<area onmouseover=javascript:showdep(Layer6);shape="rect" coords="5,2,78,28" />
<area onmouseover=javascript:showdep(Layer7);shape="rect" coords="79,2,231,28" />
</map>
<SCRIPT>
document.all.Layer7.style.display="none";
document.all.Layer7.style.visibility="hidden";
function showdep(taobk) {
document.all.Layer6.style.display="none";
document.all.Layer7.style.display="none";
taobk.style.display="";
taobk.style.visibility="visible";
}
</SCRIPT>
</td></tr>
<!--热点与最新结束-->
<!--留言评论开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 最新留言<b></font> <a href="GuestBook.asp" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr><td><!--include file="ReviewIndex.asp"--></td></tr>
<tr><td>
<%
PageShowSize = 10 '每页显示多少个页
MyPageSize = 10 '每页显示多少条文章
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E6D9A4" id="AutoNumber1" style="border-collapse: collapse">
<tr class="TDtop1" align="center">
<td width="20%" height="25" bgcolor="#ffffff"><span class="top1">类型</span></td>
<td width="80%" height="25" bgcolor="#ffffff"><span class="top1">留言内容</span></td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Review_Table &" where passed=1 order by ReviewId DESC"
rs.Open rs.Source,conn,1,1
If Not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
rs.absolutepage = MyPage
total = rs.RecordCount
i = 0
do until rs.Eof or i = rs.PageSize
if rs("title")<>"" then
title=nohtml(CheckStr(trim(rs("title"))))'获取表格中留言字段内容并替换格式符
DisplayTopic=CutStr(title,32)
else
title=nohtml(CheckStr(trim(rs("Content"))))'获取表格中留言字段内容并替换格式符
DisplayTopic=CutStr(title,32)
end if
if rs("reply")<>"" then
reply=trim(rs("reply"))
reply=mid(reply,1,18)
else
reply="处理中,请您耐心等候..."
end if
%>
<%if trim(rs("isqianshou"))="0" then%>
<tr bgcolor=ffffff>
<td height="23" align=center bgcolor="#ffffff" >
<%if rs("NewsID")>0 then%>
<font color="#cccccc" >评论</font>
<%else%>
<font color=red >留言</font>
<%end if%> </td>
<td align="left" bgcolor="#ffffff">
<%if rs("NewsID")>0 then%>
·<a class=middle2 href="<%=path%>Article.asp?NewsID=<%=rs("NewsID")%>" target="_black"><%=CutStr(DisplayTopic,24)%></a>
<%else%>
·<a class=middle2 href="<%=path%>GuestBook.asp?ReViewID=<%=rs("ReViewID")%>" target="_black"><%=CutStr(DisplayTopic,24)%></a>
<%end if%>
</td>
</tr>
<%end if%>
<%
Rs.MoveNext
i = i + 1
loop
else
Response.write "<tr><td bgcolor=#ffffff align=center valign=middle colspan=3 height=80> <font color=red >还未收到需办理的事项！</font></td></tr>"
End If%>
</table>
</td></tr>
<!--留言评论结束-->
</table>
</td>
<!--左侧新增结束-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -