📄 recvinfo.asp
字号:
<!-- #include file="conn/logors.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=description content="<%=site_title%>" >
<meta name=keyword content="<%=site_title%>">
<title><%=site_title%></title>
</head>
<%=styletext%>
<DIV class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100"
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->
<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>
<body>
<table width="750" height="200" align="center">
<tr>
<td height="97" align="center" class=TableTitle2>
<!-- #include file="sitehead.asp" -->
</td>
</tr>
<tr>
<td align="center" colspan="2" class="tablebody1">
<% navigation_flag=6 %>
<!-- #include file="func_navigationbar.asp" -->
<%
function CheckInfo(str)
dim i
CheckInfo=""
if not isnull(str) then
for i=1 to len(str)
if mid(str,i,1)=" " then
CheckInfo=CheckInfo&" "
elseif mid(str,i,1)=chr(13) and mid(str,i+1,1)=chr(10) then
CheckInfo=CheckInfo&"<br>"
i=i+1
else
CheckInfo=CheckInfo&mid(str,i,1)
end if
next
end if
end function
%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20%" height="66" valign="top"> <!-- #include file="func_menulist.asp" --></td>
<td valign="top">
<%
dim content,title,intime
set rs = Server.CreateObject("ADODB.Recordset")
sql="update cci_oa_filedest set status=1 where srcid=" & request("id") & " and userid=" & session("userid")
connobj.execute(sql)
sql="select a.memo,a.title,a.sendtime,a.filename,b.name from cci_oa_file a,cci_user b,cci_oa_filedest c where a.id=c.srcid and c.userid=" & session("userid") & " and a.userid=b.id and a.id=" &request("id")
rs.Open Sql,connObj,1,1
if not rs.eof then
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class="tableborder1">
<tr>
<td class="tablebody1" width=80><b>主题</b></td>
<td class="tablebody1"><%=rs("title")%></td>
</tr>
<tr >
<td class="tablebody1" height=100><b>正文</b></td>
<td class="tablebody1">
<%=CheckInfo(rs("memo"))%>
</td>
</tr>
<tr>
<td class="tablebody1" ><b>附件</b></td>
<td class="tablebody1">
<%
if not isnull(rs("filename")) then
response.Write("下载<a href=doc/" & rs("filename") & " target=_blank>" & rs("filename") & "</a>")
end if
%>
</td>
</tr>
<tr>
<td class="tablebody1"><b>发件人</b></td>
<td class="tablebody1"><%=rs("name")%></td>
</tr>
<tr>
<td class="tablebody1"><b>发件时间</b></td>
<td class="tablebody1" ><%=rs("sendtime")%></td>
</tr>
</table>
<%
else
response.Write("table width=100% align=center cellpadding=1 cellspacing=1 class=tableborder1><tr align=center><td class=tablebody1>没有找到相关信息!</td></tr></table>")
end if
rs.close
%>
<div align="center"><br><a href="javascript:history.go(-1)">返 回</a><br></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="tablebody1">
<!-- #include file="sitefloor.asp" --> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -