📄 wmcms_rmap.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 " & int(top_txt/2) & " * from "& db_News_Table &" where checkked=1 order by click DESC" '选择全部，where updatetime>'"& now()-30 &"' and 选择本月
else
rs.Source="select top " & int(top_txt/2) & " * 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")),18)%></a><font color=#666666>[<%=rs("click")%>] <%if year(rs("updatetime"))=year(date()) and month(rs("updatetime"))=month(date()) and day(rs("updatetime"))=day(date()) then%>
<img src="images/new.gif">
<%end if%>
<%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 " & int(top_txt/2) & " * from "& db_News_Table &" where checkked=1 order by UpdateTime DESC" '选择全部，where updatetime>'"& now()-30 &"' and 选择本月
else
rs.Source="select top " & int(top_txt/2) & " * 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")),18)%></a><%=datetime%> <%if year(rs("updatetime"))=year(date()) and month(rs("updatetime"))=month(date()) and day(rs("updatetime"))=day(date()) then%>
<img src="images/new.gif">
<%end if%>
<%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 = 5 '每页显示多少条文章
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
%>
<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>
<%
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>
<!--留言评论结束-->
<!--统计开始-->
<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 > <br>
<%
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from "& db_News_Table &" where checkked=1")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from "& db_News_Table &" Where checkked=1 and year(updatetime)="& year(date()) &" and month(updatetime)="& month(date()) &" and day(updatetime)="& day(date()) &"")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
function getusernum()
dim rs
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &"")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function
function getgg()
dim rs
if db_Sex_Select = "FeiTium" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='男' ")
getgg=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=1")
getgg=rs(0)
set rs=nothing
end if
end if
if isnull(getgg) then getgg=0
end function
function getmm()
dim rs
if db_Sex_Select = "FeiTium" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"='女' ")
getmm=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where "& db_User_Sex &"=0")
getmm=rs(0)
set rs=nothing
end if
end if
if isnull(getmm) then getmm=0
end function
function getother()
dim rs
if db_Sex_Select = "FeiTium" then
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" = '保密' ")
getother=rs(0)
set rs=nothing
else
if db_Sex_Select = "Number" then
rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where "& db_User_Sex &" <>1 and "& db_User_Sex &"<>0 ")
getother=rs(0)
set rs=nothing
end if
end if
if isnull(getother) then getother=0
end function
%>
○- 今日文章：<font color=red><%=todays()%></font><br>
○- 文章总数：<font color=red><%=gettipnum()%></font><br>
○- 会员总数：<font color=red><%=getusernum()%></font><br>
<!--#include file=LastMember.asp --><br><br>
<%if showcount=1 then%>
<script src=Cnt.asp></script>
<!--#include file=zx.asp -->
<br> ○- 当前在线：<font color=red><%=i%></font><br><br>
<%end if%>
</td>
</tr>
<!--统计结束-->
<!--稿件排行开始-->
<tr>
<td background="images/WmCms_TypeR.gif" height="32"><font color="#FFFFFF"><b> 稿件信息<b></font> <a href="alluser.asp" target="_blank" title="更多"><img src="Images/more_R.gif" width="39" height="9" border="0" /></a></td>
</tr>
<tr>
<tr><td>
<p align="center"><br>
<!--#include file=TopUser.asp -->
</td></tr>
<tr><td>
<p align="center"><br>
<!--#include file=Topdep.asp -->
</td></tr>
<!--稿件排行结束-->
</table>
</td>
<!--左侧新增结束-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -