📄 global.asp
字号:
'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>"& vbCrLf
strTemp = strTemp + " <td colspan=""3"" align=""center"" widht=""778"" bgcolor=""#0066cc""><table width=""745"" height=""22"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""2"">"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td width=""50"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"index.asp"" class=""Ad"" target=""_top"">首 页</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/guoji.asp"" class=""Ad"" target=""_top"">国际机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/guonei.asp"" class=""Ad"" target=""_top"">国内机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/student.asp"" class=""Ad"" target=""_top"">学生特价</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href=""#"" class=""Ad"" target=""_top"">酒店预订</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/wenti.asp"" class=""Ad"" target=""_top"">客服中心</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/fuwu.asp"" class=""Ad"" target=""_top"">服务中心</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc"" class=""tw""><a href="""&strSite&"html/bbs.asp"" class=""Ad"" target=""_top"">在线留言</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc"" class=""tw""><a href="""&strSite&"html/lianxi.asp"" class=""Ad"" target=""_top"">联系我们</a></td>"& vbCrLf
strTemp = strTemp + " <td align=""center"" bgcolor=""#0066cc"" width=""135""><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 GetWebTop(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/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: #ff3300;line-height: 20px;""><strong>021-</strong> </span></td><td><span style=""font-size: 12px;color: #ff3300;line-height: 20px;""><strong>"&LogoPhone1&" "&LogoPhone2&"</strong></span></td></tr><tr><td></td><td><span style=""font-size: 12px;color: #ff3300;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/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"" ></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.shasm.com');return false;"" href=""http://www.shasm.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:zgc8886@163.com""><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>"& vbCrLf
strTemp = strTemp + " <td colspan=""3"" align=""center"" widht=""778"" bgcolor=""#0066cc""><table width=""745"" height=""22"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""2"">"& vbCrLf
strTemp = strTemp + " <tr>"& vbCrLf
strTemp = strTemp + " <td width=""50"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"index.asp"" class=""Ad"" target=""_top"">首 页</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/guoji.asp"" class=""Ad"" target=""_top"">国际机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/guonei.asp"" class=""Ad"" target=""_top"">国内机票</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/student.asp"" class=""Ad"" target=""_top"">学生特价</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href=""#"" class=""Ad"" target=""_top"">酒店预订</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/wenti.asp"" class=""Ad"" target=""_top"">客服中心</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc""><a href="""&strSite&"html/fuwu.asp"" class=""Ad"" target=""_top"">订票指南</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc"" class=""tw""><a href="""&strSite&"html/bbs.asp"" class=""Ad"" target=""_top"">在线留言</a></td>"& vbCrLf
strTemp = strTemp + " <td width=""10"" align=""center"" bgcolor=""#0066cc"" class=""styleB2"" valign=""top"">|</td>"& vbCrLf
strTemp = strTemp + " <td width=""70"" align=""center"" bgcolor=""#0066cc"" class=""tw""><a href="""&strSite&"html/lianxi.asp"" class=""Ad"" target=""_top"">联系我们</a></td>"& vbCrLf
strTemp = strTemp + " <td align=""center"" bgcolor=""#0066cc"" width=""135""><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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -