searching.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<!--#include file="Conn.asp"-->
<!--#include file="client_infor.asp"-->
<!--#include file="wait.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="query_result.asp"-->
<%
CustomerCode=request.form("CustomerCode")
if CustomerCode="" then
	CustomerCode=TestCustomerID
end if
userpsd=trim(request.form("userpsd"))
if userpsd="" then
	userpsd=userpassword
end if
'userpsd="123456"
userpsd=md5(userpsd)

clientIP = request.ServerVariables("REMOTE_ADDR")'获到客户的访问ID
'获取服务器的访问网址
'clientIhost = request.servervariables("HTTP_REFERER")
'filename=request("filename")
clientIhost="http://"&request.ServerVariables("HTTP_HOST")&filename
ClientPam=CustomerCode&","&userpsd&","&clientIhost

radio=Request.form("radio")		'单/往返 程
StartCity01 = Left(Request.form("Startcity01"),3)	'出发城市
EndCity01 = Left(Request.Form("EndCity01"),3)		'到达城市
StrDate01 = Request.form("StrDate01")		'出发日期
strDate03 = Request.form("strDate03")		'返程日期
Time01 = Request.form("Time01")
strTime03 = Request.form("strTime03")
airlineCode01 = Request.form("airlineCode01") '航空公司
cheapset = Request.form("cheapset")			'航位信息
sign = Request("sign")						'电子客票

session("startime")=timer()'获取开始查询的时间

If StartCity01="" Then
 errinfor("出发城市不能为空，请返回重新输入！")
 response.End()
End if

If EndCity01="" Then
 errclose("目的城市不能为空，请返回重新输入！")
 response.End()
End if

if StrDate01 = "" then
 errclose("出发日期不能为空，请返回重新输入！")
 response.End()
End if

if radio="2" And trim(strDate03)<>"" then
  if cdate(StrDate01)>cdate(strDate03) then
	  errclose("回程日期不能小于出发日期，请返回重新输入")
	  response.End()
  End if
else
  strDate03=""
  radio="1"
End if
%>
<%	
fly_values= TestGetData(StartCity01+EndCity01,StrDate01,ClientPam,airlineCode01,Time01,planetype,sign,cheapset,0,Condi_Baoliu)	'调用查询结果函数
call errmsg(fly_values)		'调用返回提示函数
if radio="2" then
	fly_values2=TestGetData(EndCity01+StartCity01,strDate03,ClientPam,airlineCode01,strTime03,planetype,sign,cheapset,0,Condi_Baoliu)
	call errmsg(fly_values2)		'调用返回提示函数	
end if
cek="OK"
'response.write fly_values
'response.End()
if left(fly_values,1) = "0" then
	cek="NU"
	if instr(fly_values,"无法连接")>0 then
		call errclose(fly_values&"请与服务提供商联系。")
	end if
	fly_values=""		 
end if 

website="show.asp"
%>
<form action="<%=WebSite%>" name="myform"  method="post"> 
	<input type='hidden' name='cek' value="<%=cek%>" >
	<input type='hidden' name='fly_values'  value="<%=fly_values&"1"%>" > 
<%if radio=2 then%>
	<input type='hidden' name='fly_values2'  value="<%=fly_values2&"2"%>" >
<%end if%>
</form> 
<script language='Javascript'>document.myform.submit();</script>