aa_down.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

PageClass=1
ii=0
PageClassx=PageClass
Page_BootmName="软件列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
FileName="Aa_Down.asp?Action=Manage&xSelect=Class"
Selectkey=request.form("Selectkey")
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select case xSelect
case ""
Sql="Select * from Tx_Down order by Down_Date desc"
case "Class"
Set Rs_f=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_DoClass Where Class_ParentPath like '%" & Id & "%'"
Rs_f.open Sql,Conn,1,1
while not Rs_f.eof
xClassId=Rs_f("Class_Id") & "," & xClassId
Rs_f.movenext
wend
Rs_f.close
set Rs_f=nothing
Sql="Select * from Tx_Down Where Down_ClassId in (" & xClassId & Id & ") order by Down_Date desc"
case "DownName"
Sql="Select * from Tx_Down Where Down_Name like '%" & Selectkey & "%' order by Down_Date desc"
case "DownFlag"
Sql="Select * from Tx_Down Where Down_Flag=0 order by Down_Date desc"
case "DownTop"
Sql="Select * from Tx_Down Where Down_Top=1 order by Down_Date desc"
end Select
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=5% CLASS=Table6>热门</TD><TD WIDTH=13% CLASS=Table6>添加人</TD><TD WIDTH=17% CLASS=Table6>添加时间</TD><TD WIDTH=27% 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("Down_Flag")=1 then
TitleFlag="<FONT COLOR=006600>取消</FONT>"
else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
end if
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Cret where Cret_Class=3 And Cret_ClassId=" & Rs_Manage("Down_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    DownCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    DownCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=3&bId=" & Rs_Manage("Down_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
if Rs_Manage("Down_Top")=1 then
TitleTop="<FONT COLOR=ff0000><B>×</B></FONT>"
else
TitleTop="<FONT COLOR=006600><B>√</B></FONT>"
end if
strIfa = strIfa & "<Form NAME=inbox method=post action='As_Down.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("Down_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_Down.asp?Action=S&Id=" & Rs_Manage("Down_Id") & ">" & Rs_Manage("Down_Name") & "</A></TD>"&_
                  "<TD ALIGN=center><A HREF=As_Down.asp?Action=Down_Top&Id=" & Rs_Manage("Down_Id") & ">" & TitleTop & "</A></TD>"&_
                  "<TD>" & Rs_Manage("Down_Add") & "</TD>"&_
                  "<TD>" & Rs_Manage("Down_Date") & "</TD>"&_
				  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Down.asp?Action=Edit&Id=" & Rs_Manage("Down_Id") & ">修改</A> | "&_
                  "<A HREF=As_Down.asp?Action=Flag&Id=" & Rs_Manage("Down_Id") & ">" & TitleFlag & "</A> | "&_
                  "" & DownCret & " | "&_
                  "<A HREF=As_Down.asp?Action=Del&Id=" & Rs_Manage("Down_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox CLASS=radio_all  NAME=Id VALUE=" & Rs_Manage("Down_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='As_Down.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit NAME=FlagNo CLASS=submit_all VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='As_Down.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
				  "<INPUT TYPE=submit NAME=To CLASS=submit_all VALUE='将软件移动到' onClick=" & CHR(34) & "this.form.action='As_Down.asp?Action=EditClass';this.form.submit()" & CHR(34) & "> <select NAME=NewClassId id=NewClassId><OPTION VALUE='' selected>请选择分类</OPTION>"
strIfx = "</select></TD></TR>"&_
         "</form>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "<form NAME=Search method=post action='Aa_Down.asp?Action=Manage&xSelect=DownName'><TR>"&_
         "<TD HEIGHT=35 colspan=6 ALIGN=center CLASS=Table8>查询软件：<INPUT NAME=Selectkey TYPE=text id=Selectkey> <INPUT TYPE=submit NAME=SearchOk CLASS=submit_all VALUE=' 查讯 '></TD></TR></form>"&_
         "</TABLE>"
call Page_aTable(0,1)
case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Down Where Down_Id=" & Id
Rs_edit.open Sql,Conn,1,1
if Rs_edit("Down_Flag")=1 then
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
end if
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Cret where Cret_Class=3 And Cret_ClassId=" & Rs_edit("Down_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    DownCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    DownCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=3&bId=" & Rs_edit("Down_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
if Rs_edit("Down_Address1")<>"" then
Down_Address1="<A HREF=" & Rs_edit("Down_Address1") & "><FONT COLOR=b50000>点击下载(1)</FONT></A>　　"
end if
if Rs_edit("Down_Address2")<>"" then
Down_Address2="<A HREF=" & Rs_edit("Down_Address2") & "><FONT COLOR=b50000>点击下载(2)</FONT></A>"
end if
if Rs_edit("Down_Top")=1 then TitleTop="<FONT COLOR=006600>热门软件</FONT>"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_DoClass Where Class_Id=" & Rs_edit("Down_ClassId")
Rs.open Sql,Conn,1,1
if Rs("Class_ParentPath")<>"0" Then
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=server.createobject("adodb.recordset")
Sql="Select * From Tx_DoClass Where Class_Id=" & arrClassId(intTemp)
Rs_n.open Sql,Conn,1,1
Class_Name=Class_Name & Rs_n("Class_Name") & " > " 
Rs_n.close
set Rs_n=nothing
Next
end if
Class_Name=Class_Name & Rs("Class_Name")
Rs.close
set Rs=nothing
Page_BootmName="查看软件 > " & Class_Name & " > " & Rs_edit("Down_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
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("Down_Name") & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15>所属分类：" & Class_Name & "<br>软件版本：" & Rs_edit("Down_Edition") & "<br>软件大小：" & Rs_edit("Down_Size") & Rs_edit("Down_Size1") & "<br>软件类型：" & Rs_edit("Down_Category") & " / 授权形式：" & Rs_edit("Down_IsAuthorized") & " / 显示语言：" & Rs_edit("Down_Language") & " / 运行环境：" & Rs_edit("Down_Platform") & "<br>相关网址：<a title='" & Rs_edit("Down_Registers") & "' href='" & Rs_edit("Down_Registers") & "'><FONT COLOR=b50000>注册地址</FONT></A>　<a title='" & Rs_edit("Down_Demonstrates") & "' href='" & Rs_edit("Down_Demonstrates") & "'><FONT COLOR=b50000>演示地址</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15><B>下载地址：</B><B>" & Down_Address1 & Down_Address2 & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15><B>软件说明：</B><br>" & Rs_edit("Down_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30>添加人：" & Rs_edit("Down_Add") & "　添加时间：" & Rs_edit("Down_Date") & "　浏览次数：" & Rs_edit("Down_Count") & "　属性：" & TitleTop & "</TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Down.asp?Action=Add>添加软件</A> 』『 <A HREF=Aa_Down.asp?Action=Edit&Id=" & Rs_edit("Down_Id") & ">修改</A> 』『 <A HREF=As_Down.asp?Action=Flag&Id=" & Rs_edit("Down_Id") & ">" & TitleFlag & "</A> 』『 " & DownCret & " 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=As_Down.asp?Action=Del&Id=" & Rs_edit("Down_Id") & ">删除</A> 』『 <A HREF=Aa_Down.asp?Action=Manage>软件列表</A> 』</TD>"&_
         "</TR>"&_
         "</TABLE>"
Rs_edit.close
set Rs_edit=nothing
call Page_aTable(0,0)
end Select
call Page_Spane(5)
call CloseConn()
call Page_endBody()
%>