📄 genticket.asp

📁 航空订票系统基于asp.net和sql2005包含数据库和图片
💻 ASP
字号:
<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
oConn_Start
strSql = strSql + "Select C.ClassName,(Select ClassName From Sm_Class Where ClassId=I.ToClassId) as ToClassName,"&_
"(Select BasicName From Sm_BasicParam Where BasicId=I.FlyId) as FlyName,"&_
"(Select BasicName From Sm_BasicParam Where BasicId=I.CompanyId) as CompanyName,"&_
"I.* From Sm_Class c Inner Join Sm_InterFly I on c.ClassId=i.FromClassId Where 1=1"
Set oRs = oConn.Execute(strSql)
While Not oRs.Eof
	InterId           = oRs("InterId")
	FromClassName     = oRs("ClassName")
	ToClassName       = oRs("ToClassName")
	FlyName           = oRs("FlyName")
	CompanyName       = oRs("CompanyName")
	FromTime          = GetFlyTime(oRs("FromTime"))
	ToTime            = GetFlyTime(oRs("ToTime"))
	FlyPrice          = oRs("FlyPrice")
	FlyDoublePrice    = oRs("FlyDoublePrice")
	FlyNo             = oRs("FlyNo")
	FlyType           = oRs("FlyType")
	FlyWeekNo         = oRs("FlyWeekNo")
	FlyFlag           = oRs("FlyFlag")
	FlyMemo           = ReplaceContent(oRs("FlyMemo"))
FlyMemo = Replace(FlyMemo,"&nbsp;"," ")
FlyMemo = Replace(FlyMemo,"<br><TR","<TR")
FlyMemo = Replace(FlyMemo,"<br><TD","<TD")
FlyMemo = Replace(FlyMemo,"<br><TB","<TB")

	strOut = ""
strOut = strOut +  "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""& vbCrLf
strOut = strOut +  """http://www.w3.org/TR/html4/loose.dtd"">"& vbCrLf
strOut = strOut +  "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"& vbCrLf
strOut = strOut +  "<title>"&FromClassName&"-"&ToClassName&"机票信息|上海神马航空票务中心021-51099919</title>"& vbCrLf
strOut = strOut +  "<link href=""../style.css"" rel=""stylesheet"" type=""text/css"">"& vbCrLf
strOut = strOut +  "</head>"& vbCrLf
strOut = strOut +  ""& vbCrLf
strOut = strOut +  "<body>"& vbCrLf
strOut = strOut +  GetWebTop(3)

strOut = strOut +  "<TABLE WIDTH=780 BORDER=0 ALIGN=CENTER CELLPADDING=0 CELLSPACING=0>"& vbCrLf
strOut = strOut +  " <TR><TD VALIGN=TOP>"& vbCrLf
strOut = strOut +  "  <TABLE WIDTH=780 BORDER=0 CELLSPACING=0 CELLPADDING=0>"& vbCrLf
strOut = strOut +  "   <TR><TD class=""orgborder"">"& vbCrLf
strOut = strOut +  "    <TABLE width=100% BORDER=0 CELLSPACING=0 CELLPADDING=5>"& vbCrLf
strOut = strOut +  "     <TR><TD>"& vbCrLf
strOut = strOut +  "      <TABLE WIDTH=""100%"" CELLPADDING=5 CELLSPACING=0>"& vbCrLf
strOut = strOut +  "       <TR><TD width=""13%"">航程:</TD><TD width=""87%"">"&FromClassName&"－"&ToClassName&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR BGCOLOR=F7F7F7><TD>始发地:</TD><TD>"&FromClassName&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR><TD>目的地:</TD><TD>"&ToClassName&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR BGCOLOR=F7F7F7><TD>航空公司: </TD><TD>"&CompanyName&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR><TD>出发时间: </TD><TD>"&FromTime&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR BGCOLOR=F7F7F7><TD>到达时间:</TD><TD>"&ToTime&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR><TD>"& vbCrLf
If FlyFlag=3 Then
	strOut = strOut +  "全价:"
Else
	strOut = strOut +  "单程:"
End If
strOut = strOut +  "       </TD><TD>"&FlyPrice&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR BGCOLOR=F7F7F7><TD>"& vbCrLf
If FlyFlag=3 Then
	strOut = strOut +  "特价:"
Else
	strOut = strOut +  "往返:"
End If
strOut = strOut +  "       </TD><TD>"&FlyDoublePrice&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR><TD valign=top>备注: </TD><TD>"&FlyMemo&" </TD></TR>"& vbCrLf
strOut = strOut +  "       <TR><TD>&nbsp;</TD><TD><a href="""&GetOrderUrl(FlyFlag)&"?InterId="&InterId&"""><img src=""../images/but_order.gif"" width=""65"" height=""22"" BORDER=0></a></TD></TR>"& vbCrLf
strOut = strOut +  "      </TABLE>"& vbCrLf
strOut = strOut +  "     </TD></TR>"& vbCrLf
strOut = strOut +  "    </TABLE>"& vbCrLf
strOut = strOut +  "   </TD></TR>"& vbCrLf
strOut = strOut +  "  </TABLE>"& vbCrLf
strOut = strOut +  " </TD></TR>"& vbCrLf
strOut = strOut +  " <TR><TD VALIGN=TOP>&nbsp;</TD></TR>"& vbCrLf
strOut = strOut +  "</TABLE>"& vbCrLf

strOut = strOut + GetWebBottom()
strOut = strOut +  "</body></html>"
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath("../kgTicket/"&InterId&".htm"),true)
'写入网页内容
f.WriteLine strOut
f.close
set f=Nothing

Response.Write "生成"&InterId&".htm静态页成功！<br>"
Response.Flush()

oRs.MoveNext
Wend
set fso=Nothing
oRs.Close
Set oRs = Nothing
oConn_Close

Function GetOrderUrl(flag)
Select Case flag
Case 1
	GetOrderUrl = "../html/order1.asp"
Case 2
	GetOrderUrl = "../html/studentorder1.asp"
Case 3
	GetOrderUrl = "../html/guoneiorder1.asp"
End Select
End Function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -