📄 yongcheshenqing.asp

📁 网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个人办公室

💻 ASP

字号:

<%xian=session("xian")
ljl_xian=mid(xian,12,1)
if ljl_xian<>1 then%>
<script language=vbscript> 
MsgBox "错误：您无权使用本功能模块，如果确实需要操作本模块的权限，请与管理员联系！"
location.href = "../config/txt.asp"
</script>
<%end if%>

<%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")
%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ljl.css">
<title>oa</title>
<script language="javascript">
function ljl1()
{
 document.ljl.submit();
}
</script>

</head>

<body>

<div align="center">
  <center>
  <form name="ljl" method="POST" action="yongchesave.asp?action=23"> 
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="487" id="AutoNumber1" height="236">
    <tr>
      <td height="39" width="485" colspan="2" bgcolor="#EEFFEE">
      <p align="center"><font color="#FF0000">部室用车申请单</font></td>
    </tr>
    <tr>
      <td height="29" width="91" align="center" bgcolor="#EEFFEE">申请车辆</td>
          <%'set rs=server.createobject("adodb.recordset")
        sql = "select * from 车辆 where a7=false"   '过滤已经派出的车辆
        rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	response.write "请先添加车辆信息。"
	response.end
	else
%>
      <td height="29" width="393">&nbsp;<select size="1" name="a1"><% do while not rs.eof%>
      <option><%=trim(rs("a1"))%>|<%=trim(rs("a2"))%>|<%=trim(rs("a3"))%></option><%
        rs.movenext
        loop
      end if
      rs.close
      '  set rs = nothing
%>      </select></td>
    </tr>
    <tr>
      <td height="20" width="91" align="center" bgcolor="#EEFFEE">用车时长</td>
      <td height="20" width="393">&nbsp;<select size="1" name="a2">
      <option value="半天">半天</option>
      <option selected value="1天">1天</option>
      <option value="两天">2天</option>
      <option value="3天">3天</option>
      <option value="4天">4天</option>
      <option value="5天">5天</option>
      <option value="6天">6天</option>
      <option value="天">10天</option>
      </select></td>
    </tr>
    <tr>
      <td height="27" width="91" align="center" bgcolor="#EEFFEE">用车事由</td>
      <td height="27" width="393">&nbsp;<textarea rows="8" name="a3" cols="45"></textarea></td>
    </tr>
    <tr>
      <td height="20" width="91" align="center" bgcolor="#EEFFEE">批复领导</td>
                <%'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
%>

      <td height="20" width="393">&nbsp;<select size="1" name="a4"><% do while not rs.eof%>
      <option><%=trim(rs("姓名"))%></option><%
        rs.movenext
        loop
      end if
      rs.close
        set rs = nothing
%>   </select></td>
    </tr>
    <tr>
      <td height="27" width="91" align="center" bgcolor="#EEFFEE">备注信息</td>
      <td height="27" width="393">&nbsp;<input type="text" name="a5" size="47" value="无"></td>
    </tr>
    <tr>
      <td height="43" width="485" align="center" colspan="2">
      <a href="javascript:ljl1()">
      <img border="0" src="BUconfirm.gif"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <a href="javascript:document.ljl.reset()">
      <img border="0" src="BUReset.gif"></a><span lang="en-us">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <a href="daibanlist.asp?action=9"><img border="0" src="fanhui.gif"></a></span></td>
    </tr>
    </table>
  </form>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -