www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > innordersave.asp

    <!--#include file="config.asp" -->
<!--#include file="admin/inc/md5.asp" -->
<%
call zwtj()

dim jd,fx,renshu,gname,stel,sfax,semail,sqq,jianshu,rzrq,ldrq,sfjz,content

jd=getform("jd",2,0)
fx=getform("fx",2,0)
renshu=getform("renshu",2,0)
gname=getform("gname",1,1)
stel=getform("tel",1,1)
sfax=getform("fax",1,1)
semail=getform("email",1,1)
sqq=getform("qq",1,1)
jianshu=getform("jianshu",2,0)
rzrq=getform("rzrq",1,1)
ldrq=getform("ldrq",1,1)
sfjz=getform("sfjz",1,1)
content=getform("content",1,1)

if fx="" or renshu="" or gname="" or jianshu="" or rzrq="" or ldrq="" or sfjz="" then 
call errs("请将信息填写完整")
end if

if isnumeric(jianshu)=false then 
call errs("预订间数只能为数字")
end if

if isnumeric(renshu)=false then 
call errs("入住人数只能为数字")
end if

'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from Jw_jdyd where 1=1",3)
rs.addnew()
rs("jd")=jd
rs("fx")=fx
rs("renshu")=renshu
rs("gname")=gname
rs("tel")=stel
rs("fax")=sfax
rs("email")=semail
rs("qq")=sqq
rs("jianshu")=jianshu
rs("rzrq")=rzrq
rs("ldrq")=ldrq
rs("sfjz")=sfjz
rs("content")=content
rs("ctim")=now()
rs("ck")=0
rs("ip")=userip()

rs("ctim")=now()
rs.update()
call recordend(rs)

if err.number>0 then 
call errs("有错误发生")
end if
call errs(0)

%>