zzulinsave.asp

来自「汽车销售系统毕业设计」· ASP 代码 · 共 35 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=DataBase/conn.asp-->
<%
if request("carsname")<>"" and request("UserName")<>"" and request("Phone")<>"" and request("Fax")<>"" and request("Email")<>"" and request("Hander")<>"" and request("Address")<>"" and request("Numbers")<>"" then

StartTime=request("nian")&"-"&request("yue")&"-"&request("ri")
EndTime=request("nian1")&"-"&request("yue1")&"-"&request("ri1")

set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Tenancy"
rs.open sql,conn,1,3
rs.addnew
rs("CarsName")=request("carsname")
rs("UserName")=request("UserName")
rs("Phone")=request("Phone")
rs("Fax")=request("Fax")
rs("Email")=request("Email")
rs("Hander")=request("Hander")
rs("Address")=request("Address")
rs("Numbers")=request("Numbers")
rs("StartTime")=StartTime
rs("EndTime")=EndTime
rs("IssueDate")=date()
rs("Whether")="未授理"

rs.update
rs.close
response.Write("<script language=javascript>alert('订单提交成功');window.close()</script>")
else 
response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
end if
%>
%>