index.asp

blue space 蓝色空间下载系统精简版---大家分享

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/HeadDH.asp" -->
<%
'设置管理员密码
Const sPassword = "admin"

Dim Action
Action = Request.QueryString("Action")
If Action="Login" Then Call UserLogin()
If Action="Logout" Then Call UserLogout()
If Session("UpdateManager") = "" Then Session("UpdateManager") = 0

Dim MaxTableWidth,PageStart
MaxTableWidth = "770"
PageStart = Timer

Call PrintHead("蓝色空间 网站后台采集管理")
Call PrintTable2()
Call HeadDH2()
If Session("UpdateManager") = 1 Then
	Call SoftUpdate()
	Call PrintHelp()
Else
	Call LoginFace()
End If
Call PrintFoot()


Sub SoftUpdate()
	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 onmouseleave=""mhHover('tb0')"" onmouseenter=""mhHover('tb1')""><a href='../Admin/NewsSoftInDataBase_1.asp' target='_blank'>最新软件更新</a></TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tbsep'>|</TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tb0' noWrap onmouseleave=""mhHover('tb0')"" onmouseenter=""mhHover('tb1')""><a href='../Admin/SoftTop.asp' target='_blank'>生成软件下载统计JS</a></TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tbsep'>|</TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tb0' noWrap onmouseleave=""mhHover('tb0')"" onmouseenter=""mhHover('tb1')""><a href='../Admin/CreateSoftHotJS.asp' target='_blank'>生成软件下载排行JS</a></TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tbsep'>|</TD>"&vbCrLf
	strHtml = strHtml & "<TD class='tb0' noWrap onmouseleave=""mhHover('tb0')"" onmouseenter=""mhHover('tb1')""><a href='../Admin/CreateSoftDHJS.asp' target='_blank'>生成软件导航JS</a></TD>"&vbCrLf
	strHtml = strHtml & "</TR>"&vbCrLf
	strHtml = strHtml & "</TABLE>"&vbCrLf
	strHtml = strHtml & "<!--头部导航End-->"&vbCrLf
	Print ResponseTable(20)&strHtml&ResponseTable(20)
End Sub


Sub LoginFace()
	Print ResponseTable(40)
	Print "<TABLE width='"&MaxTableWidth&"' align='center' cellpadding='4' style='border:1 solid #b8b8b8;padding:4px;background:#f5f5f5'>"
	Print "<FORM METHOD='POST' Action='?Action=Login'>"
	Print "<TR>"
	Print "	<TD align='center'>系统管理登录 请输入密码：<INPUT TYPE='Password' NAME='P' size='20' style='height:20px'> <INPUT TYPE='submit' value=' 登 录 '></TD>"
	Print "</TR>"
	Print "</FORM>"
	Print "</TABLE>"
	Print ResponseTable(40)
End Sub

Sub UserLogout()
	Session("UpdateManager") = 0
	Call ReturnMsgEnd("你已经退出登录！")
End Sub


Sub UserLogin()
	Dim strPassword,strPass
	strPassword = sPassword
	strPass = Request.Form("P")
	If strPass = "" Then
		Call ReturnMsgEnd("请输入登录密码后重试！！！")
	End If
	If strPass = strPassword Then
		Session("UpdateManager") = 1
		Print "<script language='javascript'>location.href='Index.asp';</script>"
	Else
		Session("UpdateManager") = 0
		Call ReturnMsgEnd("登录密码错误，请重新登录！！！")
	End If
End Sub

Sub ReturnMsgEnd(Message)
	Print "<script language='javascript'>"
	Print "alert('"&Message&"');"
	Print "location.href='Index.asp';"
	Print "</script>"
End Sub

Sub PrintHelp()
	Dim strHtml
	strHtml = "<!-- 帮助 -->"&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>"&vbCrLf
	strHtml = strHtml & "<td style='line-height:150%;color:red'>"&vbCrLf
	strHtml = strHtml & "<li>最新软件更新：更新源网站最新的两页软件信息"&vbCrLf
	strHtml = strHtml & "<li>生成软件下载统计JS：生成软件统计信息，在采集完软件后运行。"&vbCrLf
	strHtml = strHtml & "<li>生成软件下载排行JS：每日运行一次即可，在采集完软件后运行。"&vbCrLf
	strHtml = strHtml & "<li>生成软件导航JS：生成软件导航菜单，在生成完整的导航菜单后不必运行此功能。"&vbCrLf
	strHtml = strHtml & "</td></tr></table><br>"
	Print strHtml
End Sub
%>