<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產品名稱：CSYS.COM.CN企業全站管理系統（V2007簡體中文版）
' 聯系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Inc/Select.inc"-->
<%
Dim DownCret,DownLanguage,DownCategory,DownPlatform,DownIsAuthorized
call Page_formBody()
call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Down.asp?Action=Add>添加軟件</A>　|　<A HREF=Aa_Down.asp?Action=Manage>軟件列表</A>　|　<A HREF=Aa_Down.asp?Action=Manage&xSelect=DownFlag>未審核軟件</A>　|　<A HREF=Aa_Down.asp?Action=Manage&xSelect=DownTop>熱門軟件</A>"
Table_List="Tx_DoClass"
DownCategory="<OPTION VALUE=''>請選擇　　　</OPTION>"
DownLanguage=DownCategory
DownIsAuthorized=DownLanguage
DownPlatform=DownIsAuthorized
Down_Category=split(Down_Category,"||")
For intTemp=0 to ubound(Down_Category)
DownCategory=DownCategory & "<OPTION VALUE='" & Down_Category(intTemp) & "'>" & Down_Category(intTemp) & "</OPTION>"
Next
Down_Language=split(Down_Language,"||")
For intTemp=0 to ubound(Down_Language)
DownLanguage=DownLanguage & "<OPTION VALUE='" & Down_Language(intTemp) & "'>" & Down_Language(intTemp) & "</OPTION>"
Next
Down_IsAuthorized=split(Down_IsAuthorized,"||")
For intTemp=0 to ubound(Down_IsAuthorized)
DownIsAuthorized=DownIsAuthorized & "<OPTION VALUE='" & Down_IsAuthorized(intTemp) & "'>" & Down_IsAuthorized(intTemp) & "</OPTION>"
Next
Down_Platform=split(Down_Platform,"||")
For intTemp=0 to ubound(Down_Platform)
DownPlatform=DownPlatform & "<OPTION VALUE='" & Down_Platform(intTemp) & "'>" & Down_Platform(intTemp) & "</OPTION>"
Next
Select case Action
case "Add"
Call Page_AdminFlag(43)
Page_BootmName="添加軟件"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=As_Down.asp?Action=Add>"&_
         "<TR>"&_
         "<TD WIDTH=18% HEIGHT=30 CLASS=Table8>軟件名稱：</TD>"&_
         "<TD WIDTH=35% CLASS=Table8><INPUT NAME=Down_Name TYPE=text id=Down_Name size=35> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "<TD WIDTH=18% CLASS=Table8>軟件版本：</TD>"&_
         "<TD WIDTH=28% CLASS=Table8><INPUT NAME=Down_Edition TYPE=text id=Down_Edition size=12>"&_
         "</TD></TR>"&_
         "<TR><TD HEIGHT=30 CLASS=Table8>所屬類別：</TD>"&_
         "<TD CLASS=Table8><select NAME=Down_ClassId id=Down_ClassId><OPTION VALUE=''>請選擇軟件類別　　　</OPTION>"
strIfx = "</select> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "<TD CLASS=Table8>軟件大?。?lt;/TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Size TYPE=text id=Down_Size size=8 onKeyPress='event.returnValue=IsDigit();'><INPUT NAME=Down_Size1 TYPE=radio CLASS=radio_all VALUE='M' checked>M　<INPUT TYPE=radio CLASS=radio_all NAME=Down_Size1 VALUE='K'> KB"&_
         "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8>軟件類型：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Category','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Category TYPE=text id=Down_Category size=12> <select NAME=DownCategory id=DownCategory onChange='(document.Form.Down_Category.value=this.options[this.selectedIndex].value)'>" & DownCategory & "</select></TD>"&_
         "<TD CLASS=Table8>授權形式：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_IsAuthorized','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_IsAuthorized TYPE=text id=Down_IsAuthorized size=12> <select NAME=DownIsAuthorized id=DownIsAuthorized onChange='(document.Form.Down_IsAuthorized.value=this.options[this.selectedIndex].value)'>" & DownIsAuthorized & "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8>軟件語言：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Language','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Language TYPE=text id=Down_Language size=12> <select NAME=DownLanguage id=DownLanguage onChange='(document.Form.Down_Language.value=this.options[this.selectedIndex].value)'>" & DownLanguage & "</select></TD>"&_
         "<TD CLASS=Table8>運行環境：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Platform','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Platform TYPE=text id=Down_Platform size=12> <select NAME=DownPlatform id=DownPlatform onChange='(document.Form.Down_Platform.value=this.options[this.selectedIndex].value)'>" & DownPlatform & "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>演示地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Demonstrates VALUE='http://' TYPE=text id=Down_Demonstrates size=28></TD>"&_
         "<TD CLASS=Table8>注冊地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Registers VALUE='http://' TYPE=text id=Down_Registers size=28>"&_
         "</TD></TR>"&_
         "<TR>"&_
         "<TD HEIGHT=105 CLASS=Table8>軟件說明：</TD>"&_
         "<TD colspan=3 CLASS=Table8><TEXTAREA NAME=Down_Content cols=56 rows=6 id=Down_Content></TEXTAREA> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=60 rowspan=2  CLASS=Table8>下載地址：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Address1 TYPE=text id=Down_Address1 size=55> <INPUT TYPE=button NAME=Load CLASS=submit_all VALUE=上傳軟件 onClick=" & CHR(34) & "window.open('Inc/DownLoad.asp?Formname=Form&Editname=DownAddress1','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Address2 TYPE=text id=Down_Address2 size=55></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>軟件屬性：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Top TYPE=checkbox CLASS=radio_all  id=Down_Top VALUE=1> 熱門軟件</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>瀏覽次數：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Count TYPE=text VALUE='0' onkeypress='event.returnValue=IsDigit();' id=Down_Count size=10> 請輸入數字，系統默認設置為0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>軟件審核：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Down_Flag VALUE='1' checked> 通過審核　<INPUT TYPE=radio CLASS=radio_all NAME=Down_Flag VALUE='0'>取消審核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=4 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料'> "&_
         "<INPUT NAME=button TYPE=reset CLASS=submit_all id=Close VALUE='重新輸入'>"&_
         "</TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
call Page_aTable(0,0)
case "Edit"
Call Page_AdminFlag(44)
Dim checkedd1,checkedd2
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Down where Down_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="軟件修改 > " & Rs_edit("Down_Name")
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
if Rs_edit("Down_Top")=1 then checked3="checked"
if Rs_edit("Down_Flag")=1 then
checked1="checked"
else
checked2="checked"
end if
if Rs_edit("Down_Size1")="M" then checkedd1="checked"
if Rs_edit("Down_Size1")="K" then checkedd2="checked"
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action='As_Down.asp?Action=Edit&Id=" & Id & "'>"&_
         "<TR>"&_
         "<TD WIDTH=18% HEIGHT=30 CLASS=Table8>軟件名稱：</TD>"&_
         "<TD WIDTH=35% CLASS=Table8><INPUT NAME=Down_Name VALUE='" & Rs_edit("Down_Name") & "' TYPE=text id=Down_Name size=35> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "<TD WIDTH=18% CLASS=Table8>軟件版本：</TD>"&_
         "<TD WIDTH=28% CLASS=Table8><INPUT NAME=Down_Edition VALUE='" & Rs_edit("Down_Edition") & "' TYPE=text id=Down_Edition size=12>"&_
         "</TD></TR>"&_
         "<TR><TD HEIGHT=30 CLASS=Table8>所屬類別：</TD>"&_
         "<TD CLASS=Table8 ><select NAME=Down_ClassId id=Down_ClassId><OPTION VALUE='" & Rs_edit("Down_ClassId") & "'>不改變軟件類別　　　</OPTION>"
strIfx = "</select> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "<TD CLASS=Table8>軟件大小：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Size TYPE=text VALUE='" & Rs_edit("Down_Size") & "' id=Down_Size size=8 onKeyPress='event.returnValue=IsDigit();'><INPUT NAME=Down_Size1 TYPE=radio CLASS=radio_all VALUE='M' " & checkedd1 & ">M　<INPUT TYPE=radio CLASS=radio_all NAME=Down_Size1 VALUE='K' " & checkedd2 & "> KB"&_
         "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8>軟件類型：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Category','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Category TYPE=text VALUE=" & Rs_edit("Down_Category") & " id=Down_Category size=12> <select NAME=DownCategory id=DownCategory onChange='(document.Form.Down_Category.value=this.options[this.selectedIndex].value)'>" & DownCategory & "</select></TD>"&_
         "<TD CLASS=Table8>授權形式：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_IsAuthorized','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_IsAuthorized VALUE=" & Rs_edit("Down_IsAuthorized") & " TYPE=text id=Down_IsAuthorized size=12> <select NAME=DownIsAuthorized id=DownIsAuthorized onChange='(document.Form.Down_IsAuthorized.value=this.options[this.selectedIndex].value)'>" & DownIsAuthorized & "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8>軟件語言：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Language','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000><FONT COLOR=#FF0000>添加列表</FONT></FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Language TYPE=text VALUE=" & Rs_edit("Down_Language") & " id=Down_Language size=12> <select NAME=DownLanguage id=DownLanguage onChange='(document.Form.Down_Language.value=this.options[this.selectedIndex].value)'>" & DownLanguage & "</select></TD>"&_
         "<TD CLASS=Table8>運行環境：<br><A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Down_Platform','Down','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">點擊此處<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Platform VALUE=" & Rs_edit("Down_Platform") & " TYPE=text id=Down_Platform size=12> <select NAME=DownPlatform id=DownPlatform onChange='(document.Form.Down_Platform.value=this.options[this.selectedIndex].value)'>" & DownPlatform & "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>演示地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Demonstrates VALUE=" & Rs_edit("Down_Demonstrates") & " TYPE=text id=Down_Demonstrates size=28></TD>"&_
         "<TD CLASS=Table8>注冊地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Down_Registers VALUE=" & Rs_edit("Down_Registers") & " TYPE=text id=Down_Registers size=28>"&_
         "</TD></TR>"&_
         "<TR>"&_
         "<TD HEIGHT=105 CLASS=Table8>軟件說明：</TD>"&_
         "<TD colspan=3 CLASS=Table8><TEXTAREA NAME=Down_Content cols=56 rows=6 id=Down_Content>" & dvHTMLCode(Rs_edit("Down_Content")) & "</TEXTAREA> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=60 rowspan=2  CLASS=Table8>下載地址：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Address1 VALUE='" & Rs_edit("Down_Address1") & "' TYPE=text id=Down_Address1 size=55> <INPUT TYPE=button NAME=Load CLASS=submit_all VALUE=上傳軟件 onClick=" & CHR(34) & "window.open('Inc/DownLoad.asp?Formname=Form&Editname=Down_Address1','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Address2 VALUE='" & Rs_edit("Down_Address2") & "' TYPE=text id=Down_Address2 size=55></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>軟件屬性：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Top TYPE=checkbox CLASS=radio_all id=Down_Top VALUE=1 " & checked3 & "> 熱門軟件</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>瀏覽次數：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=Down_Count TYPE=text VALUE='" & Rs_edit("Down_Count") & "' onkeypress='event.returnValue=IsDigit();' id=Down_Count size=10> 請輸入數字，系統默認設置為0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>添加時間：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME='textfield' TYPE='text' VALUE='" & Rs_edit("Down_Date") & "'> 現在時間為" & Now() & "，更新時間：<INPUT NAME=NewTime TYPE=checkbox CLASS=radio_all  id=NewTime VALUE='1'></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>軟件審核：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Down_Flag VALUE='1' " & checked1 & "> 通過審核　<INPUT TYPE=radio CLASS=radio_all NAME=Down_Flag VALUE='0' " & checked2 & ">取消審核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=4 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料'> "&_
         "<INPUT NAME=button TYPE=reset CLASS=submit_all id=Close VALUE='重新輸入'>"&_
         "</TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
call Page_aTable(0,0)
Rs_edit.close
set Rs_edit=nothing
case "Manage"
Call Page_AdminFlag(45)