<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim msg,strurl,id
id=request("id")
'====================================================
'处理预定提交信息
'====================================================
action=request("action")
if action="add" then
diid = now()
diid=replace(diid,":","")
diid=replace(diid,"-","")
diid=replace(diid," ","")
sql="select * from hyyd"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("xiangming")=request.Form("xiangming")
rs("tel")=request.Form("tel")
rs("fax")=request.Form("fax")
rs("email")=request.Form("email")
rs("dingdanhao")=diid
if request("changdi")<>"" then
rs("changdi")=request.Form("changdi")
end if
rs("qssj")=request.Form("qssj")
rs("jzsj")=request.Form("jzsj")
rs("bz")=request.Form("bz")
rs("qssj1")=request.Form("qssj1")
rs("jzsj1")=request.Form("jzsj1")
if request.Form("userid")="" then
rs("userid")=0
else
rs("userid")=request.Form("userid")
end if
rs("zhuti1")=request.Form("zhuti1")
rs("taixing1")=request.Form("taixing1")
rs("hymc1")=request.Form("hymc1")
if request("zrenshu1")<>"" then
rs("zrenshu1")=request.Form("zrenshu1")
end if
if request("kefang1")<>"" then
rs("kefang1")=request.Form("kefang1")
end if
if request("zhuo1")<>"" then
rs("zhuo1")=request.Form("zhuo1")
end if
if request("yuan1")<>"" then
rs("yuan1")=request.Form("yuan1")
end if
if request("xizhuo1")<>"" then
rs("xizhuo1")=request.Form("xizhuo1")
end if
rs("canbiao1")=request.Form("canbiao1")
if request("wzhuo1")<>"" then
rs("wzhuo1")=request.Form("wzhuo1")
end if
if request("wyuan1")<>"" then
rs("wyuan1")=request.Form("wyuan1")
end if
if request("wxizhuo1")<>"" then
rs("wxizhuo1")=request.Form("wxizhuo1")
end if
rs("wcanbiao1")=request.Form("wcanbiao1")
rs("sheshi1")=request.Form("sheshi1")
if request("qssj2")<>"" or request("jzsj2")<>"" then
rs("qssj2")=request.Form("qssj2")
rs("jzsj2")=request.Form("jzsj2")
rs("zhuti2")=request.Form("zhuti2")
rs("hymc2")=request.Form("hymc2")
rs("renshu2")=request.Form("renshu2")
rs("taixing2")=request.Form("taixing2")
rs("zrenshu2")=request.Form("zrenshu2")
rs("kefang2")=request.Form("kefang2")
if request.Form("zhuo2")<>"" then
rs("zhuo2")=request.Form("zhuo2")
end if
if request.Form("yuan2")<>"" then
rs("yuan2")=request.Form("yuan2")
end if
if request.Form("xizhuo2")<>"" then
rs("xizhuo2")=request.Form("xizhuo2")
end if
if request.Form("canbiao2")<>"" then
rs("canbiao2")=request.Form("canbiao2")
end if
if request.Form("wzhuo2")<>"" then
rs("wzhuo2")=request.Form("wzhuo2")
end if
if request.Form("wyuan2")<>"" then
rs("wyuan2")=request.Form("wyuan2")
end if
if request.Form("wxizhuo2")<>"" then
rs("wxizhuo2")=request.Form("wxizhuo2")
end if
if request.Form("wcanbiao2")<>"" then
rs("wcanbiao2")=request.Form("wcanbiao2")
end if
rs("sheshi2")=request.Form("sheshi2")
end if
rs("qtyq")=request.Form("qtyq")
ok=2
rs.update
rs.close
set rs=nothing
if ok=2 then
response.Write ""
response.End()
else
response.Write ""
response.End()
end if
end if
%>
酒店宣传片视频
