📄 daibaninfo.asp
字号:
<!--#include file="../config/config.asp"-->
<%Set conn=Server.CreateObject("ADODB.CONNECTION")
'Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
action=request.querystring("action")
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
NUMBER=clng(request.querystring("id"))
loginname=session("hxf_u_nickname")
ljldj=Session("hxf_u_grade")
if action=1 or action=11 then
set RST=conn.execute("select * from 待办 where id=" &NUMBER)
cao=rst("阅览者")
end if
if action=2 or action=12 then
set RST=conn.execute("select * from 公文 where id=" &NUMBER)
cao=rst("阅览者")
end if
if action=43 then
set RST=conn.execute("select * from 档案 where id=" &NUMBER)
'cao=rst("阅览者")
end if
end if
%>
<HTML><HEAD><TITLE><%=sysname%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" href="../setup.css">
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
</HEAD>
<BODY oncontextmenu=self.event.returnValue=false leftMargin=4 topMargin=0>
<div align="center">
<center>
<form method="POST" action="reditsave1.asp" name="ljl" target="right">
<TABLE height=230 cellSpacing=0 cellPadding=0 width=565 align=center border=0>
<TBODY>
<TR align=middle>
<TD width=598 height=24>
<p align="center"> </TD></TR>
<TR align=middle>
<TD width=643 height=3 align="left">
<p align="center"><font color="#FF0000"><%if action=43 then%><%=rst("a1")%><%else%><%=rst("主题")%><%end if%></font></TD>
</TR>
<TR align=middle>
<TD width=643 height=31 align="left">
<HR width="95%" noshade color="#000000" size="1">
<p><%if action=43 then%><%=rst("a5")%> <font color="#FF0000">类别：</font><%=rst("a3")%><%else%><%=rst("内容")%><%end if%><br>
<HR width="95%" noshade color="#000000" size="1">
</TD>
</TR>
<tr>
<TD width=603 height=19 align="left">
<img border="0" src="red.gif"><%if action=43 then%>档案编号：<%=rst("a2")%><%else%>阅读次数：<%=rst("阅览次数")%><%end if%></TD>
</tr>
<tr>
<TD width=603 height=20 align="left">
<img border="0" src="red.gif"><%if action=43 then%><font color="#FF0000">涉及人员：</font><%=rst("a6")%><font color="#FF0000"> 存档日期：</font><%=rst("a4")%><%else%>阅<span lang="en-us"> </span>读<span lang="en-us">
</span>者：<%=cao%><%end if%></TD>
</tr><%if action<>43 then%>
<tr>
<TD width=603 height=9 align="left">
<img border="0" src="red.gif"><%if rst("下载")="无" then%><font color="#FF0000">没有提供相关下载的原文档</font><%else%><a href="<%=rst("下载")%>">下载此文件的原始文档<span lang="en-us">>>></span></a><%end if%> </TD>
</tr>
<tr>
<TD width=603 height=12 align="left">
<font color="#D4D0C8">此公文由<%=rst("发文部门")%>部门的<%=rst("发文者")%>录入发布</font></TD>
</tr><%end if%>
<tr>
<TD width=602 height=22 align="left">
<p align="center"> <b><font color="#000080" size="3">
<a target="_self" href="javascript:history.go(-1)">返回</a></font></b></TD>
</tr>
</TBODY></TABLE>
</form>
</center>
</div>
</BODY></HTML><%if action<>43 then%>
<%if InStr(cao,loginname)=0 then
yuelanzhe=cao+"|"+loginname
if action=1 or action=11 then
sql="update 待办 set 阅览次数=阅览次数+1,阅览者='" & yuelanzhe & "' where id=" &NUMBER
end if
if action=2 or action=12 then
sql="update 公文 set 阅览次数=阅览次数+1,阅览者='" & yuelanzhe & "' where id=" &NUMBER
end if
else
if action=1 or action=11 then
sql="update 待办 set 阅览次数=阅览次数+1 where id=" &NUMBER
end if
if action=2 or action=12 then
sql="update 公文 set 阅览次数=阅览次数+1 where id=" &NUMBER
end if
end if
rs=conn.execute(sql)
conn.close
set conn=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -