📄 car_addnew.asp

📁 办公自动化系统适用于办公室的各种几本功能的操作功能比较简单
💻 ASP
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.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>
<%
CarID=trim(request("CarID"))
if CarID="" then CarID=0

name=trim(request("Name"))
model=trim(request("model"))
owner=trim(request("owner"))
contain=trim(request("contain"))
body=trim(request("body"))
buytime=trim(request("buytime"))
repairtime=trim(request("repairtime"))
repair=trim(request("repair"))

if request("cmdUpdate")<>"" then
	Conn.execute "update tblCar set Name='"& Name &"', Model='"& Model &"', Owner='"& Owner &"',Contain='"&contain&"',buytime='"&buytime&"',repairtime='"&repairtime&"',Body='"& body &"',Repair='"& repair &"' where ID="& CarID
	response.write "修改成功，谢谢。<a href=car_admin.asp>[返回]</a>"
	Conn.close
	response.end
end if

if CarID="0" and request("cmdUp")<>"" then
	AddData()
	response.write "添加成功，谢谢。<a href=car_admin.asp>[返回]</a>"
	Conn.close
	response.end
end if

if CarID<>"0" then
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"))
	buytime=trim(rs("buytime"))
	repairtime=trim(rs("repairtime"))
	repair=trim(rs("repair"))
end if
rs.close
set rs=nothing
end if
%>
<BODY BGCOLOR="#FFFFFF">
<form name=carform method="post" action="">
<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:window.location.href='car_admin.asp'">
</td></tr></table>

<table border=1 cellpadding=3 cellspacing=0 width="90%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr>
	<td bgcolor=#CCCCCC width=80>车辆名称</td>
	<td><input type="text" name="Name" value="<%=Name%>" class="input" size=20></td>
	<td bgcolor=#CCCCCC width=80>型号</td>
	<td><input type="text" name="Model" value="<%=model%>" class="input" size=20></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>责任负责人</td>
	<td><input type="text" name="Owner" value="<%=Owner%>" class="input" size=20></td>
	<td bgcolor=#CCCCCC>可使用人数</td>
	<td><input type="text" name="Contain" value="<%=contain%>" class="input" size=20></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>购买时间</td>
	<td><input type="text" name="Buytime" value="<%=buytime%>" class="input" size=20></td>
	<td bgcolor=#CCCCCC>保修时间</td>
	<td><input type="text" name="Repairtime" value="<%=Repairtime%>" class="input" size=20></td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>介绍</td>
	<td colspan=3>
	<textarea name="body" cols=50 rows=5><%=body%></textarea>
	</td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>维修记录</td>
	<td colspan=3>
	<textarea name="repair" cols=50 rows=5><%=repair%></textarea>
	</td>
</tr>
<tr>
	<td bgcolor=#CCCCCC>&nbsp;</td>
	<td colspan=3>
	<%if CarID<>"0" then%>
	<INPUT TYPE="submit" name="cmdUpdate" value="修  改" class="font9boldwhite">
	<%else%>
	<INPUT TYPE="submit" name="cmdUp" value="添  加" class="font9boldwhite">
	<%end if%>
	<INPUT TYPE="reset" name="cmdreset" value="重  置" class="font9boldwhite">
	</td>
</tr>

</table>
</div>
<INPUT TYPE="hidden" name="CarID" value="<%=CarID%>">
</form>
</BODY>
</HTML>

<!--#include file="../inc/connclose.asp"-->
<%
Sub AddData()
	sql=" INSERT INTO tblCar(Name,model,owner,buytime,repairtime,body,contain,repair) VALUES('" & Name & _
		"','"& model & _
		"','"& owner & _
		"','"& buyTime & _
		"','"& repairTime & _
		"','"& body & _
		"','"& contain & _
		"','"& repair & _
		"');"
	Conn.execute (sql)
end sub
%>
⌨️ 快捷键说明

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