?? headdh.asp
字號(hào):
<!--
藍(lán)色空間軟件下載系統(tǒng)
程序設(shè)計(jì)：小馬
日期：2005-12-2
QQ:55100100
Mail:mxx_1@163.com
網(wǎng)站：http://www.bluespace.cn
論壇：http://bbs.bluespace.cn
-->
<%
'設(shè)定你的系統(tǒng)所在的目錄，相對(duì)于根路徑，最后面不要加“/”
Const SystemPath = "/Soft"
'----------以下定義為全局廣告代碼-------------------------
Dim strSoftAds,strSoftAds1
'-------------------
'//strSoftAds
'定義廣告代碼
'格式：250*250
'用在代碼下載和程序下載的詳細(xì)信息顯示頁(yè)面(詳細(xì)信息右側(cè))
strSoftAds = "廣告位置"
'---------------------------------------
'-------------------
'//strSoftAds1
'定義廣告代碼
'格式：460*80
'用在代碼下載、文章模塊和程序下載的詳細(xì)信息顯示頁(yè)面（下載鏈接或文章標(biāo)題下方）
strSoftAds1 = "廣告位置"
'----------------------------------------
'--------------Ad Code End------------------------
'請(qǐng)修改此函數(shù)的內(nèi)容來(lái)修改網(wǎng)頁(yè)頭部信息
Function HeadDH()
HeadDH = PrintAdsCode()
End Function
Sub HeadDH2()
Dim strHtml
strHtml = "<!--頭部導(dǎo)航Start-->"&vbCrLf
strHtml = strHtml & "<TABLE style=""background:#EDEDED;border:1 solid #cccccc"" align='center' width='"&MaxTableWidth&"' cellspacing='2' cellpadding='2' border='0'>"&vbCrLf
strHtml = strHtml & "<TR align='center'>"&vbCrLf
strHtml = strHtml & "<TD class='tb0' noWrap width='85%' align='left'>藍(lán)色空間 網(wǎng)站后臺(tái)管理</TD>"&vbCrLf
strHtml = strHtml & "<TD class='tbsep'>|</TD>"&vbCrLf
If Session("UpdateManager") = 1 Then
strHtml = strHtml & "<TD class='tb0' noWrap onMouseLeave=""mhHover('tb0')"" onMouseEnter=""mhHover('tb1')""><a href='"&SystemPath&"/Admin/Index.asp?Action=Logout'>退出系統(tǒng)</a></TD>"&vbCrLf
Else
strHtml = strHtml & "<TD class='tb0' noWrap onMouseLeave=""mhHover('tb0')"" onMouseEnter=""mhHover('tb1')""><a href='"&SystemPath&"/Index.asp'>返回首頁(yè)</a></TD>"&vbCrLf
End If
strHtml = strHtml & "</TR>"&vbCrLf
strHtml = strHtml & "</TABLE>"&vbCrLf
strHtml = strHtml & "<!--頭部導(dǎo)航End-->"&vbCrLf
Response.Write strHtml
End Sub
Sub PrintHead(strTitle)
Print "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
Print "<HTML>"
Print "<HEAD>"
Print "<TITLE> "&strTitle&" </TITLE>"
Print "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Print "<meta name=""Keywords"" content=""藍(lán)色空間,免費(fèi),電影,圖片,美圖,圖庫(kù),系統(tǒng),藍(lán)色空間新聞系統(tǒng),軟件,下載,共享,動(dòng)畫,學(xué)習(xí),新聞,藍(lán)色,Flash,PHP,CGI,ASP,JSP,MUSIC,Software"">"
Print "<Meta name=""Description"" Content=""藍(lán)色空間,免費(fèi),電影,圖片,美圖,圖庫(kù),系統(tǒng),藍(lán)色空間新聞系統(tǒng),軟件下載,最新消息,動(dòng)畫,Flash,音樂,下載,代碼,源碼,程序"">"
Print "<link rel=""stylesheet"" href="""&SystemPath&"/inc/css.css"" type=""text/css"">"
Print "<script language=""javascript"" src="""&SystemPath&"/inc/maxwindow.js""></script>"
Print "</HEAD>"
Print "<BODY>"
End Sub
Sub PrintFoot()
Print "<table style=""border:1 solid #b8b8b8:background:#ffffff;text-align:center;"" align='center' width='"&MaxTableWidth&"' cellspacing=""1"" cellpadding=""4"" border=""0"">"
Print "<tr><td align='center'><a href='../Admin/Index.asp'>系統(tǒng)管理</a> "
Print "版權(quán)所有：©2004-2005 <a href='http://www.bluespace.cn' target='_blank'>藍(lán)色空間</a> 網(wǎng)絡(luò)科技 "
Print " 頁(yè)面執(zhí)行時(shí)間:"&FormatNumber(Timer-PageStart,-1,-1)&" 秒"
Print "<div style='display:none'>"
Print "<script src=""http://count3.51yes.com/click.aspx?id=34107071&logo=1""></script>"
Print "</td></tr></table>"
'------------------
Print "</BODY>"
Print "</HTML>"
End Sub
Sub PrintTable2()
Print "<table style='background:#006699' width='"&MaxTableWidth&"' cellspacing='1' cellpadding='0' align='center'><tr><td height='1'></td></tr></table>"
End Sub
Sub Print(strHtmlCode)
Response.Write strHtmlCode & vbCrLf
End Sub
Function ResponseTable(TableHeight)
ResponseTable = "<table width='100%'><tr><td height='"&TableHeight&"'></td></tr></table>"&vbCrLf
End Function
'==========SQL語(yǔ)句有害字符串檢查=============
Function CheckBad(Str)
If IsNull(Str) Then
CheckBad = ""
Exit Function
End If
CheckBad = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
End Function
Function PrintAdsCode()
Dim strAds
strAds = ""
strAds = strAds & "<table width='"&MaxTableWidth+2&"' align='center' cellspacing='1' cellpadding='0' bgcolor='#ffffff'>"&vbCrLf
strAds = strAds & "<tr><td style=""border:1 solid #cccccc"" align='center'>"&vbCrLf
strAds = strAds & " <script type=""text/javascript""><!--"&vbCrLf
strAds = strAds & " google_ad_client = ""pub-0978208532130632"";"&vbCrLf
strAds = strAds & " google_ad_width = 728;"&vbCrLf
strAds = strAds & " google_ad_height = 90;"&vbCrLf
strAds = strAds & " google_ad_format = ""728x90_as"";"&vbCrLf
strAds = strAds & " google_ad_type = ""text"";"&vbCrLf
strAds = strAds & " google_ad_channel ="""";"&vbCrLf
strAds = strAds & " google_color_border = ""FFFFFF"";"&vbCrLf
strAds = strAds & " google_color_bg = ""FFFFFF"";"&vbCrLf
strAds = strAds & " google_color_link = ""000000"";"&vbCrLf
strAds = strAds & " google_color_url = ""666666"";"&vbCrLf
strAds = strAds & " google_color_text = ""333333"";"&vbCrLf
strAds = strAds & " //--></script>"&vbCrLf
strAds = strAds & " <script type=""text/javascript"""&vbCrLf
strAds = strAds & " src=""http://pagead2.googlesyndication.com/pagead/show_ads.js"">"&vbCrLf
strAds = strAds & " </script>"&vbCrLf
strAds = strAds & "</td></tr>"&vbCrLf
strAds = strAds & "</table>"&vbCrLf
PrintAdsCode = strAds
End Function
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -