📄 car_order.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="../inc/dbtools.asp"-->
<HTML>
<HEAD>
<TITLE>  </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<%
LoginID=trim(session("LoginID"))
if LoginID="" then response.end
LoginName=GetTableValue("tblUser","Name","ID",LoginID)
carid=trim(request("carID"))
selectdate=trim(request("SelectDate"))
if selectdate="" then selectdate=date()

if request("cmdUp")<>"" then
	OrderID=trim(request("OrderID"))
	OrderName=trim(crequest("OrderName"))
	OrderTime=now()
	UserName=trim(crequest("UserName"))
	Department=trim(request("Department"))
	Line=trim(crequest("Line"))
	Used=trim(crequest("Used"))
	body=trim(crequest("body"))
	Driver=trim(crequest("Driver"))
	StartTime_y=trim(request("StartTime_y"))
	StartTime_h=trim(request("StartTime_h"))
	StartTime_m=trim(request("StartTime_m"))
	EndTime_y=trim(request("EndTime_y"))
	EndTime_h=trim(request("EndTime_h"))
	EndTime_m=trim(request("EndTime_m"))
	if StartTime_y="" then startTime_y=date()
	if EndTime_y="" then EndTime_y=date()
	StartTime=StartTime_y &" "& StartTime_h & StartTime_m
	EndTime=EndTime_y&" "& EndTime_h & EndTime_m
	if cdate(StartTime)>=cdate(EndTime) then
		response.write "结束时间不能小于开始时间。<a href='javascript:history.back(-1);'>[返回]</a>"
		oconn.close
		response.end
	end if
	if UserName="" or Used="" then
		response.write "使用人或使用目的不能为空。<a href='javascript:history.back(-1);'>[返回]</a>"
		oconn.close
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from tblCarorder where carID="&carID&" and EndTime>'"& StartTime &"' and StartTime<'"& EndTime &"'"
	rs.open sql,Conn
	if not rs.eof then
		response.write "您选择的时间段内已经有人预约了，请重新选择，谢谢！<a href='javascript:history.back(-1);'>[返回]</a>"
		Conn.close
		response.end
	else
		AddData()
		response.write "您的预约已经提交，谢谢！<a href=car_index.asp>[返回]</a>"
		Conn.close
		response.end
	end if
end if

set rs=server.createobject("adodb.recordset")
sql="select * from tblCar where ID="& carid
rs.open sql,Conn
if not rs.eof then
	name=trim(rs("Name"))
	model=trim(rs("model"))
	owner=trim(rs("owner"))
	contain=trim(rs("contain"))
	body=trim(rs("body"))
end if
rs.close
set rs=nothing
%>
<div align=center>
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
	<td colspan=5><INPUT TYPE="button" name="cmdreturn" value="返  回" class="font9boldwhite" onclick="javascript:history.back(-1);"></td>
</tr>
<tr bgcolor=#CCCCCC>
	<td>车辆</td>
	<td>型号</td>
	<td>责任负责人</td>
	<td>可使用人数</td>
	<td>备注</td>
</tr>
<tr>
	<td><%=name%></td>
	<td><%=model%></td>
	<td><%=owner%></td>
	<td><%=contain%>&nbsp;</td>
	<td><%=body%>&nbsp;</td>
</tr>
</table>
<form name="OrderForm" method="post" action="">
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
<td width=80>登陆用户：</td>
<td width=50><input type="text" name="OrderName" value="<%=LoginName%>" size=12 readonly class="input"></td>
<td colspan=2>使用部门：<%options "Department","tblDepartment","name",0%></td>
</tr>
<tr>
	<td width=80>开始时间：</td>
	<td width=60><input type="text" name="StartTime_y" value="<%=selectdate%>" size=10 class="input"></td>
	<td width=50>
	<select name="StartTime_h">
	<option value="8:">8时</option>
	<option value="9:">9时</option>
	<option value="10:">10时</option>
	<option value="11:">11时</option>
	<option value="12:">12时</option>
	<option value="13:">13时</option>
	<option value="14:">14时</option>
	<option value="15:">15时</option>
	<option value="16:">16时</option>
	<option value="17:">17时</option>
	<option value="18:">18时</option>
	</select>
	</td>
	<td>
	<select name="StartTime_m">
	<option value="00">00分</option>
	<option value="30">30分</option>
	</select>
	</td>
</tr>
<tr>
	<td width=80>终了时间：</td>
	<td width=60><input type="text" name="EndTime_y" value="<%=selectdate%>" size=10 class="input"></td>
	<td width=50>
	<select name="endTime_h">
	<option value="8:">8时</option>
	<option value="9:">9时</option>
	<option value="10:">10时</option>
	<option value="11:">11时</option>
	<option value="12:">12时</option>
	<option value="13:">13时</option>
	<option value="14:">14时</option>
	<option value="15:">15时</option>
	<option value="16:">16时</option>
	<option value="17:">17时</option>
	<option value="18:">18时</option>
	</select>
	</td>
	<td>
	<select name="endTime_m">
	<option value="00">00分</option>
	<option value="30">30分</option>
	</select>
	</td>
</tr>
<tr>
<td>使用目的</td>
<td colspan=3><input type="text" name="Used" value="" size=40 class="input"> <font color=red>*</font></td>
</tr>
<tr>
<td>行车路线</td>
<td colspan=3><input type="text" name="Line" value="" size=40 class="input"></td>
</tr>
<tr>
<td>使用人</td>
<td colspan=3><input type="text" name="UserName" value="<%=LoginName%>" size=20 class="input"> <font color=red>*</font></td>
</tr>
<tr>
<td>司机</td>
<td colspan=3><input type="text" name="Driver" value="" size=20 class="input"></td>
</tr>
<tr>
<td>内容</td>
<td colspan=3>
<textarea name="body" cols=50 rows=5>
</textarea>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td colspan=3 align=center>
<INPUT TYPE="submit" name="cmdUp" value="确  定" class="font9boldwhite">
<INPUT TYPE="button" name="cmdreturn" value="返  回" class="font9boldwhite" onclick="javascript:history.back(-1);">
</td>
</tr>
</table>
<INPUT TYPE="hidden" name="OrderID" value="<%=LoginID%>">
<INPUT TYPE="hidden" name="CARID" value="<%=carID%>">
</form>
</div><BR><BR>
</BODY>
</HTML>
<!--#include file="../inc/connclose.asp"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,Conn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function

Sub AddData()
	sql=" INSERT INTO tblCarOrder(OrderID,CarID,Department,OrderName,OrderTime,UserName,StartTime,EndTime,Line,Used,Driver,body) VALUES(" & OrderID & _
		","& CarId & _
		","& Department & _
		",'"& OrderName & _
		"','"& OrderTime & _
		"','"& UserName & _
		"','"& StartTime & _
		"','"& EndTime & _
		"','"& Line & _
		"','"& Used & _
		"','"& Driver & _
		"','"& body & _
		"');"
	Conn.execute (sql)
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -