⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 zzulinsave.asp

📁 这是一个关于汽车销售集团的网站
💻 ASP
字号:
<%@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
%>
%>

⌨️ 快捷键说明

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