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) %>