📄 car_detail.htm

📁 全方面的OA管理程序代码
💻 HTM
字号:
<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<!--#include file="../inc/dbtools.htm"-->
<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">
<div align=center>
<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999"><tr><td>
<INPUT TYPE="button" name="cmdreturn" value="返  回" class="font9boldwhite" onclick="javascript:history.back(-1);">
</td></tr></table>

<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
	<td bgcolor=#CCCCCC width=100>车辆</td>
	<td><%=Name%></td>
	<td bgcolor=#CCCCCC width=100>型号</td>
	<td><%=model%></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>责任负责人</td>
	<td><%=owner%></td>
	<td bgcolor=#CCCCCC>可使用人数</td>
	<td><%=contain%></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>购买时间</td>
	<td><%=buytime%></td>
	<td bgcolor=#CCCCCC>保修时间</td>
	<td><%=repairtime%></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>介绍</td>
	<td colspan=3>
	<%=replace(replace(server.htmlencode(body&""),chr(13),"<br>")," ","&nbsp;")%>&nbsp;
	</td>
</tr>
</table>

<p>车辆安排情况：(<%=selectdate%>)</p>

<%
Set Rs = Server.Createobject("Adodb.recordset")
sql="select * from tblCarOrder where StartTime<'"& cdate(Selectdate)+1 &"' and EndTime>= '"& cdate(selectdate) &"' and CarID="& CarID &" order by ID desc"
'response.write sql
rs.open sql,oConn
nNumber=0
while not rs.eof
nNumber=nNumber+1
%>
<div align="center">
<table border=1 cellpadding=3 cellspacing=1 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
	<tr bgcolor=#CCCCCC><td colspan=4 align=center>
	<%if cdate(trim(rs("EndTime")))>=now() then%>
		<font color=red><b><%=trim(rs("StartTime"))&"——"&trim(rs("EndTime"))%></b></font>
	<%else%>
		<b><%=trim(rs("StartTime"))&"——"&trim(rs("EndTime"))%></b>
	<%end if%>
	</td></tr>

	<tr>
	<td width="15%">使用部门:</td>
	<td width="35%">
	<%if trim(rs("Department"))<>"" then%>
	<%=GetTableValue("tblDepartment","Name","ID",trim(rs("Department")))%>
	<%end if%>
	&nbsp;</td>
	<td nowrap width="15%">使用人:</td>
	<td width="35%">
	<%if trim(rs("UserName"))<>"" then%>
	<%=trim(rs("UserName"))%>
	<%end if%>
	&nbsp;</td>
	</tr>

	<tr>
	<td width=60>预约人:</td>
	<td>
	<%if trim(rs("OrderName"))<>"" then%>
	<%=trim(rs("OrderName"))%>
	<%end if%>
	&nbsp;</td>
	<td nowrap width=60>填写时间:</td>
	<td>
	<%if trim(rs("OrderTime"))<>"" then%>
	<%=trim(rs("OrderTime"))%>
	<%end if%>
	&nbsp;</td>
	</tr>

	<tr>
	<td nowrap>用途:</td>
	<td>
	<%if trim(rs("Used"))<>"" then%>
	<%=trim(rs("Used"))%>
	<%end if%>
	&nbsp;</td>
	<td nowrap>行车路线:</td>
	<td>
	<%if trim(rs("Line"))<>"" then%>
	<%=trim(rs("Line"))%>
	<%end if%>
	&nbsp;</td>
	</tr>

	<tr>
	<td nowrap>司机:</td>
	<td>
	<%if trim(rs("Driver"))<>"" then%>
	<%=trim(rs("Driver"))%>
	<%end if%>
	&nbsp;</td>
	<td nowrap>详细说明：</td>
	<td><%=replace(replace(server.htmlencode(trim(rs("body"))&""),chr(13),"<br>")," ","&nbsp;")%>&nbsp;</td>
	</tr>
			
</table>
</div><BR>

<%
rs.movenext
wend
if nNumber=0 then
response.write "<font color=red>没有找到记录。</font>"
end if
rs.close
set rs=nothing
%>
</table>
<INPUT TYPE="hidden" name="OrderID" value="<%=LoginID%>">
<INPUT TYPE="hidden" name="CARID" value="<%=carID%>">
</form>
</div>
</BODY>
</HTML>
<!--#include file="../inc/conn_close.htm"-->
<%
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,oConn,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) VALUES(" & OrderID & _
		","& CarId & _
		","& Department & _
		",'"& OrderName & _
		"','"& OrderTime & _
		"','"& UserName & _
		"','"& StartTime & _
		"','"& EndTime & _
		"','"& Line & _
		"','"& Used & _
		"','"& Driver & _
		"');"
	oConn.execute (sql)
end sub
%>
⌨️ 快捷键说明

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