?? user_photo.asp
字號:
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 PhotoName 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 PhotoName 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_Photo " & 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="40" 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(16,i)=True then
Attribute = "<font color='#0000ff'>頂</font>"
else
Attribute = "<font color='#C5C5C5'>頂</font>"
end if
if SQL(17,i)=True then
Attribute = Attribute & " <font color='#ff0033'>熱</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>熱</font>"
end if
if SQL(18,i)=True then
Attribute = Attribute & " <font color='#006600'>薦</font>"
else
Attribute = Attribute & " <font color='#C5C5C5'>薦</font>"
end If
if SQL(31,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)
%></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_Photo.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(16,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(18,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(37,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_Photo.asp?ChannelID="& SQL(1,i) &"&Action=CreateInfo&InfoID=" & InfoID & "'>生成</a>"
if SQL(31,i)=True then
response.write " <a href='User_Create_Photo.asp?ChannelID="& SQL(1,i) &"&Action=DelInfoHTML&InfoID=" & InfoID & "'>刪除</a>"
response.write " <a href='" & Cl.WebDir & SQL(32,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(8,i)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>錄入用戶：</strong></td>
<td><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(11,i)%>"><%=SQL(11,i)%></a>(<font color='#0000ff'><%=SQL(12,i)%></font>)[<a href="User_User.asp?Action=Modify&UserName=<%=SQL(11,i)%>" class="blue">信息</a>] [<a href="../User/User_Message.Asp?Action=new&touser=<%=SQL(11,i)%>" class="blue">短消息</a>]</td>
<td width="25%" align="center" rowspan="5"><%
If SQL(27,i)<>"" Then
Response.write "<img src='"&Cl.ReplaceDir(SQL(27,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(15,i))%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>屬 性：</strong></td>
<td><%=Attribute%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看<%=Cl.Web_Setting(28)%>：</strong></td>
<td><b class="red"><%=SQL(24,i)%></b><%=Cl.Web_Setting(29)%> <%=Cl.Web_Setting(26)%>：<b class="red"><%=SQL(25,i)%></b><%=Cl.Web_Setting(27)%></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看次數：</strong></td>
<td>本日：<strong><%=SQL(20,i)%></strong> 本周：<strong><%=SQL(21,i)%></strong> 本月：<strong><%=SQL(22,i)%></strong> 累計：<strong><%=SQL(19,i)%></strong></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>查看用戶：</strong></td>
<td colspan="2"><%=Cl.GetUserGroupName(SQL(23,i))%></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(26,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_Photo.asp?Action=Show&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>" & TitleStr & "</a>"
'InfoID, ChannelID, ChannelDir, ClassID, Prefixion, PhotoName, FontColor, FontType, Keyword=8, Author, AuthorEmail, Editor, UpdateTime, Censor=13, CensorTime, Stars, OnTop=16, Hot, Elite, Hits, DayHits=20, WeekHits, MonthHits, InfoGroup=23, InfoPoint, InfoMoney, Intro, PicUrl=27, PhotoSize, IsDownLoad, DownLoadNum=30, IsHtml, HtmlFileUrl, NoPassNum, NoPasstxt, LastHitTime, CommentCount=36, Status, Deleted=38
%></td>
<td align="center"><a href="<%=FileName%>&Field=Editor&Keyword=<%=SQL(11,i)%>"><%=SQL(11,i)%></a><br />(<font color='#0000ff' title='<%=SQL(12,i)%>'><%=FormatDateTime(SQL(12,i),2)%></font>)</td>
<td align="center"><%
Select Case CLng(SQL(37,i))
Case 1
response.write "<a href='"&FileName&"&Field=Censor&Keyword="&SQL(13,i)&"'>" & SQL(13,i) & "</a><br />(<font color='#0000ff' title='" & SQL(14,i) & "'>" & Cl.Format_Time(SQL(14,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(13,i)&"'>" & SQL(13,i) & "</a><br />(<font color='#0000ff' title='" & SQL(14,i) & "'>" & Cl.Format_Time(SQL(14,i),3) & "</font>)"
tStatus = "<font color='#ff0033'>退回</font>"
End Select%></td>
<td align="center"><%=SQL(19,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_Photo.asp?Action=Modify&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID &"' class='blue'>修改</a>"
Select Case SQL(37,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>
<%Next%>
<tr class="tdbg">
<td colspan="2" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox">選中所有</td>
<td colspan="7"><% Call InfoManegeOptionBottom("photo") %></td>
</tr>
</form>
</table>
<%
end sub
Sub EditMain()
Dim rsInfo,strCusTom,ShortcutMenu
Dim sKeyword,sAuthor,sKeywordV,sAuthorV
strCusTom = Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword = Split(strCusTom(0),"$")
sAuthor = Split(strCusTom(1),"$")
sKeywordV = Split(Cl.GotTopic(strCusTom(0),60),"$")
sAuthorV = Split(Cl.GotTopic(strCusTom(1),60),"$")
if Action="Modify" then
InfoID = Cl.GetClng(request("InfoID"))
if InfoID=0 then Cl.ShowErr("<li>請指定要修改的ID</li>")
sql="select * from Cl_Photo where InfoID=" & InfoID & ""
Set rsInfo= Cl.Execute(sql)
if rsInfo.bof and rsInfo.eof then
Cl.ShowErr("<li>找不到"&Cl.ChannelItemName&"</li>")
else
ClassID = rsInfo("ClassID")
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -