📄 user_soft.asp
字号:
elseif Not Cl.TrueChannelPurview_U(2,ChannelID) and ManageType<>"MyInfo" then
Dim arrIDStr
arrIDStr = GetManageArrClassID_U
if arrIDStr="" then
WhereStr = WhereStr & " and ClassID=0"
Else
arrIDStr = Left(arrIDStr,Len(arrIDStr)-1)
WhereStr = WhereStr & " and ClassID in (" & arrIDStr & ")"
end If
end if
if Action="Special" then
if SpecialID>0 then
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 SoftName like '%" & keyword & "%' "
case "Keyword"
WhereStr=WhereStr & " and Keyword like '%" & keyword & "%' "
case "Intro"
WhereStr=WhereStr & " and Intro like '%" & keyword & "%' "
case "Author"
WhereStr=WhereStr & " and Author like '%" & keyword & "%' "
case "Editor"
WhereStr=WhereStr & " and Editor='" & keyword & "' "
case "Censor"
WhereStr=WhereStr & " and Censor='" & keyword & "' "
case "Point"
WhereStr=WhereStr & " and InfoPoint <= "&Cl.GetClng(keyword)&" "
case else
WhereStr=WhereStr & " and SoftName 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_Soft " & 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="User_InfoDel.asp">
<tr class="title" height="22">
<td height="22" width="30" align="center"><strong>选</strong></td>
<td width="50" align="center" height="22"><strong>ID</strong></td>
<td align="center" ><strong>名称及版本</strong></td>
<td width="80" align="center"><strong>添加人</strong></td>
<td width="80" 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(38,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='User_Soft.asp?Action=Modify&ChannelID="& SQL(1,i) &"&InfoID=" & InfoID &"' class='blue'>修改</a>"
response.write " <a href='User_InfoDel.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=Del' onclick='return ConfirmDel();'>删除</a>"
response.write " <a href='User_InfoMove.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "'>移动</a>"
if SQL(19,i)=False then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetOnTop'>固顶</a>"
else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelOnTop'>解固</a>"
end if
if SQL(21,i)=False then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=SetElite'>设为推荐</a>"
else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&InfoID=" & InfoID & "&Action=CancelElite'>取消推荐</a>"
end if
If SQL(44,i)=1 Then
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
response.write " <font color='blue'>HTML</font>(<a href='User_Create_Soft.asp?ChannelID="& SQL(1,i) &"&Action=CreateInfo&InfoID=" & InfoID & "'>生成</a>"
if SQL(38,i)=True then
response.write " <a href='User_Create_Soft.asp?ChannelID="& SQL(1,i) &"&Action=DelInfoHTML&InfoID=" & InfoID & "'>删除</a>"
response.write " <a href='" & Cl.WebDir & SQL(39,i) & "' target='_blank'>浏览</a>"
end If
response.write ")"
Else
response.write " <a href='User_Property.asp?ChannelID="& SQL(1,i) &"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过审核</a>"
response.write " <a href='User_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="User_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(30,i)<>"" Then
Response.write "<img src='"&Cl.ReplaceDir(SQL(30,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%>
<strong>大小：</strong><%=Cl.GetSize(SQL(34,i),"k")%></td>
</tr>
<tr class="tdbg">
<td align="right" nowrap><strong>开 发 商：</strong></td>
<td><%=SQL(10,i)%>
<strong>EMail：</strong><%=SQL(11,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>运行平台：</strong></td>
<td><%=SQL(33,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>授权形式：</strong></td>
<td colspan="2"><%=SQL(37,i)%>
<strong>类别：</strong><%=SQL(35,i)%>
<strong>语言：</strong><%=SQL(36,i)%>
</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>演示地址：</strong></td>
<td colspan="2"><%=SQL(12,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看<%=Cl.Web_Setting(28)%>：</strong></td>
<td colspan="2"><b class="red"><%=SQL(27,i)%></b><%=Cl.Web_Setting(29)%> <%=Cl.Web_Setting(26)%>：<b class="red"><%=SQL(28,i)%></b><%=Cl.Web_Setting(27)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看用户：</strong></td>
<td colspan="2"><%=Cl.GetUserGroupName(SQL(25,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(29,i)&""),500))%></strong></td>
</tr>
</table>
</span>
</td>
<td><%
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='User_Soft.asp?Action=Show&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>" & TitleStr & " "&SQL(8,i)&"</a>"
'InfoID, ChannelID, ChannelDir, ClassID, Prefixion, SoftName=5, FontColor, FontType, SoftVersion, Keyword, Author=10, AuthorEmail, DemoUrl, RegUrl, Editor=14, UpdateTime=15, Censor, CensorTime=17, Stars, OnTop, Hot=20, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup=26, InfoPoint, InfoMoney, Intro, PicUrl=30, UseServer, SoftPassword, OperatingSystem, SoftSize=34, SoftType, SoftLanguage, CopyrightType, IsHtml=38, HtmlFileUrl, NoPassNum=40, NoPasstxt, LastHitTime, CommentCount, Status, Deleted=45
%></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(44,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=""User_InfoDel.asp?Action=DelRecyclebin&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""" onclick=""return confirm('确定要彻底删除此记录吗？本操作将不可恢复！');"">彻底删除</a> <a href=""User_InfoDel.asp?Action=Restore&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""">还原</a>"
Else
response.write "<a href='User_Soft.asp?Action=Modify&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID &"' class='blue'>修改</a>"
Select Case SQL(44,i)
Case 1
response.write " <a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
Case 0
response.write " <a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href='User_NoPass.asp?ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>退回</a>"
Case Else
response.write " <a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href=""User_InfoDel.asp?Action=DelRecyclebin&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""" onclick=""return confirm('确定要彻底删除此记录吗？本操作将不可恢复！');"">删除</a>"
End Select
End If
%></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -