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

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

dim gname,stel,renshu,cfrq,cfdd,content,lx

lx=getform("lxid",2,0)
gname=getform("gname",1,1)
stel=getform("tel",1,1)
renshu=getform("renshu",2,0)
cfrq=getform("cfrq",1,1)
cfdd=getform("cfdd",1,1)
content=getform("content",1,1)

if renshu="" or gname="" or stel="" or cfrq="" or cfdd="" then 
call errs("请将信息填写完整")
end if

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

'插入记录////////////////////////////////////////////////////////////////////////////////////
call record(rs,"select top 1 * from Jw_lxyd where 1=1",3)
rs.addnew()
rs("lx")=lx
rs("gname")=gname
rs("tel")=stel
rs("renshu")=renshu
rs("cfrq")=cfrq
rs("cfdd")=cfdd
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)
%>