📄 caredit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑车辆基本信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.carno.value==""){
alert("请输入车辆编号！");
form1.carno.focus;
return false;
}
if (document.form1.type.value==""){
alert("请输入车辆类型！");
form1.type.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim CarNo,cType,SurveyDate,Price,Sits,BuyDate,EngineNo,CarCase,InsurName,Sdate,Edate,SaleName,InsurNo,InsurType,Comment
Dim Action,rs
'变量初始化
CarNo = "京"
BuyDate = Date()
Sdate = Date()
Price = 0
Sits = 5
InsurType = "全险"
Edate = Date()
'读取参数action\id
Action = Request.QueryString("action")
Set rs = Server.CreateObject("ADODB.RecordSet")
'编辑记录
If Action = "edit" Then
CarNo = Request.QueryString("id")
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM Cars WHERE CarNo='" & CarNo & "'"
rs.Open sql,conn,1,3
If Not rs.EOF Then
cType = rs("CarType")
SurveyDate = rs("SurveyDate")
Price = rs("Price")
Sits = rs("Sits") ' 座位数
EngineNo = rs("EngineNo") '发动机号
CarCase = rs("CarCase")
SaleName = rs("SaleName")
BuyDate = rs("BuyDate") ' 购买日期
InsurNo = rs("InsurNo") ' 保单编号
InsurName = rs("InsurName") ' 保险公司名称
InsurType = rs("InsurType") '保险类别
Sdate = rs("InsurSdate") ' 保险开始日期
Edate = rs("InsurEdate") '保险结束日期
Comment = rs("Comment") '车辆介绍
End If
rs.Close()
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="CarSave.asp?action=<%=Action%>" onsubmit="return CheckFlds()">
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="../pic/car.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">车辆基本信息</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">车牌号码</td>
<td width="40%"><input type="text" name="carno" size="16" value="<%=CarNo%>" <%If Action = "edit" Then%>ReadOnly<%End If%>></td>
<td width="20%" bgcolor="#CEE7FF">车辆类型</td>
<td width="40%"><input type="text" name="type" size="16" value="<%=cType%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">年审日期</td>
<td><input type="text" name="svdate" size="16" value="<%=SurveyDate%>"> </td>
<td bgcolor="#CEE7FF">座位个数</td>
<td><input type="text" name="sits" size="16" value="<%=Sits%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">购买价格</td>
<td><input type="text" name="price" size="16" value="<%=Price%>"> </td>
<td bgcolor="#CEE7FF">购买时间</td>
<td><input type="text" name="bdate" size="16" value="<%=BuyDate%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">发动机号</td>
<td><input type="text" name="eno" size="16" value="<%=EngineNo%>"> </td>
<td bgcolor="#CEE7FF">车架号码</td>
<td><input type="text" name="case" size="16" value="<%=CarCase%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >销售商</td>
<td colspan="3"><input type="text" name="sale" size="50" value="<%=Sale%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">保险商名称</td>
<td><input type="text" name="iname" size="16" value="<%=InsurName%>"> </td>
<td bgcolor="#CEE7FF">保单号</td>
<td><input type="text" name="ino" size="16" value="<%=InsurNo%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">开始日期</td>
<td><input type="text" name="sdate" size="16" value="<%=Sdate%>"> </td>
<td bgcolor="#CEE7FF">结束日期</td>
<td><input type="text" name="edate" size="16" value="<%=Edate%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >保险种类</td>
<td colspan="3"><input type="text" name="itype" size="50" value="<%=InsurType%>"> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >车辆描述</td>
<td colspan="3"><textarea rows="4" name="comment" cols="50"><%=Comment%></textarea> </td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -