📄 list.asp
字号:
<%xian=session("xian")
ljl_xian=mid(xian,22,1)
if ljl_xian<>1 then%>
<script language=vbscript>
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%end if%>
<%Response.Buffer=true
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
'Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
if request.querystring("id")="" then
response.write "没有正确的ID号"
else
NUMBER=clng(request.querystring("id"))
set RS=conn.execute("select * from 审批 where id=" &NUMBER)
end if
%>
<HTML><HEAD>
<link rel="stylesheet" href="../daiban/ljl.CSS">
<TITLE>OA短消息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/STYLE.CSS" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY
onkeydown="if(event.keyCode==13 && event.ctrlKey)messager.submit()"
vLink=#333333 aLink=#333333 link=#333333 bgColor=#f2f8ff background=""
topMargin=10 oncontextmenu=self.event.returnValue=false>
<form method="POST" action="reedit.asp?id=<%=rs("id")%>&jieshou=<%=rs("send")%>">
<TABLE cellSpacing=0 cellPadding=0 width="457" align=center bgColor=#777777
border=0>
<TBODY>
<TR>
<TD width="457">
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=3 width="517"
border=2 height="348">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff height="1" width="503"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT
color=#ffffff>文件审批--<%=rs("zhuti")%> [<span lang="zh-cn"><a target="_self" href="duanxinlist.asp"><font color="#FFFFFF">返回</font></a></span>]</FONT></TD></TR>
<tr>
<TD vAlign=center align=middle bgColor=#e8f4ff height="250" width="503">
<p align="left"><font color="#FF0000">以下为原文件内容</font></p>
<p>
<textarea rows="7" readonly name="info" cols="65"><%=rs("info")%></textarea></p>
<p align="left"><font color="#000080">您可以在以下框中对本文件内容进行修改</font></p>
<p><textarea rows="10" name="info1" cols="65"><%=rs("info1")%></textarea></TD>
</tr>
<TR>
<TD vAlign=top align=left bgColor=#f2f8ff height="27" width="503">
修改后原文件地址：<input type="text" name="newurl" size="21" value="无"><span lang="en-us">*</span>上传完毕后，复制提示的下载路径。<span lang="zh-cn"><br>
</span> <span lang="zh-cn">
<img border="0" src="../DAIBAN/RED.GIF"><a target="_blank" href="../upload/upload.asp"><font color="#FF0000">点击此处上传修改后的原文件</font></a></span><br>
<input type="submit" value="审批完成" name="B1">
<a href="duanxindel.asp?id=<%=rs("id")%>">
<img border="0" src="a_delete.gif"></a> <span lang="zh-cn">
<%if rs("url")="无" then%><img border="0" src="../DAIBAN/RED.GIF">没有提供相关的原文件下载<%else%><img border="0" src="../DAIBAN/BLUE.GIF"><a href="<%=rs("url")%>">单击此处下载原文件</a><%end if%><%if rs("newurl")="无" then%><img border="0" src="../DAIBAN/RED.GIF">没有提供修改后的原文件下载<%else%><img border="0" src="../DAIBAN/BLUE.GIF"><a href="<%=rs("newurl")%>">单击此处下载修改后的文件</a><%end if%></span> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</form>
</BODY></HTML>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -