<%@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
%>