📄 wmcms_rspecial.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 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 + -