?? user_photo.asp
字號:
<!--#include file="Inc/Const.asp"-->
<%
if ChannelID=0 then Cl.ShowErr("參數錯誤！")
if Not Cl.TrueChannelPurview_U(5,ChannelID) then Cl.ShowErr("<li>您無此操作權限！</li>")
Const PageSize=20
Dim ManageType,Action
Dim keyword,Field
Dim rsList,sPath
Dim ClassID,Passed,SpecialID,SpecialName,ClassMaster,IsClassMaster
Dim tClass,ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID
'=========================================
Dim InfoID,Prefixion,PhotoName,Author,AuthorEmail,AuthorHomepage
Dim PicUrl,PhotoUrl,PhotoSize,IsDownLoad
Dim Intro,OnTop,Hot,Elite,Stars,Hits,DayHits,WeekHits,MonthHits
Dim InfoGroup,InfoPoint,InfoMoney,UpdateTime
Dim sMaxLimit,sAddPoint,sAddIsChk,NowCreate,UploadFiles,Editor
Dim BeginID,EndID,batchi,NumLen
Dim BackPoint,BackPointRate,BackMoney,BackMoneyRate
Dim Status,FontColor,FontType
Dim IsTruePurview,IsTruePurview_P
'============================================
Cl.Get_ChannelSetting(ChannelID)
Action = Trim(request("Action"))
IsClassMaster=False
Header
Select Case Action
Case "Add", "Modify"
EditMain
Case "SaveAdd", "SaveModify"
DoSaveRecord
Case "Show"
ShowMain
Case Else
ManageMain
End Select
Footer
Sub ManageMain()
Response.Expires = -1
Response.CacheControl = "no-cache"
ManageType = Trim(request("ManageType"))
ClassID = Cl.GetClng(request("ClassID"))
SpecialID = Cl.GetClng(request("SpecialID"))
'=============
OnTop = Cl.GetCBool(request("OnTop"))
Hot = Cl.GetCBool(request("Hot"))
Elite = Cl.GetCBool(request("Elite"))
'=============
keyword = Trim(request("keyword"))
'Property = Trim(request("Property"))
Field = Trim(request("Field"))
Status = Trim(request("Status"))
CurrentPage = Cl.GetClng(request("page"))
if keyword="" then keyword="關鍵字"
FileName = "User_Photo.asp?ChannelID="&ChannelID&"&Action="&Action&""
if ManageType="MyInfo" then
FileName=FileName & "&ManageType=" & ManageType
end if
'======================1
strFileName = FileName & "&ClassID=" & ClassID & "&SpecialID=" & SpecialID & "&Field=" & Field & "&keyword=" & keyword
'======================1
If Not IsNumeric(Status) then
Status = -2
Select Case Action
Case "Check"
Status = 0
Case "Make"
Status = 1
Case Else
if ManageType<>"MyInfo" then Status = 1
End Select
Else
Status = CLng(Status)
end if
if ClassID>0 then
set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID,ClassMaster From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID)
if tClass.bof and tClass.eof then
tClass.Close :Set tClass=Nothing
Cl.ShowErr("<br /><li>找不到指定的欄目</li>")
End if
ClassName =tClass(0) : RootID = tClass(1) : ParentID = tClass(2) : Depth = tClass(3)
ParentPath = tClass(4) : Child = tClass(5) : arrChildID= tClass(6) : ClassMaster= tClass(7)
tClass.Close :Set tClass=Nothing
If Cint(Cl.User_Purview(0)) > 1 and ManageType<>"MyInfo" then
Dim sTr,sTPurview
sTPurview=False
sTr=Split(ParentPath & "," & ClassID,",")
if Action="Check" then
if Cl.TrueChannelPurview_U(2,ChannelID) then
sTPurview=True
else
for i=1 to Ubound(sTr)
sTPurview=Cl.TrueClassPurview_U(2,ChannelID,sTr(i))
if sTPurview=True then Exit For
Next
end if
Else
if Cl.TrueChannelPurview_U(1,ChannelID) then
sTPurview=True
else
for i=1 to Ubound(sTr)
sTPurview=Cl.TrueClassPurview_U(1,ChannelID,sTr(i))
if sTPurview=True then Exit For
Next
end if
End if
If sTPurview=False then Cl.ShowErr("<br /><li>找不到指定的欄目或您無此操作權限</li>")
End if
if ParentID>0 then
dim sqlPath,rsPath
sqlPath="select ClassID,ClassName From Cl_Class where ChannelID="&ChannelID&" and ClassID in (" & ParentPath & ") order by Depth"
set rsPath=Cl.Execute(sqlPath)
if Not rsPath.eof then
sqlPath=rsPath.GetRows(-1)
for i=0 to Ubound(sqlPath,2)
sPath = sPath & "<a href=""" & FileName & "&ClassID=" & sqlPath(0,i) & """><font color=#0000ff>" & sqlPath(1,i) & "</font></a> >> "
Next
sqlPath=Empty
End if
rsPath.Close:Set rsPath=Nothing
end if
sPath = sPath & "<a href=""" & FileName & "&ClassID=" & ClassID & """><font color=#0000ff>" & ClassName & "</font></a>"
end if
%>
<script type="text/javascript" src="Inc/InfoManage.js"></script>
<script language="JavaScript" type="text/javascript">
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != "chkAll"&&e.disabled==false)
e.checked = form.chkAll.checked;
}
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong><%=Cl.ChannelItemName%>管理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30" align="right"><strong>管理導航：</strong></td>
<td><a href="User_Photo.asp?ChannelID=<%=ChannelID%>"><%=Cl.ChannelItemName%>管理首頁</a> | <a href="User_Photo.asp?Action=Add&ChannelID=<%=ChannelID%>">添加<%=Cl.ChannelItemName%></a> | <a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=Check">審核<%=Cl.ChannelItemName%></a> | <a href="User_Comment.asp?ChannelID=<%=ChannelID%>" target="main"><%=Cl.ChannelItemName%>評論管理</a> | <a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=Special" target="main">專題管理</a> | <a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=RecycleBin" target="main">回收站管理</a> </td>
</tr>
<form action="<%=strFileName%>" method="post" name="FormProperty" id="FormProperty">
<tr class="tdbg">
<td width="70" height="30" align="right"><strong><%=Cl.ChannelItemName%>選項：</strong></td>
<td>
<a href="<%=strFileName%>&Status=-2"><%
if Status=-2 then
%><font color="red"><b>所有<%=Cl.ChannelItemName%></b></font><%
else
%>所有<%=Cl.ChannelItemName%><%
end if%></a> | <a href="<%=strFileName%>&Status=0"><%
if Status=0 then
%><font color="red"><b>未審核<%=Cl.ChannelItemName%></b></font><%
else
%>未審核<%=Cl.ChannelItemName%><%
end if
%></a> | <a href="<%=strFileName%>&Status=1"><%
if Status=1 then
%><font color="red"><b>已審核<%=Cl.ChannelItemName%></b></font><%
else
%>已審核<%=Cl.ChannelItemName%><%
end if%></a>
<input name="OnTop" type="checkbox" onclick="submit()" value="True" <%if OnTop then%>checked<%end if%> />
固頂<%=Cl.ChannelItemName%>
<input name="Elite" type="checkbox" onclick="submit()" value="True" <%if Elite then%>checked<%end if%> />
推薦<%=Cl.ChannelItemName%>
<input name="Hot" type="checkbox" onclick="submit()" value="True" <%if Hot then%>checked<%end if%> />
熱門<%=Cl.ChannelItemName%>
</td>
</tr>
</form>
<tr class="tdbg">
<td width="70" height="30" align="right"><strong>高級搜索：</strong></td>
<td>
<table border="0" cellpadding="0" cellspacing="0">
<form action="<%=FileName%>" method="post" name="SearchForm" id="SearchForm">
<tr><td height="28" align="center">
<select name="Field" size="1" id="Field">
<option value="ID"><%=Cl.ChannelItemName%>ID</option>
<option value="Title" selected="selected"><%=Cl.ChannelItemName%>名稱</option>
<option value="Keyword">關 鍵 字</option>
<option value="Intro"><%=Cl.ChannelItemName%>簡介</option>
<option value="Author"><%=Cl.ChannelItemName%>作者</option>
<option value="Editor">添加用戶</option>
<option value="Censor">審核用戶</option>
<option value="Point"><%=Cl.ChannelItemName%><%=Cl.Web_Setting(28)%></option>
</select>
<select name="ClassID" id="ClassID">
<option value="">所有欄目</option>
<%=ShowClass_Option(ChannelID,0,2,3)%>
</select>
<select name="SpecialID" id="SpecialID">
<%=ShowSpecial_Option(ChannelID,0,1)%>
</select>
<select name="Status" id="Status">
<option value="-2">資料選項</option>
<option value="0">未審<%=Cl.ChannelItemName%></option>
<option value="1">已審<%=Cl.ChannelItemName%></option>
</select>
<input name="OnTop" type="checkbox" value="True" <%if OnTop then%>checked<%end if%> />
頂 <input name="Elite" type="checkbox" value="True" <%if Elite then%>checked<%end if%> />
薦 <input name="Hot" type="checkbox" value="True" <%if Hot then%>checked<%end if%> />
熱
<input type="text" name="keyword" size="20" value="<%=keyword%>" maxlength="50" onFocus="this.select();" />
<input type="submit" name="Submit" value=" 搜索 " /></td>
</tr>
</form></table>
</td>
</tr>
<%if Action="Special" then%>
<tr class="tdbg">
<td width="70" height="30" align="right"><strong>專題選項：</strong></td>
<td>
<%if SpecialID=0 then
%>
<a href="<%=FileName%>&SpecialID=0&Status=<%=Status%>"><font color="red"><b>所有專題</b></font></a><%
else
%>
<a href="<%=FileName%>&SpecialID=0&Status=<%=Status%>">所有專題</a><%
end if
%> | <%=ShowRootSpecial(ChannelID,SpecialID)%> </td>
</tr>
<%else%>
<tr class="tdbg">
<td width="70" height="30" align="right"><strong>欄目選項：</strong></td>
<td>
<%if ClassID=0 then%>
<a href="<%=FileName%>&ClassID=0&Status=<%=Status%>"><font color="red"><b>所有欄目</b></font></a><%
else
%>
<a href="<%=FileName%>&ClassID=0&Status=<%=Status%>">所有欄目</a><%
end if
%> | <%=ShowRootClass(ChannelID,RootID)%> </td>
</tr>
<%
end if
if ParentID>0 or Child>0 then
%>
<tr class="tdbg">
<td width="70" height="30" align="right"><strong>子 欄 目：</strong></td>
<td><%=sPath%><%=ShowManageChild(ChannelID,ClassID)%></td>
</tr>
<%
end if
%>
</table>
<script language="JavaScript" type="text/javascript">
CheckSel('Field','<%=Field%>');
CheckSel('ClassID','<%=ClassID%>');
CheckSel('SpecialID','<%=SpecialID%>');
CheckSel('Status','<%=Status%>');
</script>
<%
Dim WhereStr
SQL="select InfoID, ChannelID, ChannelDir, ClassID, Prefixion, PhotoName, FontColor, FontType, Keyword, Author, AuthorEmail, Editor, UpdateTime, Censor, CensorTime, Stars, OnTop, Hot, Elite, Hits, DayHits, WeekHits, MonthHits, InfoGroup, InfoPoint, InfoMoney, Intro, PicUrl, PhotoSize, IsDownLoad, DownLoadNum, IsHtml, HtmlFileUrl, NoPassNum, NoPasstxt, LastHitTime, CommentCount, Status, Deleted From Cl_Photo "
WhereStr=" where ChannelID="&ChannelID&" "
Select Case Action
Case "RecycleBin"
WhereStr=WhereStr & " and (Deleted="&TrueType&" or Status=-1)"
Case Else
WhereStr=WhereStr & " and Deleted="&FalseType
if Status>-2 then WhereStr=WhereStr & " and Status=" & Status
end Select
if ClassID>0 then
if Child>0 then
WhereStr=WhereStr & " and ClassID in (" & arrChildID & ")"
else
WhereStr=WhereStr & " and ClassID=" & ClassID
end if
elseif Not Cl.TrueChannelPurview_U(2,ChannelID) and ManageType<>"MyInfo" then
Dim arrIDStr
arrIDStr = GetManageArrClassID_U
if arrIDStr="" then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -