📄 wmcms_workbook.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<%if request.cookies(Forcast_SN)("key")<>"" then%>
<!--#include file="ChkUser.asp"-->
<%end if
const MaxPerPage=2
dim totalPut
dim CurrentPage
dim TotalPages
dim a,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if request.cookies(Forcast_SN)("key")="super" then
aaas=1
set urs=server.createobject("adodb.recordset")
sql="select * from "& db_User_Table &" where "& db_User_Name &"='"& ChkRequest(Request.cookies(Forcast_SN)("name"), 0)&"'"
urs.open sql,ConnUser,1,3
if urs.bof or urs.eof then
aaas=0
end if
IF Request.cookies(Forcast_SN)("password")<>urs(db_User_Password) THEN
aaas=0
END IF
urs.close
set urs=nothing
end if
%>
<html>
<head>
<title>办事审批_<%=jjgn%>完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="news.css" rel=stylesheet type=text/css></head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<!--#include file="top.asp"-->
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td width="180" bordercolor="#FDFCF8" bgcolor="#FDFCF8" style="border-left: 1px solid #cccccc ; border-top: 1px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<!--#include file="WmCms_Linterflow.asp"-->
</td>
<td width="6"></td>
<td style="border-left: 1px solid #cccccc ; border-top: 0px solid #cccccc ; border-bottom: 1px solid #cccccc ; border-right: 1px solid #cccccc ">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr valign="top">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="CDCCCC">
<td width="100%" height="25" background="IMAGES/WmCms_Result.gif" > <a class=daohang href="./" >网站首页</a>＞<a href="WmCms_WorkBook.asp" class="daohang">办事服务</a>＞<strong>办事审批</strong></td>
</tr>
<tr bgcolor="CDCCCC">
<td height="25" align="center" bgcolor="#FFFFFF">
<a href="WmCms_WorkAdd.asp" class=class>我要办事</a> | <a class=class href="javascript:window.location.reload()">刷新</a>
</td>
</tr>
</table>
</td>
</tr>
<tr valign="top">
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
if not isempty(request("ReViewID")) and IsNumeric(request("ReViewID")) then
sql="Select * From "& db_wmcms_work_Table &" where ReViewID="& ChkRequest(request("ReViewID"), 1) &" Order by ReviewId DESC"
else
sql="Select * From "& db_wmcms_work_Table &" where NewsId is NULL or NewsId < 1 Order by ReviewId DESC"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
if not isempty(request("ReViewID")) and IsNumeric(request("ReViewID")) then
response.write "<br><br><br><p align=center><font color=red>找 不 到 你 指 定 的 留 言 或 是 留 言 未 审 核</font></p><br><br>"
else
response.write "<br><br><br><p align=center><font color=red>还 没 有 任 何 留 言</font></p><br><br>"
end if
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage=totalPut \ MaxPerPage
else
currentpage=totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"WmCms_WorkBook.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"WmCms_WorkBook.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"WmCms_WorkBook.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
do while not rs.eof
author=rs("author")
set urs=server.createobject("adodb.recordset")
sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&author&"'"
urs.open sql,ConnUser,1,3
if not urs.bof or not urs.eof then
if UserTableType = "Dvbbs" then
photowidth=urs(db_User_FaceWidth) ''取注册用户论坛设定的图片片宽度
photoheight=urs(db_User_FaceHeight) ''取注册用户论坛设定的图片高度
end if
user=true ''是已注册用户
else
user=notreg ''是非注册用户
end if
urs.close
set urs=nothing%>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E6D9A4">
<%if aaas=1 then %>
<tr>
<td width="9%" height="23" bgcolor="#ffffff"><div align="left" class="top1">
<div align="right">管理：</div>
</div></td>
<td width="91%" bgcolor="#ffffff" >
<%if rs("email")<>"" then%>
<a href="mailto:<%=rs("email")%>"><img src="images/EMAIL.GIF" border="0" title='电子邮件'></a>
<%else%>
<img src="images/EMAIL.GIF" border="0">
<%end if%>
<%if aaas=1 then %>
<a href="WmCms_WorkEdit.asp?ReviewId=<%=rs("reviewid")%>"><img src="images/EDIT.GIF" border="0" title='编辑'></a>
<a href="WmCms_WorkReply.asp?reviewid=<%=rs("reviewid")%>"><img src="images/reply.GIF" border="0" title='回复'></a>
<a href='WmCms_WorkCheckReView.asp?ReviewID=<%=rs("ReviewID")%>&Guest=2'><%if rs("passed")=0 then%><img src="images/pass0.GIF" border="0" title='通过审核'><%else%><img src="images/pass1.GIF" border="0" title='取消审核'><%end if%></a>
<a href="WmCms_WorkDel.asp?reviewid=<%=rs("reviewid")%>"><img src="images/guestbook_delete.GIF" border="0"></a>
<%end if%>
<%if rs("newsid")<>"" then%>
<a target="_blank" href="Article.asp?newsid=<%=rs("newsid")%>"><img src="images/reply1.GIF" width="0" height="0" border="0"></a>
<%end if%>
</td>
</tr>
<%end if%>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">事项标题：</div></td>
<td bgcolor="#ffffff"><%=rs("title")%></td>
</tr>
<tr>
<td width="9%" height="23" bgcolor="#ffffff"><div align="left" class="top1">
<div align="right">提交日期：</div>
</div></td>
<td width="91%" bgcolor="#ffffff"><%=rs("updatetime")%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">交办单位：</div></td>
<td bgcolor="#ffffff"><%if rs("shengfen")<>"" then%><%=rs("shengfen")%><%else%>保密<%end if%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">您的姓名：</div></td>
<td bgcolor="#ffffff"><%=rs("author")%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">联系邮箱：</div></td>
<td bgcolor="#ffffff"><%=rs("email")%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">邮政编码：</div></td>
<td bgcolor="#ffffff"><%=rs("editor")%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">联系电话：</div></td>
<td bgcolor="#ffffff"><%=rs("oicq")%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">联系地址：</div></td>
<td bgcolor="#ffffff"><%=rs("homepage")%></td>
</tr bgcolor="#ffffff">
<tr height="63">
<td bgcolor="#ffffff"><div align="right" class="top1">事项内容：</div></td>
<td bgcolor="#ffffff"><%if rs("passed")=1 then
if rs("NewsID")=-1 then '-1 表示为信息保密
if aaas=1 then
response.write rs("content")
else
response.write "<left><BR><font color=red>提交人员已做<b>保密</b>处理,只有管理人员可以看到所提交信息...</font></center>"
end if
else
response.write rs("content")
end if
else
if aaas=1 then
response.write "<font color='#cd0000'><b>以下待办内容需及时给予处理：</b></font><br><br>"
end if
response.write rs("content")
'response.write "<left><BR><font color=red><B>您的提交正在处理中,请您耐心等待回复...</B></font></center>"
end if%></td>
</tr>
<tr height="23">
<td bgcolor="#ffffff"><div align="right" class="top1">回复时间：</div></td>
<td bgcolor="#ffffff"><%if rs("passed")=1 then%><%=rs("reviewip")%><%else response.write "<font color=red>尚未回复...</font>"%><%end if%></td>
</tr>
<tr height="63">
<td bgcolor="#ffffff"><div align="right" class="top1">回复内容：</div></td>
<td bgcolor="#ffffff"><%if rs("reply")<>"" then %>
<p><font color="#FF0000"><%=rs("reply")%></font></p>
<%else%><font color="red"><b>您提交的事项正在处理中,请您耐心等待回复...<b></font>
<%end if%></td>
</tr>
</table><br><br>
</td>
</tr>
<tr>
<td>
<%a=a+1
if a>=MaxPerPage then exit do
rs.movenext
loop
end sub%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="efefef">
<tr>
<td align="center" bgcolor="#FFFFFF">
<a href="WmCms_WorkAdd.asp" class=class>我要办事</a> | <a class=class href="javascript:window.location.reload()">刷新</a>
<%function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber \ maxperpage
else
n=totalnumber \ maxperpage + 1
end if
response.write "<form method=post action="&filename&">"
response.write "<p align=center>"
if CurrentPage<2 then
response.write "<font color='#b9b9b9' style='font-family: 宋体; font-size: 9pt'>首页 上一页</font> "
else
response.write "<a class=class href="&filename&"?page=1>首页</a> "
response.write "<a class=class href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#b9b9b9' style='font-family: 宋体; font-size: 9pt'>下一页 尾页</font>"
else
response.write "<a class=class href="&filename&"?page="&(CurrentPage+1)&">下一页</a> "
response.write "<a class=class href="&filename&"?page="&n&">尾页</a>"
end if
response.write "<font color='#000080' style='font-family: 宋体; font-size: 9pt'> 共<b>"&totalnumber&"</b>条留言 第<b>"&maxperpage&"</b> 条留言/页</font> "
response.write "<font color='#000080' style='font-family: 宋体; font-size: 9pt'>转到：</font><input class=smallInput type='text' name='page' size=4 maxlength=10 value="&Currentpage&" >"
response.write "<input class=buttonface type='submit' value='Go' name='cndok'></p></form>"
end function%>
</td>
</tr>
</table>
</td></tr></table>
<!--#include file="bottom.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -