📄 car_set.asp
字号:
<!--#include file="data.asp"-->
<!--#include file="html.asp"-->
<%
if Session("Rname")=request("car_user2") or Session("Urule")="a" or Session("Urule")="b" then
%><!--#INCLUDE FILE="check.asp" -->
<%
Set myrs= Server.CreateObject("ADODB.Recordset")
strSql="select * from bumen"
myrs.open strSql,Conn,1,1
Set yours= Server.CreateObject("ADODB.Recordset")
strSql="select * from user where shenhe="&true&""
yours.open strSql,Conn,1,1
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="oa.css">
<title>修改车辆资料</title>
</head>
<body>
<link rel="stylesheet" href="eintrdemo.css"> </head> <%
dim sql
dim rs
sql="select * from car where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="post" action="car_saveset.asp?id=<%=request("id")%>" name="myform" >
<table width="100%" border="0" cellspacing="1" cellpadding="2"> <tr > <td class="heading">
<div align="center"> <center> <table width="81%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" bordercolorlight="#000000" style="font-size:9pt">
<tr> <td width="2%" align="right"></td><td align="left" height="25"> <p align="center"><font color="#FFFFFF"><b>设
置 车 辆 状 态</b></font></p></td><td width="3%"></td></tr> </table></center></div></td></tr>
</table>
<div align="center">
<table width="80%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#000000">
<tr>
<td width="17%" valign="top" height="6"> <p align="right"><font size="2">车辆号码:</font></p></td>
<td width="83%" height="6"> <input name="car_code" type="text" class="form" id="car_code" value="<%=rs("car_code")%>" size="24" disabled>
</td>
</tr>
<tr>
<td width="17%" valign="top"> <p align="right">车辆状态:</p></td>
<td width="83%"> <select NAME="car_state" id="car_state">
<option value="<%=rs("car_state")%>" selected><%=rs("car_state")%></option>
<option value="空闲" >空闲</option>
<option value="外出">外出</option>
<option value="预定">预定</option>
<option value="维修">维修</option>
<option value="违规">违规</option>
<option value="待定">待定</option>
</select>
</td>
</tr>
<tr>
<td width="17%" valign="top" height="6"> <p align="right"><font size="2">起始时间:</font></p></td>
<td width="83%" height="6">
<select name="year1">
<option value="<%=year(rs("car_statestart"))%>" selected><%=year(rs("car_statestart"))%></option>
<%
for i=2001 to 2005
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
年
<select name="month1">
<option value="<%=month(rs("car_statestart"))%>" selected><%=month(rs("car_statestart"))%></option>
<%
for i=1 to 12
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
月
<select name="day1">
<option value="<%=day(rs("car_statestart"))%>" selected><%=day(rs("car_statestart"))%></option>
<%
for i=1 to 31
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
日 </td>
</tr>
<tr>
<td width="17%" valign="top" height="16"> <p align="right"><font size="2">结束时间:</font></p></td>
<td width="83%" height="16">
<select name="year2">
<option value="<%=year(rs("car_stateend"))%>" selected><%=year(rs("car_stateend"))%></option>
<%
for i=2001 to 2005
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
年
<select name="month2">
<option value="<%=month(rs("car_stateend"))%>" selected><%=month(rs("car_stateend"))%></option>
<%
for i=1 to 12
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
月
<select name="day2">
<option value="<%=day(rs("car_stateend"))%>" selected><%=day(rs("car_stateend"))%></option>
<%
for i=1 to 31
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
日 </td>
</tr>
<tr>
<td width="17%" valign="top" height="16"> <p align="right"><font size="2">操作人员:</font></p></td>
<td width="83%" height="16"> <input name="car_statesmalluser" type="text" class="form" id="car_statesmalluser" value="<%=rs("car_statesmalluser")%>" size="24">
(<font color="#FF0000">指操作本次记录的人员</font>) </td>
</tr>
<tr>
<td width="17%" valign="top" height="16"> <p align="right"><font size="2">使用部门:</font></p></td>
<td width="83%" height="16">
<select NAME="car_statecompany" id="car_statecompany">
<option value="<%=rs("car_statecompany")%>" selected><%=rs("car_statecompany")%></option>
<option value="待定" >待定</option>
<%if myrs.eof and myrs.bof then
response.write "<font color='red'>还没有任何部门</font>"
else
do while not (myrs.eof or myrs.bof)
%>
<option VALUE="<%=myrs("type")%>"><%=myrs("type")%></option>
<%myrs.movenext
loop
end if%>
</select>
(<font color="#FF0000">指使用车辆的部门</font>) </td>
</tr>
<tr>
<td width="17%" valign="top" height="16"> <p align="right"><font size="2">使用人员:</font></p></td>
<td width="83%" height="16">
<select NAME="car_statebiguser">
<option value="<%=rs("car_statebiguser")%>" selected><%=rs("car_statebiguser")%></option>
<option value="待定" >待定</option>
<%if yours.eof and yours.bof then
response.write "<font color='red'>还没有任何人员</font>"
else
do while not (yours.eof or yours.bof)
%>
<option value="<%=yours("name")%>"><%=yours("name")%></option>
<%yours.movenext
loop
end if%>
</select>
(<font color="#FF0000">指使用车辆的人员</font>) </td>
</tr>
<%if session("id")<>"" then %>
<tr>
<td WIDTH="17%" VALIGN="top"> <p ALIGN="right">原因:</p></td>
<td WIDTH="83%"> <p>
<textarea name="car_statecause" cols="43" rows="5" class="smallarea" id="car_statecause"><%=rs("car_statecause")%></textarea>
</p></td>
</tr>
<%end if%>
</table>
</div><div align="center"><input type=image src="images/modify_off.gif">
<a href="javaScript:window.close()"><img border="0" src="images/close_1.gif"></a>
</div></form>
<%else
response.redirect "error.asp?id=admin"
end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -