detail_result.asp

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

        <TABLE width="100%" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
          <TR bgcolor="#EFF3F7">
             <TD width="100" bgcolor="#eff3f7"><span class="YBT STYLE-29">&nbsp;<%response.write pricetodiscount(aprice,fullprice,2)%>元</span></TD>
             <TD width="95" bgcolor="#eff3f7"><%SortedBunkItemArray=split((SortedBunkListArray(BunkItemIndex)),"@")
			 	select case SortedBunkItemArray(1)
				case 0 '静态特价
					bunk_fly_type= SortedBunkItemArray(3)
					response.write "<font color=red>"&SortedBunkItemArray(3)&"("&mid(SortedBunkListArray(BunkItemIndex),3,1)&")"&"</font>"
				case 1 '动航班特价
					bunk_fly_type= SortedBunkItemArray(3)
					response.write "<font color=red>"&SortedBunkItemArray(3)&"("&mid(SortedBunkListArray(BunkItemIndex),3,1)&")"&"</font>"
				case 2 '动航线特价
					bunk_fly_type= SortedBunkItemArray(3)
					response.write "<font color=red>"&SortedBunkItemArray(3)&"("&mid(SortedBunkListArray(BunkItemIndex),3,1)&")"&"</font>"
				case else
					bunk_fly_type= returndiscountstr(mid(SortedBunkListArray(BunkItemIndex),1,2))
					response.write returndiscountstr(mid(SortedBunkListArray(BunkItemIndex),1,2))&"("&mid(SortedBunkListArray(BunkItemIndex),3,1)&")"
			end select
				%></TD>
             <TD width="135" bgcolor="#eff3f7"><span class="STYLE-15">v</span>剩余票数<strong>
			<%if SortedBunkItemArray(1)=0 then
				response.write SortedBunkItemArray(2)
			else
				response.write bunk_num(mid(SortedBunkListArray(BunkItemIndex),4,1))
			end if%></strong> 张</TD>
             <TD width="172" align="center" bgcolor="#eff3f7" class=soti03><a href="page.asp?ty=5&tname=<%=F_Airways(left(flyNo,2))%>&tid=<%=left(flyNo,2)%>" target="_blank" class="uline"><span class="STYLE-15">2</span>退改签规定</a></TD>
             <TD width=106 height=24 align="right" valign="middle" bgcolor="#eff3f7">
			 <%dDates=Dates & " " & fly_time(split_fly(fly_values(i),5))
				If DateDiff("h",Now(),dDates)<1 Then 
					If DateDiff("s",Now(),dDates)<1 Then
					response.write "<strong>已起飞</strong>"				
				    Else
				   	response.write "<strong>已停售</strong>"
                    End If	
				Else
				''''lyq-------2007-3-16
				urlstring="cc="&cc&"&bf="&right(values,1)&"&price="&pricetodiscount(aprice,fullprice,2)&"&fullprice="&fullprice&"&bunk="&mid(SortedBunkListArray(BunkItemIndex),3,1)&"&b_type="&bunk_fly_type&"&fly_num="&flyNo&"&airways="&F_Airways(left(flyNo,2))&"&fly_date="&Dates&"&Startcity_cn="&codetocity(split_fly(fly_values(i),1))&"&EndCity_cn="&codetocity(split_fly(fly_values(i),2))&"&time_from="&fly_time(split_fly(fly_values(i),5))&"&time_to="&fly_time(split_fly(fly_values(i),6))&"&planetype="&split_fly(fly_values(i),4)&"&Startcity="&split_fly(fly_values(i),1)&"&EndCity="&split_fly(fly_values(i),2)&"&ZXLCityFlyCode="&split_fly(fly_values(i),1)&split_fly(fly_values(i),2)&"&jianshefei="&jianshefei1&"&distance="&distance&"&gasTaxPrice="&gasTaxPrice&"&sortfly="&(mid(SortedBunkListArray(BunkItemIndex),3,1))&(mid(SortedBunkListArray(BunkItemIndex),1,2))&"&bunkseat="&SortedBunkItemArray(4)
			if trim(SortedBunkItemArray(4))="S" then'判断是否是服务器上的特价信息
				urlstring=urlstring&"&providercode="&SortedBunkItemArray(7)&"&fandian="&SortedBunkItemArray(8)&"&backmoney="&SortedBunkItemArray(9)&"&limitif="&SortedBunkItemArray(10)&"&ticketgrade="&SortedBunkItemArray(11)&"&qian_zhu="&SortedBunkItemArray(12)&"&special="&SortedBunkItemArray(13)
			end if		
				%>
               <a href="<%=gourl%>?<%=urlstring%>"><IMG src="img/order_seat.gif" width=96 height=21 border="0" align="absmiddle" ></a>
               <%end if%></TD>
              </TR>
            </TABLE>