⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 headdh.asp

📁 blue space 蓝色空间下载系统精简版---大家分享
💻 ASP
字号:
🔍 
<!--
蓝色空间软件下载系统
程序设计：小马
日期：2005-12-2
QQ:55100100
Mail:mxx_1@163.com
网站：http://www.bluespace.cn
论坛：http://bbs.bluespace.cn
-->
<%
'设定你的系统所在的目录，相对于根路径，最后面不要加“/”
Const SystemPath = "/Soft"
'----------以下定义为全局广告代码-------------------------
Dim strSoftAds,strSoftAds1

'-------------------
'//strSoftAds
'定义广告代码
'格式：250*250
'用在代码下载和程序下载的详细信息显示页面(详细信息右侧)
strSoftAds = "广告位置"
'---------------------------------------

'-------------------
'//strSoftAds1
'定义广告代码
'格式：460*80
'用在代码下载、文章模块和程序下载的详细信息显示页面（下载链接或文章标题下方）
strSoftAds1 = "广告位置"
'----------------------------------------

'--------------Ad Code End------------------------


'请修改此函数的内容来修改网页头部信息
Function HeadDH()
	HeadDH = PrintAdsCode()
End Function

Sub HeadDH2()
	Dim strHtml
	strHtml = "<!--头部导航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'>蓝色空间 网站后台管理</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'>退出系统</a></TD>"&vbCrLf
	Else
		strHtml = strHtml & "<TD class='tb0' noWrap onMouseLeave=""mhHover('tb0')"" onMouseEnter=""mhHover('tb1')""><a href='"&SystemPath&"/Index.asp'>返回首页</a></TD>"&vbCrLf
	End If		
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"&vbCrLf
	strHtml = strHtml & "<!--头部导航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=""蓝色空间,免费,电影,图片,美图,图库,系统,蓝色空间新闻系统,软件,下载,共享,动画,学习,新闻,蓝色,Flash,PHP,CGI,ASP,JSP,MUSIC,Software"">" 
	Print "<Meta name=""Description"" Content=""蓝色空间,免费,电影,图片,美图,图库,系统,蓝色空间新闻系统,软件下载,最新消息,动画,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'>系统管理</a> "
	Print "版权所有：&copy;2004-2005 <a href='http://www.bluespace.cn' target='_blank'>蓝色空间</a> 网络科技 "
	Print " 页面执行时间:"&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语句有害字符串检查=============
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
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -