?? savegoods.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file=include/setup.inc -->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="html/guest.css">
</head>
<body text=000000 bgcolor=000000 leftmargin="20" style="background-color: #ffffff">
<%
rem -----------------------
rem ---顯示留言成功函數----
rem -----------------------
function guestAccussful
if Goods=1 then
response.write "<br>感謝你使用聯發商務大酒店網上預訂系統<br>"
response.write "<br>我們工作人員查看預定后盡快與你聯系！<br>"
else
response.write "<br>您已經預定了"&chooseGoods(Goods-1)
response.write "<br>提交成功!請等待我們的回復.<br>"
end if
if len(title)>0 then
response.write "<br>您所在公司:<strong>"&server.htmlencode(replace(title,"''","'"))&"</strong>"
end if
if len(guest)>0 then
guest=replace(guest,"<","<")
guest=replace(guest,">",">")
guest=replace(guest,chr(34),""")
response.write "<hr size=1>您的預訂留言:<pre>"&replace(guest,"''","'")&"<hr size=1></pre>"
end if
if len(name)>0 then
response.write "<br>您的姓名："&server.htmlencode(replace(name,"''","'"))
end if
if len(homepage)>0 then
response.write "<br>您的電話:"&server.htmlencode(replace(homepage,"''","'"))&"</a>"
end if
if len(mail)>0 then
response.write "<br>您的地址:"&server.htmlencode(replace(mail,"''","'"))&"</a>"
end if
if len(shu)>0 then
response.write "<br>客戶人數:"&server.htmlencode(replace(shu,"''","'"))
end if
if len(go)>0 then
response.write "<br>入住時間:"&server.htmlencode(replace(go,"''","'"))
end if
if len(up)>0 then
response.write "<br>離開時間:"&server.htmlencode(replace(up,"''","'"))
end if
if len(address)>0 then
response.write "<br>電子郵箱:"&server.htmlencode(replace(address,"''","'"))
end if
response.write "<br>時間:"&ndatetime
end function
rem -----------------------
rem ---顯示成功函數結束----
rem -----------------------
name=request("name")
if len(name)>50 then
response.write "不會吧，您的名字這么長呀？"
response.end
end if
title=request("title")
if len(title)>200 then
response.write "提示：您的公司名字太長了"
response.end
end if
if title="" then
response.write "錯誤：請填寫你的公司呀!!"
response.end
end if
homepage=request("homepage")
if len(homepage)>400 then
response.write "你的電話太長了,國際長途啊!!"
response.end
end if
Goods=request("Goods")
if isNumeric(Goods)>=0 then
Goods=0
else
Goods=Cint(Goods)
end if
if Goods<1 or Goods>chooseNum then Goods=1
mail=request("mail")
if len(mail)>100 then
response.write "警告：您的郵箱地址太長了"
response.end
end if
shu=request("shu")
if len(shu)>200 then
response.write "馬上就要到桂林，不要這么激動吧！"
response.end
end if
go=request("go")
if len(go)>200 then
response.write "呵呵，你真喜歡開玩笑"
response.end
end if
up=request("up")
if len(up)>200 then
response.write "您再開玩笑，我不來了！"
response.end
end if
address=request("address")
if len(address)>200 then
response.write "您的地址太長了,填不下了!!"
response.end
end if
guest=request("guest")
if len(address)>3200 then
response.write "您的留言內容太多了,截掉一些內容或分成多次留言吧!"
response.end
end if
%>
<!-- #include file=database.asp -->
<%
ndatetime=now()
if name<>"" then name=replace(name,"'","''")
if title<>"" then title=replace(title,"'","''")
if homepage<>"" then homepage=replace(homepage,"'","''")
if mail<>"" then mail=replace(mail,"'","''")
if shu<>"" then shu=replace(shu,"'","''")
if go<>"" then go=replace(go,"'","''")
if up<>"" then up=replace(up,"'","''")
if address<>"" then address=replace(address,"'","''")
if guest<>"" then guest=replace(guest,"'","''")
con.Execute " INSERT INTO guest " _
& "(guesttime,name,title,homepage,product,mail,shu,go,up,address,guest) VALUES " _
& "('"&ndatetime&"', '" & name &"','" & title & "','"& homepage &"'," & Goods &",'" & mail &"','" & shu &"','" & go &"','" & up &"','" & address &"','" & guest &"');"
con.close
set con=nothing
guestAccussful()
%>
<p> <span class="p9"> <font color="#000000">【</font><a href="Goods.asp"><font color="#000000">返回預定表</font></a><font color="#000000">】
</font> </span>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -