aa_products.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

Page_BootmName="产品列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
FileName="Aa_Products.asp?Action=Manage&xSelect=Class"
Selectkey=request.form("Selectkey")
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case ""
Sql="Select * from Tx_Products order by Products_Date desc"
Case "Class"
Set Rs_f=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_PrClass 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_Products Where Products_ClassId in (" & xClassId & Id & ") order by Products_Date desc"
Case "ProductsName"
Sql="Select * from Tx_Products Where Products_Name like '%" & Selectkey & "%' order by Products_Date desc"
Case "ProductsFlag"
Sql="Select * from Tx_Products Where Products_Flag=0 order by Products_Date desc"
Case "ProductsIndex"
Sql="Select * from Tx_Products Where Products_Index=1 order by Products_Date desc"
Case "ProductsTop"
Sql="Select * from Tx_Products Where Products_Top=1 order by Products_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=10% 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("Products_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=1 And Cret_ClassId=" & Rs_Manage("Products_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    ProductsCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    ProductsCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=1&bId=" & Rs_Manage("Products_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
IF Rs_Manage("Products_Index")=1 THEN
TitleIndex="<FONT COLOR=ff0000><B>×</B></FONT>"
Else
TitleIndex="<FONT COLOR=006600><B>√</B></FONT>"
End IF
IF Rs_Manage("Products_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_Products.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("Products_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_Products.asp?Action=S&Id=" & Rs_Manage("Products_Id") & " title='产品编号：" & Rs_Manage("Products_Code") & "'>" & Rs_Manage("Products_Name") & "</A></TD>"&_
                  "<TD ALIGN=center><A HREF=As_Products.asp?Action=Products_Index&Id=" & Rs_Manage("Products_Id") & ">" & TitleIndex & "</A> | <A HREF=As_Products.asp?Action=Products_Top&Id=" & Rs_Manage("Products_Id") & ">" & TitleTop & "</A></TD>"&_
                  "<TD>" & Rs_Manage("Products_Add") & "</TD>"&_
                  "<TD>" & Rs_Manage("Products_Date") & "</TD>"&_
				  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_Products.asp?Action=Edit&Id=" & Rs_Manage("Products_Id") & ">修改</A> | "&_
                  "<A HREF=As_Products.asp?Action=Flag&Id=" & Rs_Manage("Products_Id") & ">" & TitleFlag & "</A> | "&_
                  "" & ProductsCret & " | "&_
                  "<A HREF=As_Products.asp?Action=Del&Id=" & Rs_Manage("Products_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT CLASS=radio_all TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Products_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 CLASS=submit_all NAME=Submit VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='As_Products.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='As_Products.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
				  "<INPUT TYPE=submit CLASS=submit_all NAME=To VALUE='将产品移动到' onClick=" & CHR(34) & "this.form.action='As_Products.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_Products.asp?Action=Manage&xSelect=ProductsName'><TR>"&_
         "<TD HEIGHT=35 colspan=6 ALIGN=center CLASS=Table8>查询产品：<INPUT NAME=Selectkey TYPE=text id=Selectkey>  <INPUT TYPE=submit CLASS=submit_all NAME=SearchOk VALUE=' 查讯 '></TD></TR></form>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products Where Products_Id=" & Id
Rs_edit.open Sql,Conn,1,1
IF Rs_edit("Products_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=1 And Cret_ClassId=" & Rs_edit("Products_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    ProductsCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    ProductsCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=1&bId=" & Rs_edit("Products_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
IF Rs_edit("Products_Index")=1 THEN TitleIndex="<FONT COLOR=006600>推荐产品</FONT>"
IF Rs_edit("Products_Top")=1 THEN TitleTop="<FONT COLOR=006600>　热门产品</FONT>"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_PrClass Where Class_Id=" & Rs_edit("Products_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_PrClass 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("Products_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("Products_Name") & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD>"&_
         "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
         "<TR>"&_
         "<TD WIDTH=60% CLASS=Table15>所属分类：" & Class_Name & "<br>产品编号：<FONT COLOR=b50000>" & Rs_edit("Products_Code") & "</FONT><br>产品规格：" & Rs_edit("Products_Specification") & "<br>产品型号：" & Rs_edit("Products_Model") & "<br>产品价格：" & Rs_edit("Products_Money") & "元</TD>"&_
         "<TD CLASS=Table15 ALIGN=center><IMG SRC=" & Rs_edit("Products_Pic") & " WIDTH=180 HEIGHT=120></TD>"&_
         "</TR>"&_
         "</TABLE>"&_
		 "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15><B>产品介绍：</B><br>" & Rs_edit("Products_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30>添加人：" & Rs_edit("Products_Add") & "　添加时间：" & Rs_edit("Products_Date") & "　浏览次数：" & Rs_edit("Products_Count") & "　属性：" & TitleIndex & TitleTop & "</TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Products.asp?Action=Add>添加产品</A> 』『 <A HREF=Aa_Products.asp?Action=Edit&Id=" & Rs_edit("Products_Id") & ">修改</A> 』『 <A HREF=As_Products.asp?Action=Flag&Id=" & Rs_edit("Products_Id") & ">" & TitleFlag & "</A> 』『 " & ProductsCret & " 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=As_Products.asp?Action=Del&Id=" & Rs_edit("Products_Id") & ">删除</A> 』『 <A HREF=Aa_Products.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()
%>