📄 show.asp
字号:
<%xian=session("xian")
ljl_xian=mid(xian,23,1)
if ljl_xian<>1 then%>
<script language=vbscript>
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%end if%>
<%Response.Buffer=true
action=request.querystring("action")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
ljldj=Session("hxf_u_grade")
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
%>
<HTML><HEAD>
<link rel="stylesheet" href="../setup.CSS">
<TITLE>OA文件审批</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<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="ljlsave.asp">
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width="514"
border=0 height="277" style="border-collapse: collapse">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff height="26" width="512"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT
color=#ffffff>文件审批--发送新的审批文件 [<a target="_self" href="duanxinlist.asp"><font color="#FFFFFF">返回</font></a>]</FONT></TD></TR>
<tr>
<TD align=middle bgColor=#e8f4ff height="170" width="512">
<p align="left">
审批文件主题：<input type="text" name="zhuti" size="61"><br>
<br>
<span lang="en-us"> </span>审批文件内容：<br>
<textarea rows="8" name="info" cols="51"></textarea><br>
<br> <%'set rs=server.createobject("adodb.recordset")
sql = "select * from 用户"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "请先添加用户信息。"
response.end
else
%>
送<span lang="en-us"> </span>往<span lang="en-us"> </span>审<span lang="en-us">
</span>批<span lang="en-us"> </span>人：<select size="1" name="jieshou"><% do while not rs.eof%>
<option><%=trim(rs("姓名"))%></option><%
rs.movenext
loop
end if
rs.close
set rs = nothing
%> </select><br>
<br>
原文件下载地址：<input type="text" name="url" size="35" value="无">*要先传原文件,<span lang="zh-cn">然后复制地址</span>。<br>
<br>
<font color="#FF3300"><a target="_blank" href="../upload/upload.asp"><font color="#FF0000">原文件上传请单击此处</font><span lang="en-us"><font color="#FF0000">>>>></font></span></a></font>
<input type="submit" value="提交文件" name="B1"></p>
</TD>
</tr>
</TBODY></TABLE>
</center>
</div>
</form>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -