📄 save_onlinedd.asp
字号:
<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_system.asp-->
<!--#include file=../include/access.asp-->
<%
dim rs,sql,bz,ddh
ddh=replace(now(),left(now(),2),"")
ddh=replace(ddh,"-","")
ddh=replace(ddh,":","")
ddh=replace(ddh," ","")
ddh="dd" & ddh
bz=request("bz")
bz=replace(bz," "," ")
bz=replace(bz,chr(13)&chr(10),"<Br>")
sql="select * from [onlinedd]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("ddh")=ddh
rs("house_bh")=session("house_bh")
rs("name")=request("name")
rs("tel")=request("tel")
rs("email")=request("email")
rs("bz")=bz
rs("date")=now()
rs("user_id")=session("user_id")
rs("zj_id")=request("zj_id")
rs("pass")="否"
rs.update
%>
<%
dim fso,f,forappending
forappending=8
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.Mappath("remove.txt"), forappending, True)
f.WriteLine request("email")
f.Close()
set f=nothing
set fso=nothing
%>
<html>
<head>
<title>请填写在线订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../style.css" type="text/css">
</head>
<style>.tm { border: 1px #FCFFEE solid;BACKGROUND: #FCFFEE;FONT-SIZE: 9pt ;color: #FCFFEE; FONT-FAMILY: arial}</style>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<br>
<br>
<table width="336" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle" height="40" class="font">恭喜您！您已成功向我们下了订单。<br>
请记住您的订单号，以方便以后查询！</td>
</tr>
</table>
<table width="336" border="0" cellspacing="2" cellpadding="0" class="xu_kuan" align="center">
<tr valign="middle" bgcolor="#FFF0B5">
<td height="38" colspan="2" align="center" class="font">订 单 号：<font color=red><%=rs("ddh")%></font></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">预定日期：</td>
<td class="font" align="left" width="449" height="30"><%=rs("date")%></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">房源编号：</td>
<td class="font" align="left" height="30" width="449"><font color=red><%=rs("house_bh")%></font></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">姓 名：</td>
<td class="font" align="left" height="30" width="449"><%=rs("name")%></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">电 话：</td>
<td class="font" align="left" height="30" width="449"><%=rs("tel")%></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">Ｅ－mail：</td>
<td class="font" align="left" height="30" width="449"><%=rs("email")%></td>
</tr>
<tr valign="middle" bgcolor="#FCFFEE">
<td class="font" align="center" width="111">其它说明：</td>
<td class="font" align="left" height="30" width="449"><%=rs("bz")%></td>
</tr>
</table>
<table width="336" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" valign="middle" height="40"><span class="font">[</span><a href="vbscript:window.history.back" class="linkfont">返 回</a><span class="font">]</span></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -