📄 admin_product.asp
字号:
WhereStr=WhereStr & " and SpecialID Like '%," & SpecialID & ",%'"
else
WhereStr=WhereStr & " and SpecialID<>'0'"
end if
end if
if ManageType="MyInfo" then
WhereStr=WhereStr & " and Editor='" & Cl.MemberName & "' "
else
if keyword<>"" and keyword<>"关键字" then
keyword = Cl.ReplaceBadChar(keyword&"")
select case Field
case "ID"
WhereStr=WhereStr & " and InfoID = "&Cl.GetClng(keyword)&" "
case "Title"
WhereStr=WhereStr & " and ProductName like '%" & keyword & "%' "
case "ProductSn"
WhereStr=WhereStr & " and ProductSn='" & keyword & "' "
case "Keyword"
WhereStr=WhereStr & " and Keyword like '%" & keyword & "%' "
case "Intro"
WhereStr=WhereStr & " and Intro like '%" & keyword & "%' "
case "Producer"
WhereStr=WhereStr & " and Producer like '%" & keyword & "%' "
case "Trademark"
WhereStr=WhereStr & " and Trademark like '%" & keyword & "%' "
case "ProductModel"
WhereStr=WhereStr & " and ProductModel like '%" & keyword & "%' "
case "Editor"
WhereStr=WhereStr & " and Editor='" & keyword & "' "
case "Censor"
WhereStr=WhereStr & " and Censor='" & keyword & "' "
case "MarketPrice"
WhereStr=WhereStr & " and MarketPrice <= "&Cl.GetClng(keyword)&" "
case "Point"
WhereStr=WhereStr & " and InfoPoint <= "&Cl.GetClng(keyword)&" "
case else
WhereStr=WhereStr & " and ProductName like '%" & keyword & "%' "
end select
end if
end if
'==================
If OnTop then WhereStr=WhereStr & " and OnTop="&TrueType&" "
If Elite then WhereStr=WhereStr & " and Elite="&TrueType&" "
If Hot then WhereStr=WhereStr & " and Hot="&TrueType&" "
'===================
SQL=SQL & WhereStr & " order by UpDateTime desc,InfoID desc"
Dim JumpClassStr,ShowPageStr
JumpClassStr = InfoManegeJumpClass
Set rsList=Cl.Execute(SQL)
'Set rsList= Server.CreateObject("ADODB.Recordset")
'OpenConn : rsList.open sql,Conn,1,1
if rsList.eof and rsList.bof then
TotalPut=0
response.write "<p align='center'><br />当前没有任何记录！</p>"
rsList.close:set rsList=Nothing
JumpClassStr = Replace(JumpClassStr,"{$showpage}","")
else
Dim rsTotalPut
Set rsTotalPut= Cl.Execute("Select count(InfoID) from Cl_Product " & WhereStr)
TotalPut = rsTotalPut(0)
rsTotalPut.Close : Set rsTotalPut=Nothing
'TotalPut = rsList.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then
CurrentPage=1
else
rsList.move (CurrentPage-1)*PageSize
end if
SQL=rsList.GetRows(PageSize)
rsList.close:set rsList=nothing
Rem Page
ShowPageStr = Cl.ShowPage(strFileName & "&OnTop="&OnTop&"&Hot="&Hot&"&Elite="&Elite&"&Status="&Status,TotalPut,PageSize,Cl.ChannelItemUnit,Cl.ChannelItemName)
JumpClassStr = Replace(JumpClassStr,"{$showpage}",ShowPageStr)
Rem Page END
Response.write JumpClassStr
Call InfoManegeListContent()
end If
Response.write JumpClassStr
SQL=Empty
Call InfoManegeExplain()
End Sub
Sub InfoManegeListContent()
Dim TitleStr,Attribute,tStatus
%>
<table class="border" border="0" cellspacing="1" cellpadding="0" align="center">
<form name="myform" method="Get" action="Admin_InfoDel.asp">
<tr class="title" height="22">
<td height="22" width="30" align="center"><strong>选</strong></td>
<td width="40" align="center" height="22"><strong>ID</strong></td>
<td align="center" ><strong>名称及型号</strong></td>
<td width="90" align="center" ><strong>价格</strong></td>
<td width="50" align="center" ><strong>库存</strong></td>
<td width="50" align="center" ><strong>销量</strong></td>
<td width="80" align="center"><strong>属性</strong></td>
<td width="50" align="center"><strong>状态</strong></td>
<td width="100" align="center"><strong>操作</strong></td>
</tr>
<%for i=0 to Ubound(SQL,2)
InfoID = SQL(0,i)
if SQL(19,i)=True then
Attribute = "<font color='#0000ff'>顶</font>"
else
Attribute = "<font color='#C5C5C5'>顶</font>"
end if
if SQL(20,i)=True then
Attribute = Attribute & " <font color='#ff0033'>热</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>热</font>"
end if
if SQL(21,i)=True then
Attribute = Attribute & " <font color='#006600'>荐</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>荐</font>"
end If
if SQL(40,i)=True then
Attribute = Attribute & " <font color='#0000ff'>H</font>"
Else
Attribute = Attribute & " <font color='#C5C5C5'>H</font>"
End If
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td align="center" onMouseOut="showlayer('showinfo_<%=SQL(0,i)%>',0)" onMouseOver="showlayer('showinfo_<%=SQL(0,i)%>',1)"><input name="InfoID" type="checkbox" onclick="unselectall()" id="InfoID" value="<%=SQL(0,i)%>"></td>
<td align="center" onMouseOut="showlayer('showinfo_<%=SQL(0,i)%>',0)" onMouseOver="showlayer('showinfo_<%=SQL(0,i)%>',1)"><%=SQL(0,i)%>
<span id="showinfo_<%=SQL(0,i)%>" class="hidden">
<table border="0" cellspacing="1" align="center" cellpadding="0" style="width:500px;">
<tr class="title">
<td colspan="3" align="left"><%
Response.write " [<a href='"&FileName&"&ClassID=" & SQL(3,i) & "' class='red'>" & Cl.GetClassName(SQL(3,i)) & "</a>] " & SQL(5,i) & "(" & SQL(8,i) & ")"
%></td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right" nowrap><strong>可用操作：</strong></td>
<td colspan="2" width="85%">
<%
Rem BEGIN
response.write "<a href='Admin_Product.asp?Action=Modify&ChannelID="& SQL(1,i) &"&InfoID=" & InfoID &"' class='blue'>修改</a>"
response.write " <a href='Admin_InfoDel.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=Del' onclick='return ConfirmDel();'>删除</a>"
response.write " <a href='Admin_InfoMove.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "'>移动</a>"
if SQL(19,i)=False then
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetOnTop'>固顶</a>"
else
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelOnTop'>解固</a>"
end if
if SQL(21,i)=False then
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetElite'>设为推荐</a>"
else
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelElite'>取消推荐</a>"
end if
If SQL(49,i)=1 Then
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
response.write " <font color='blue'>HTML</font>(<a href='Admin_Create_Product.asp?ChannelID="& SQL(1,i) &"&Action=CreateInfo&InfoID=" & InfoID & "'>生成</a>"
if SQL(43,i)=True then
response.write " <a href='Admin_Create_Product.asp?ChannelID="& SQL(1,i) &"&Action=DelInfoHTML&InfoID=" & InfoID & "'>删除</a>"
response.write " <a href='" & Cl.WebDir & SQL(44,i) & "' target='_blank'>浏览</a>"
end If
response.write ")"
Else
response.write " <a href='Admin_Property.asp?ChannelID="& SQL(1,i) &"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过审核</a>"
response.write " <a href='Admin_NoPass.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "'>退回</a>"
End If
REM END
%></td>
</tr>
<tr class="tdbg">
<td align="right" nowrap><strong>关 键 字：</strong></td>
<td colspan="2"><%=SQL(9,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>录入用户：</strong></td>
<td><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(14,i)%>"><%=SQL(14,i)%></a>(<font color='#0000ff'><%=SQL(15,i)%></font>)[<a href="Admin_User.asp?Action=Modify&UserName=<%=SQL(14,i)%>" class="blue">信息</a>] [<a href="../User/User_Message.Asp?Action=new&touser=<%=SQL(14,i)%>" class="blue">短消息</a>]</td>
<td width="25%" align="center" rowspan="5"><%
If SQL(34,i)<>"" Then
Response.write "<img src='"&Cl.ReplaceDir(SQL(34,i))&"' border='0' width='110' height='90' style='border:1px solid #C5C5C5;' />"
End If
%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>等 级：</strong></td>
<td><%=Cl.GetStar(SQL(18,i))%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>属 性：</strong></td>
<td><%=Attribute%></td>
</tr>
<tr class="tdbg">
<td align="right" nowrap><strong>生 产 商：</strong></td>
<td><%=SQL(10,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>品牌商标：</strong></td>
<td><%=SQL(11,i)%>
<strong>型号：</strong><%=SQL(12,i)%>
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>商品类型：</strong></td>
<td colspan="2"><%
Select Case SQL(35,i)
Case 1
Response.write "<font color='#0000CC'>软件</font>"
Response.write " 下载地址：<a href='" & Cl.ReplaceDir(SQL(36,i)) & "' target='_blank'>" & SQL(36,i) & "</a>"
Case 2
Response.write "<font color='#0000CC'>充值卡</font>"
Response.write " 面值：" & SQL(37,i) & Cl.Web_Setting(29)
Case Else
Response.write "普通实物"
End Select
%>
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>过期时间：</strong></td>
<td colspan="2"><%
If SQL(42,i)=True Then
Response.write "<font color='blue'>永不过期</font>"
Else
Response.write SQL(41,i)
End if
%>
<strong>库存数量：</strong><b class="red"><%=SQL(38,i)%></b> <%=SQL(13,i)%>
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>购买价格：</strong></td>
<td colspan="2">
<font color="#FF0000">市场参考价：</font><span class="red"><%=SQL(28,i)%></span>元<br />
<font color="#0000CC">会员零售价：</font><span class="red"><%=SQL(29,i)%></span>元<br />
<font color="#0000CC">实际零售价：</font><span class="red"><%=SQL(30,i)%></span>元 折扣率：<font color='red'><%=SQL(31,i)%></font>折<br />
<strong>购买<%=Cl.Web_Setting(28)%>：</strong><b class="red"><%=SQL(27,i)%></b><%=Cl.Web_Setting(29)%>
<strong>赠送积分：</strong><b class="red"><%=SQL(27,i)%></b>点
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>限购用户：</strong></td>
<td colspan="2"><%=Cl.GetUserGroupName(SQL(26,i))%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>下载次数：</strong></td>
<td colspan="2">本日：<strong><%=SQL(23,i)%></strong> 本周：<strong><%=SQL(24,i)%></strong> 本月：<strong><%=SQL(25,i)%></strong> 累计：<strong><%=SQL(22,i)%></strong></td>
</tr>
<tr class="tdbg">
<td align="right" nowrap><strong>简 介：</strong></td>
<td colspan="2" style="word-wrap:break-word;"><%=Server.HTMLEnCode(Left(Cl.NoHTML(SQL(33,i)&""),500))%></strong></td>
</tr>
</table>
</span>
</td>
<td><%
'InfoID, ChannelID, ChannelDir, ClassID, Prefixion, ProductName, FontColor, FontType, ProductSn=8, Keyword, Producer=10, Trademark, ProductModel, ProductUnit, Editor=14, UpdateTime, Censor=16, CensorTime, Stars, OnTop=19, Hot, Elite, Hits=22, DayHits, WeekHits, MonthHits, InfoGroup=26, InfoPoint, MarketPrice, MemberPrice, TruePrice, Discount, PresentExp, Intro=30, PicUrl, ProductType=32, DownloadUrl, CardPoint, StockNum, BuyTimes=36, BeginDate, EndDate, NoOver, IsHtml=40, HtmlFileUrl, NoPassNum, NoPasstxt, LastHitTime, CommentCount=45, Status, Deleted=47
TitleStr=Cl.GetTitleFont(SQL(5,i),SQL(7,i))
TitleStr=Cl.FormatColor(TitleStr,SQL(6,i))
if Clng(SQL(3,i))<>ClassID then
response.write "[<a href='"&FileName&"&ClassID=" & SQL(3,i) & "' class='blue'>" & Cl.GetClassName(SQL(3,i)) & "</a>] "
end if
if Not (IsNull(SQL(4,i)) or SQL(4,i)="") then
response.write "<font color='blue'>"&SQL(4,i)&"</font>"
end if
response.write "<a href='Admin_Product.asp?Action=Show&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>" & TitleStr & "</a> " & SQL(12,i)
%></td>
<td align="center"><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(14,i)%>"><%=SQL(14,i)%></a><br />(<font color='#0000ff' title='<%=SQL(15,i)%>'><%=FormatDateTime(SQL(15,i),2)%></font>)</td>
<td align="center"><%
Select Case CLng(SQL(49,i))
Case 1
response.write "<a href='"&FileName&"&Field=Censor&Keyword="&SQL(16,i)&"'>" & SQL(16,i) & "</a><br />(<font color='#0000ff' title='" & SQL(17,i) & "'>" & Cl.Format_Time(SQL(17,i),3) & "</font>)"
tStatus = "<font color='#0000ff'>已审</font>"
Case 0
response.write "<font color='#888888'>等待审核</font>"
tStatus = "<font color='#888888'>待审</font>"
Case Else
response.write "<a href='"&FileName&"&Field=Censor&Keyword="&SQL(16,i)&"'>" & SQL(16,i) & "</a><br />(<font color='#0000ff' title='" & SQL(17,i) & "'>" & Cl.Format_Time(SQL(17,i),3) & "</font>)"
tStatus = "<font color='#ff0033'>退回</font>"
End Select%></td>
<td align="center"><%=SQL(22,i)%></td>
<td align="center"><%=Attribute%></td>
<td align="center"><%=tStatus%></td>
<td align="center"><%
If Action="RecycleBin" then
response.write "<a href=""Admin_InfoDel.asp?Action=DelRecyclebin&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""" onclick=""return confirm('确定要彻底删除此记录吗？本操作将不可恢复！');"">彻底删除</a> <a href=""Admin_InfoDel.asp?Action=Restore&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""">还原</a>"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -