📄 addusage.asp

📁 一个简单的车辆管理系统

💻 ASP

字号:

<!--#include file="..\pub\ChkUser.asp"-->
<!--#include file="..\CONN.INC"-->

<html>
<head>
<title>Add Usage Event</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="..." type="text/css">
<link rel="stylesheet" href="..." type="text/css">
</head>
<body bgcolor="#FFFFFF" topmargin="8">
<%
set rs=Conn.execute (" select * from MobileInfo ")
MobStr="<Select name=MobileID>"
while not rs.eof
	MobStr=MobStr&"<Option Value="&rs("MobileID")
	if trim(Request("MobileID"))=trim(rs("MobileID")) then MobStr=MobStr&" selected"
	MobStr=MobStr&">"&rs("MobileModel")&"</option>"
	rs.movenext
wend
MobStr=MobStr&"</select>"
set rs=Conn.execute (" select * from DriverInfo")
UsrStr="<Select name=DriverID>"
while not rs.eof
	UsrStr=UsrStr&"<Option Value="&rs("DriverID")&">"&rs("DriverName")&"</option>"
	rs.movenext
wend
UsrStr=UsrStr&"</select>"
set rs=nothing
Response.write "<table border=1 width=700>"
response.write "<form action=AddUsage_OK.asp method=post>"
response.write "<tr><td>车辆名称</td><td>"&MobStr&"</td></tr>"
response.write "<tr><td>司机</td><td>"&UsrStr&"</td></tr>"
response.write "<tr><td>使用者<input type=hidden value="&Session("UserID")&" name=UserID></td><td>"&Session("UserName")&"</td>"
response.write "<tr><td>事件类型</td>"
response.write "<td><input type=hidden value=1 name=EventType>申请用车</td></tr>"
response.write "<tr><td>执行时间</td><td><input name=EventBDate></td></tr>"
response.write "<tr><td>结束时间</td><td><input name=EventEDate></td></tr>"
response.write "<tr><td>出发地</td><td><input name=FromWhere ></td></tr>"
response.write "<tr><td>目的地</td><td><input name=ToWhere ></td></tr>"
response.write "<tr><td>事件描述</td><td><input name=ForWhat ></td></tr>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
response.write "<table width=700>"
response.write "<tr><td><center><input type=submit value=确认添加></center></td></tr>"
response.write "</table>"
response.write "</form>"
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -