saveorder.asp

一个不错的酒店源码,从别的地方找来的!希望能换点积分!

<%
'###########################################################################################
'			   Copyright (C) 2006 FreeLin rights reserved.                                 '
'			      本系统由FREELIN工作室独立开发2006.3.20                                      '
'				     版权所有,并保留所有版权,不得修改传播                                       '
'					    http://www.yisky.com                                          '
'						     [e-mail]                                                '
'###########################################################################################
%>
<!--#include file="conn.asp"-->
<LINK href="img/style.css" type=text/css rel=stylesheet>
<title>保存信息</title>
<%
dim name,tel,dress,indata,outdata,other,data,number,proNO,email
		
	name = trim(Request.Form("name"))
	tel = trim(Request.Form("tel"))
	indata = trim(Request.Form("indata"))
	outdata = trim(Request.Form("outdata"))
	number = trim(Request.Form("number"))
	proNO = trim(Request.Form("proNO"))

	dress = trim(Request.Form("dress"))
	email = trim(Request.Form("email"))
	other = server.htmlencode(trim(Request("other")))

	if dress="" then dress="未知"
	if email="" then email="未知"
	if other="" then other="未知"

	sql = "select * from booker"
	set rs = server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("name") = name
	rs("tel") = tel
	rs("dress") = dress
	rs("indata") = indata
	rs("outdata") = outdata
	rs("other") = other
	rs("data") = date()
	rs("number") = number
	rs("proNO") = proNO
	rs("email") = email
	rs("xln_view") = "no"
	rs.update
	conn.close
	Response.write "<title>FreeLin 提示：添加成功！</title><p>&nbsp;</p><table width='300' align='center' border='1' cellpadding='0' cellspacing='0' bordercolor='#f0f0f0'><tr><td height='30' align='center' bgcolor='#FAFAFA'><font class='title'>FreeLin 提示：添加成功！</font></td></tr><tr><td height='90' align='center' bgcolor='#FEFEFE'><font color='red'>添加成功！<font><br><br><A HREF='services.asp'>点击返回</A></td></tr></table>"
	Response.end
%>