global.asp.bak

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

<%
'================ 公共变量定义 开始 ================
Dim pageStartTime : pageStartTime = Timer() '页面执行计时开始
Dim oConn '数据源对象
'================ 公共变量定义 结束 ================

'================ 页面执行计时 开始 ================
'函数：计算页面执行时间（毫秒）
Function GetPageExecuteTime()
  Dim pageCloseTime
  pageCloseTime = Timer()
  GetPageExecuteTime = FormatNumber((pageCloseTime - pageStartTime) * 1000, 5, -1)
End Function
'================ 页面执行计时 结束 ================

'================ 数据源 开始 ================
'过程：打开数据源
Sub oConn_Start
  Dim DBConnectionStr
	If DataBaseType = 1 Then 'SQL数据库连接参数
    'DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=.;User ID=sa;Password=123456;Database=kgDataBase;"
	DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=61.129.64.148;User ID=shwnzx_com;Password=khaphb;Database=shwnzx_com;"
	'DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=61.129.112.238;User ID=shasm;Password=shasmcom;Database=shasm;"
	'DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=surlink-004\sqlserver;User ID=fang;Password=fang;Database=shakg;"
	'DBConnectionStr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=surlink-004\sqlserver;User ID=fang;Password=fang;Database=shakg_com;"
	Else 'Access数据库连接参数：数据库相对路径及名称，为安全起见，请更改数据库后缀名，如将noahsite.mdb改为noahsite.asp
    'Dim DBFile
    'DBFile = BasePath & "data/noahsite.mdb"
    DBConnectionStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFile)
	End If
  On Error Resume Next
  Set oConn = Server.CreateObject("ADODB.CONNECTION")
  oConn.CursorLocation = 3
  oConn.Open DBConnectionStr
	If Err.Number <> 0 Then
		Err.Clear
		Set oConn = Nothing
		Response.Write "Database error, please check database connection string. <br>数据库连接错误，请检查数据库连接字符串。"
		Response.End
	End If
End Sub
'过程：关闭数据源
Sub oConn_Close
  If IsObject(oConn) Then
    oConn.Close
    Set oConn = Nothing
  End If
End Sub

'函数：执行SQL命令
Function oConn_Execute(SQL)
  If Not IsObject(oConn) Then oConn_Start
  If DeBugFlag = 0 Then
    On Error Resume Next
    Set oConn_Execute = oConn.Execute(SQL)
    If Err.Number <> 0 Then
      Err.Clear
      oConn_Close
      Response.Write "Database operation error, please check your SQL statement. If you need more infomation, please change the page run mode. <br>执行数据库操作时发生错误，请检查您的查询语句是否正确。如果您需要查看详细错误信息，请将运行模式更改为调试模式。"
      Response.End
    End If
  Else
    Set oConn_Execute = oConn.Execute(SQL)
  End If	
End Function
Function CheckSession()
	'If IsEmpty(Session("UserName")) Then
		'Response.Write "<script language=javascript>alert('您已经超时请重新登陆');top.location.href='" & StrSite & "login.asp';<'/script>"
		'Response.end
	'End If
	'If IsEmpty(Session("UserName")) Then Response.Redirect(StrSite & "login.asp")
End Function
'================ 数据源 结束 ================
Function GetInterTicket()
strSql = "Select top 40 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 in(1,2) And RecommendFlag=1"
strSql = strSql + " Order by ToClassName"
Set tempRs = oConn.Execute(strSql)
strTempTicket = strTempTicket + "<table width=""96%"" align=""center"" cellpadding=""3"" cellspacing=""0"">"& vbCrLf
While Not tempRs.Eof	
	strTempTicket = strTempTicket + "                <tr>"& vbCrLf
	for intCount=0 to 0
	if tempRs.Eof then exit for
	InterId = tempRs("InterId")
	FromClassName = tempRs("ClassName")
	ToClassName = tempRs("ToClassName")
	strTempTicket = strTempTicket + "                  <td align=""left"" width=""170""><a href="""&strSite&"kgTicket/"&InterId&".htm""><font color=""#F84D1F"">·</font>"&FromClassName&"－"&ToClassName&"</a></td>"& vbCrLf
	tempRs.MoveNext
	next
	strTempTicket = strTempTicket + "                </tr>"& vbCrLf
Wend
strTempTicket = strTempTicket + "            </table>"& vbCrLf
tempRs.Close
Set tempRs = Nothing
GetInterTicket = strTempTicket
End Function
'获取网页头部信息
Function GetWebTop01(marOption)

strTemp = strTemp +  "<style type=""text/css"">"& vbCrLf
strTemp = strTemp +  "<!--"& vbCrLf
strTemp = strTemp +  ".style3 {color: #6699FF}"& vbCrLf
strTemp = strTemp +  "-->"& vbCrLf
strTemp = strTemp +  "</style>"& vbCrLf
strTemp = strTemp +  "<table width=""780""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
'strTemp = strTemp +  "  <tr>"& vbCrLf
'strTemp = strTemp +  "    <td colspan=""3"" align=""center""><img src="""&strSite&"images/5.gif"" width=""1"" height=""5""></td>"& vbCrLf
'strTemp = strTemp +  "  </tr>"& vbCrLf
strTemp = strTemp +  "  <tr>"& vbCrLf
strTemp = strTemp +  "    <td width=""228"" align=""center""><table width=""98"" border=""0"" cellspacing=""0"" cellpadding=""0"">"& vbCrLf
strTemp = strTemp +  "        <tr>"& vbCrLf
strTemp = strTemp +  "          <td height=""70"" valign=bottom><img src="""&strSite&"images/nlogo.gif"" alt=""特价机票、打折机票、飞机票""></td>"& vbCrLf
strTemp = strTemp +  "        </tr>"& vbCrLf
strTemp = strTemp +  "        <tr>"& vbCrLf
strTemp = strTemp +  "          <td><table cellspacing=0><tr><td><span style=""font-size: 12px;color:red;line-height: 20px;""><strong>021-</strong> </span></td><td><span style=""font-size: 12px;color: #0066FF;line-height: 20px;""><strong>"&LogoPhone1&"&nbsp;&nbsp;"&LogoPhone2&"</strong></span></td></tr><tr><td></td><td><span style=""font-size: 12px;color: #0066FF;line-height: 20px;""><strong>"&LogoPhone3&"&nbsp;&nbsp;"&LogoPhone4&"</strong></span></td></tr></table></td>"& vbCrLf
strTemp = strTemp +  "        </tr>"& vbCrLf
strTemp = strTemp +  "    </table></td>"& vbCrLf
strTemp = strTemp +  "    <td width=""467"" align=""center""><object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""550"" height=""100"">"& vbCrLf
strTemp = strTemp +  "        <param name=""movie"" value="""&strSite&"images/top.swf"">"& vbCrLf
strTemp = strTemp +  "        <param name=""quality"" value=""high"">"& vbCrLf
strTemp = strTemp +  "        <embed src="""&strSite&"images/top.swf"" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""460"" height=""75""></embed>"& vbCrLf
strTemp = strTemp +  "    </object></td>"& vbCrLf
'strTemp = strTemp +  "    <td width=""94"" align=""right""><table width=""60"" border=""0"" cellspacing=""5"" cellpadding=""0"">"& vbCrLf
'strTemp = strTemp +  "        <tr>"& vbCrLf
'strTemp = strTemp +  "          <td align=""center""><a class=chlnk style=""CURSOR: hand; "" onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.shakg.com');return false;""  href=""http://www.shakg.com""><img src="""&strSite&"images/t_b01.gif"" width=""72"" height=""17""></a></td>"& vbCrLf
'strTemp = strTemp +  "        </tr>"& vbCrLf
'strTemp = strTemp +  "        <tr>"& vbCrLf
'strTemp = strTemp +  "          <td align=""center""><a href=""javascript:window.external.AddFavorite(location.href,'上海神马航空票务中心')"" ><img src="""&strSite&"images/t_b02.gif"" width=""72"" height=""17""></a></td>"& vbCrLf
'strTemp = strTemp +  "        </tr>"& vbCrLf
'strTemp = strTemp +  "        <tr>"& vbCrLf
'strTemp = strTemp +  "          <td align=""center""><a href=""mailto:***@***""><img src="""&strSite&"images/t_b03.gif"" width=""72"" height=""17"" border=""0""></a></td>"& vbCrLf
'strTemp = strTemp +  "        </tr>"& vbCrLf
'strTemp = strTemp +  "    </table></td>"& vbCrLf
strTemp = strTemp +  "  </tr>"& vbCrLf
'strTemp = strTemp +  "  <tr>"& vbCrLf