📄 global.asp
字号:
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td height=""25"" colspan=""3"" align=""center""><marquee behavior=scroll width=100% scrollamount=2 scrolldelay=2 onmouseover=""this.stop()"" onmouseout=""this.start()"">"& vbCrLf
strTemp = strTemp + " <font size=""2""><b>"&GetWebMarquee(marOption)&"</b></font> "& vbCrLf
strTemp = strTemp + " </marquee></td>"& vbCrLf
strTemp = strTemp + " </tr>"& 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 + "</table>"& vbCrLf
GetWebTop = strTemp
End Function
Function GetWebTop02(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=""219"" align=""center""><table width=""98"" border=""0"" cellspacing=""2"" cellpadding=""0"">"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td height=42 valign=bottom><img src="""&strSite&"images/logo.gif"" alt=""特价机票、打折机票、飞机票"" width=""201"" height=""29""></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td><table cellspacing=0><tr><td><span style=""font-size: 12px;color: #0066FF;line-height: 20px;""><strong>021-</strong> </span></td><td><span style=""font-size: 12px;color: #0066FF;line-height: 20px;""><strong>"&LogoPhone1&" "&LogoPhone2&"</strong></span></td></tr><tr><td></td><td><span style=""font-size: 12px;color: #0066FF;line-height: 20px;""><strong>"&LogoPhone3&" "&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=""460"" height=""75"">"& vbCrLf
strTemp = strTemp + " <param name=""movie"" value="""&strSite&"images/banner.swf"">"& vbCrLf
strTemp = strTemp + " <param name=""quality"" value=""high"">"& vbCrLf
strTemp = strTemp + " <embed src="""&strSite&"images/banner.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
strTemp = strTemp + " <td colspan=""3"" align=""center""><img src="""&strSite&"images/3.gif"" width=""1"" height=""3""></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " <tr bgcolor=""#FF7300"">"& vbCrLf
strTemp = strTemp + " <td colspan=""3"" align=""center""><table width=""778"" height=""32"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""2"">"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"index.asp"" class=""An"" target=""_top"">首 页</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"html/guoji.asp"" class=""An"" target=""_top"">国际机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"html/guonei.asp"" class=""An"" target=""_top"">国内机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"html/student.asp"" class=""An"" target=""_top"">学生特价</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href=""#"" class=""An"" target=""_top"">酒店预订</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"html/wenti.asp"" class=""An"" target=""_top"">常见问题</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF""><a href="""&strSite&"html/fuwu.asp"" class=""An"" target=""_top"">服务中心</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""80"" align=""center"" bgcolor=""#FFFFFF"" class=""tw""><a href="""&strSite&"html/lianxi.asp"" class=""An"" target=""_top"">联系我们</a></td>"& vbCrLf
strTemp = strTemp + " <td align=""center"" class=""tw""><div align=""center""><font color=""#FFFFFF"">"& vbCrLf
strTemp = strTemp + " <script language=""JavaScript"">"& vbCrLf
strTemp = strTemp + "<!--"& vbCrLf
strTemp = strTemp + "tmpDate = new Date();"& vbCrLf
strTemp = strTemp + "date = tmpDate.getDate();"& vbCrLf
strTemp = strTemp + "month= tmpDate.getMonth() + 1 ;"& vbCrLf
strTemp = strTemp + "year= tmpDate.getYear();"& vbCrLf
strTemp = strTemp + "document.write(year);"& vbCrLf
strTemp = strTemp + "document.write(""年"");"& vbCrLf
strTemp = strTemp + "document.write(month);"& vbCrLf
strTemp = strTemp + "document.write(""月"");"& vbCrLf
strTemp = strTemp + "document.write(date);"& vbCrLf
strTemp = strTemp + "document.write(""日"");"& vbCrLf
strTemp = strTemp + ""& vbCrLf
strTemp = strTemp + "// -->"& vbCrLf
strTemp = strTemp + " "& vbCrLf
strTemp = strTemp + " </script>"& vbCrLf
strTemp = strTemp + " </font> </div></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " </table></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td height=""25"" colspan=""3"" align=""center""><marquee behavior=scroll width=100% scrollamount=2 scrolldelay=2 onmouseover=""this.stop()"" onmouseout=""this.start()"">"& vbCrLf
strTemp = strTemp + " <font size=""2""><b>"&GetWebMarquee(marOption)&"</b></font> "& vbCrLf
strTemp = strTemp + " </marquee></td>"& vbCrLf
strTemp = strTemp + " </tr>"& 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 + "</table>"& vbCrLf
GetWebTop = strTemp
End Function
'获取滚动关键字
Function GetWebMarquee(marOption)
Select Case marOption
Case "1"
GetWebMarquee = Marquee1
Case "2"
GetWebMarquee = Marquee2
Case "3"
GetWebMarquee = Marquee3
Case Else
GetWebMarquee = Marquee1
End Select
End Function
'获取网页底部信息
Function GetWebBottom()
strTemp = strTemp + "<table width=""780"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td bgcolor=""#0066CC""><img src="""&strSite&"images/2.gif"" width=""1"" height=""2""></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td height=""25"" align=""center"" bgcolor=""F1F1F1""> 本站提供: <a href="""&strSite&"html/guoji.asp"" target=""_top"">上海机票 </a><a href="""&strSite&"html/guonei.asp"" target=""_top"">特价机票 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">国际机票 </a><a href="""&strSite&"html/guonei.asp"" target=""_top"">国内机票 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">打折机票 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">飞机票 </a><a href="""&strSite&"html/student.asp"" target=""_top"">学生机票 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">团体机票 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">机票预定 </a><a href="""&strSite&"html/guoji.asp"" target=""_top"">机票查询 </a><a href=""http://travel.elong.com/hotels/default.aspx?Campaign_ID=4209027"" target=""_top""> 特价酒店</a></td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td> </td>"& vbCrLf
strTemp = strTemp + " </tr>"& vbCrLf
'strTemp = strTemp + " <tr>"& vbCrLf
'strTemp = strTemp + " <td align=""center""><img src="""&strSite&"images/shca_cc.gif"" width=""38"" height=""43""></td>"& vbCrLf
'strTemp = strTemp + " </tr>"& vbCrLf
'strTemp = strTemp + " <tr>"& vbCrLf
'strTemp = strTemp + " <td height=""20"" align=""center""> <a href=""http://www.miibeian.gov.cn"">沪ICP备05003062号 </a> </td>"& vbCrLf
'strTemp = strTemp + " </tr>"& vbCrLf
'strTemp = strTemp + " <tr>"& vbCrLf
'strTemp = strTemp + " <td height=""20"" align=""center""> 版权所有: 上海神马航空票务中心</td>"& vbCrLf
'strTemp = strTemp + " </tr>"& vbCrLf
strTemp = strTemp + "</table><script src=""http://www.shasm.com/count/mystat.asp?siteid=8""></script>"& vbCrLf
GetWebBottom = strTemp
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -