<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 產(chǎn)品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）' 程序開發(fā)：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Inc/Design.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_About.asp?Action=Add>添加公司信息</A>　|　<A HREF=Aa_About.asp?Action=Manage>公司信息列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(19)
Page_BootmName="添加公司信息"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=Aa_About.asp?Action=sAdd onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>公司信息名稱：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=About_Name TYPE=text id=About_Name size=40> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>公司信息內容：</TD>"&_
         "<TD>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>公司信息審核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=About_Flag VALUE='1' checked> 通過審核　<INPUT TYPE=radio CLASS=radio_all NAME=About_Flag VALUE='0'>取消審核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料' onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit NAME=Cel CLASS=submit_all VALUE=重新輸入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(1,0)
Case "Edit"
Call Page_AdminFlag(20)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_About Where About_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Table_List1="Tx_About"
OldId="About_Id"
OldContent="About_Content"
Page_BootmName="公司信息修改 > " & Rs_edit("About_Name")
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
IF Rs_edit("About_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=Aa_About.asp?Action=sEdit&Id=" & Id & " onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>公司信息名稱：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=About_Name TYPE=text id=About_Name VALUE=" & Rs_edit("About_Name") & " size=40> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>公司信息內容：</TD>"&_
         "<TD>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>公司信息審核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=About_Flag VALUE='1' " & checked1 & "> 通過審核　<INPUT TYPE=radio CLASS=radio_all CLASS=radio_all NAME=About_Flag VALUE='0' " & checked2 & ">取消審核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交資料' onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit NAME=Cel CLASS=submit_all VALUE=重新輸入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(1,0)
Rs_edit.close
set Rs_edit=nothing
Case "Manage"
Call Page_AdminFlag(20)
Page_BootmName="公司信息列表"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_About order by About_Id desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD CLASS=Table6>公司信息名稱</TD><TD WIDTH=25% CLASS=Table6>調用</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("About_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>審核</FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_About.asp?Action=Delall'>"&_
                  "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
                  "<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("About_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_About.asp?Action=S&Id=" & Rs_Manage("About_Id") & ">" & Rs_Manage("About_Name") & "</A></TD>"&_
                  "<TD HEIGHT=25 ALIGN=center>About.asp?Id=" & Rs_Manage("About_Id") & "</TD>"&_
				  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_About.asp?Action=Edit&Id=" & Rs_Manage("About_Id") & ">修改</A> | "&_
                  "<A HREF=Aa_About.asp?Action=Flag&Id=" & Rs_Manage("About_Id") & ">" & TitleFlag & "</A> | "&_
                  "<A HREF=Aa_About.asp?Action=Del&Id=" & Rs_Manage("About_Id") & " onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}'>刪除</A> | "&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE=" & Rs_Manage("About_Id") & ">"&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.movenext
wend 
End IF
Rs_Manage.close
set Rs_Manage=nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)>"&_
                  " 選擇全部　"&_
                  "<INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE=' 刪除 ' onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "<INPUT TYPE=submit NAME=FlagOk CLASS=submit_all VALUE=通過審核 onClick=" & CHR(34) & "this.form.action='Aa_About.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit NAME=FlagNo CLASS=submit_all VALUE=取消審核 onClick=" & CHR(34) & "this.form.action='Aa_About.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & ">"&_
                  "</TD>"&_
				  "</TR>"&_
                  "</form>"&_
                  "<TR>"&_
                  "<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_About Where About_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="查看公司信息 > " & Rs_edit("About_Name")
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
IF Rs_edit("About_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消審核</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>通過審核</FONT>"
End IF
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table8>"&_
         "<TABLE WIDTH=570  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table15><B>" & Rs_edit("About_Name") & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15>" & Rs_edit("About_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30></TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_About.asp?Action=Add>添加公司信息</A> 』『 <A HREF=Aa_About.asp?Action=Edit&Id=" & Rs_edit("About_Id") & ">修改</A> 』『 <A HREF=Aa_About.asp?Action=Flag&Id=" & Rs_edit("About_Id") & ">" & TitleFlag & "</A> 』『 <a onclick='{if(confirm(" & CHR(34) & "刪除后將無法恢復，您真的要刪除么？" & CHR(34) & ")){return true;}return false;}' href=Aa_About.asp?Action=Del&Id=" & Rs_edit("About_Id") & ">刪除</A> 』『 <A HREF=Aa_About.asp?Action=Manage>公司信息列表</A> 』</TD>"&_
         "</TR>"&_
         "</TABLE>"
Rs_edit.close
set Rs_edit=nothing
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("About_Name")="" THEN
Errorst="請輸入公司信息名稱！"
founderr=True
elseIF Request.form("Content")="" THEN
Errorst="請選輸入公司信息內容！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	ContentFile=Replace(Request.form("PicUrl"),"../","")
	ContentFile=split(ContentFile,"|")
	For intTemp=0 to ubound(ContentFile)
        IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			UploadFile=ContentFile(intTemp) & "|" & UploadFile
        End IF
	next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_About"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("About_Name")=Request.form("About_Name")
		Rs("About_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_About.asp",""),"")
		Rs("About_Flag")=Request.form("About_Flag")
		Rs("UploadFiles")=UploadFile
		Rs.update
		session("Content")=""
		ToHistory="Aa_About.asp?Action=S&Id=" & Rs("About_Id")
		Rs.close
		set Rs=nothing
		saveok="公司信息：[ " & Request.form("About_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("About_Name")="" THEN
Errorst="請輸入公司信息名稱！"
founderr=True
elseIF Request.form("Content")="" THEN
Errorst="請選輸入公司信息內容！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
		Set Rs=server.createobject("adodb.recordset")
			Sql="Select * From Tx_About Where About_Id=" & Id
	        Rs.open Sql,Conn,1,1
			ContentFile=Rs("UploadFiles")
		Rs.close
		set Rs=nothing
	    ContentFile=Replace(Request.form("PicUrl"),"../","") & ContentFile
		ContentFile=split(ContentFile,"|")
		For intTemp=0 to ubound(ContentFile)
            IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			    UploadFile=ContentFile(intTemp) & "|" & UploadFile
            End IF
		Next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_About where About_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("About_Name")=Request.form("About_Name")
		Rs("About_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_About.asp",""),"")
		Rs("About_Flag")=Request.form("About_Flag")
		Rs("UploadFiles")=UploadFile
		Rs.update
		session("Content")=""
		Rs.close
		set Rs=nothing
		ToHistory="Aa_About.asp?Action=Edit&Id=" & Id
		saveok="公司信息：[ " & Request.form("About_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    Conn.Execute "Delete From Tx_About Where About_Id=" & Id
    ToHistory="Aa_About.asp?Action=Manage"
    saveok="刪除成功！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_About where About_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("About_Flag")=1 THEN
		    Rs("About_Flag")=0
		saveok="公司信息：[ " & Rs("About_Name") & " ] 已取消審核！"
		Else
		    Rs("About_Flag")=1
		saveok="公司信息：[ " & Rs("About_Name") & " ] 已通過審核！"
		End IF
		Rs.update
		Rs.close
		set Rs=nothing
		ToHistory=VisitorsForm
	    Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="請選擇要刪除的對象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
    Conn.Execute "Delete From Tx_About Where About_Id in (" & Request.form("Id") & ")"
    ToHistory=VisitorsForm
    saveok="刪除成功！"
    Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="請選擇要審核的對象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_About set About_Flag=1 Where About_Id in (" & Request.form("Id") & ")"
	ToHistory=VisitorsForm
    saveok="已通過審核！"
    Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="請選擇要取消審核的對象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_About set About_Flag=0 Where About_Id in (" & Request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="已取消審核！"
    Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>