📄 admin_disp.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="md5.inc" -->
<!--#include file="checkstr.asp" -->
<!--#include file="checkadmin.asp" -->
<!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留溪网上办公平台_显示信息详细内容</title>
<!--#include file="css.css" -->
</head>
<%
doing=Trim(Request.QueryString("doing"))
doing=checkstr(doing)
dispid=Int(Request.QueryString("dispid"))
page=Int(Request.QueryString("page"))
sortkey=Int(Request.QueryString("sortkey"))
%>
<%'设置是否常用
if doing="cy_yn" then
cy=Int(Request.QueryString("cy"))
if cy=1 then str="常用=1,成批删除=0,能否清除=0" end if
if cy=0 then str="常用=0,成批删除=1,能否清除=1" end if
str="update woa set "&str&" where id="&dispid&""
conn.execute(str)
end if
%>
<%'设置能否清除
if doing="qc_yn" then
qc=Int(Request.QueryString("qc"))
str="update woa set 能否清除="&qc&" where id="&dispid&""
conn.execute(str)
end if
%>
<%'设置能否成批删除
if doing="cpsc_yn" then
cpsc=Int(Request.QueryString("cpsc"))
str="update woa set 成批删除="&cpsc&" where id="&dispid&""
conn.execute(str)
end if
%>
<body background="images/index_bg.gif" topmargin="0">
<table width="760" height="101" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td><img src="images/top.jpg" width="758" height="100"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="25" background="images/menu-d-gg.gif" class="fontsize12"><!--#include file="admin_menu.asp" --></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" background="images/bocolor02.gif" class="fontsize14"> <%=session("user_name")%>，你好！欢迎使用<%=ptmc%>。此处显示一个信息的详细资料。</td>
<td width="50" background="images/bocolor02.gif" class="fontsize14"><a href="admin_index.asp?page=<%=page%>&sortkey=<%=sortkey%>">返回</a></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td background="images/bocolor01.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<%str="select * from woa where id="&dispid&""
set rs=conn.execute(str)
name_all=rs("接收者")
looked_all=rs("已看者")%>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td><table width="730" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" class="fontsize14h20"><div align="center"><strong><font color="#660066"><%=rs("标题")%></font></strong></div></td>
</tr>
<tr>
<td height="26" class="fontsize12"><div align="center"><%=rs("发文日期")%> <%=rs("发文时间")%> 发送人：<%=rs("发文者")%></div></td>
</tr>
<tr>
<td height="26" class="fontsize12h20"><%=rs("内容")%></td>
</tr>
<%if rs("附件数")>0 then%>
<tr>
<td height="16"><hr width="700" noshade></td>
</tr>
<tr>
<td height="26"><table width="640" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="60" valign="top"> <table width="50" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="26" class="fontsize14"><div align="center">附件：</div></td>
</tr>
</table></td>
<td width="580"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%fj_all=rs("附件名")
do while len(fj_all)>1
fj_link=left(fj_all,instr(fj_all,"|")-1)
fj_all=mid(fj_all,instr(fj_all,"|")+1)
fj_name=mid(fj_link,21)
%>
<tr>
<td height="20"><a href=<%=fj_link%> class="fontsize14" target="_blank"><%=fj_name%></a></td>
</tr>
<%
loop
%>
<tr>
<td height="26" class="fontsize12h20">请右击附件名，选“目标别存为…”，把附件保存到本地硬盘上。</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%end if%>
</table></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td height="30"><div align="center" class="fontsize14"><a href="admin_disp.asp?doing=listname&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">接收人员名单</a> <a href="admin_disp.asp?doing=listlook_t&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">已接收人员名单</a> <%if rs("常用")=0 then%><a href="admin_disp.asp?doing=cy_yn&cy=1&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">设置为常用</a><%else%><a href="admin_disp.asp?doing=cy_yn&cy=0&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">关闭常用</a><%end if%> <%if rs("能否清除")=1 then%><a href="admin_disp.asp?doing=qc_yn&qc=0&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">设置为不能清除</a><%else%><a href="admin_disp.asp?doing=qc_yn&qc=1&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">设置为能清除</a><%end if%>
<%if rs("成批删除")=1 then%><a href="admin_disp.asp?doing=cpsc_yn&cpsc=0&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">设置为不能成批删除</a><%else%><a href="admin_disp.asp?doing=cpsc_yn&cpsc=1&dispid=<%=dispid%>&page=<%=page%>&sortkey=<%=sortkey%>">设置为能成批删除</a><%end if%>
</div></td>
</tr>
<%if doing="listname" then%>
<tr>
<td height="30">
<%if rs("所有人")=1 then%>
<span class="fontsize14"> 所有人</span>
<%else%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%name_all=mid(name_all,2)
m=0
do while len(name_all)>1
name_disp=left(name_all,instr(name_all,"|")-1)
name_all=mid(name_all,instr(name_all,"|")+1)%>
<td class="fontsize12h20"><%=name_disp%></td>
<%m=m+1
if m mod jsrhs=0 then response.write "</tr><tr>" end if%>
<%loop%>
</tr>
</table>
<%end if%>
</td>
</tr>
<%end if%>
<%if doing="listlook_t" then%>
<tr>
<td height="30">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="fontsize12h20">
<tr>
<%looked_all=mid(looked_all,2)
m=0
do while len(looked_all)>1
name_disp=left(looked_all,instr(looked_all,"|")-1)
looked_all=mid(looked_all,instr(looked_all,"|")+1)%>
<td class="fontsize12h20"><%=name_disp%></td>
<%m=m+1
if m mod ysrhs=0 then response.write "</tr><tr>" end if%>
<%loop%>
</tr>
</table></td>
</tr>
<%end if%>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td width="779" class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tabletblg">
<tr>
<td background="images/bocolor02.gif">
<!--#include file="bottom.asp" --></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -