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> &gt;&gt; "
				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;
	}
}
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>&nbsp;|&nbsp;<a href="User_Photo.asp?Action=Add&ChannelID=<%=ChannelID%>">添加<%=Cl.ChannelItemName%></a>&nbsp;|&nbsp;<a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=Check">审核<%=Cl.ChannelItemName%></a>&nbsp;|&nbsp;<a href="User_Comment.asp?ChannelID=<%=ChannelID%>" target="main"><%=Cl.ChannelItemName%>评论管理</a>&nbsp;|&nbsp;<a href="User_Photo.asp?ChannelID=<%=ChannelID%>&Action=Special" target="main">专题管理</a>&nbsp;|&nbsp;<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>&nbsp;|&nbsp;<a href="<%=strFileName%>&Status=0"><%
	if Status=0 then
	%><font color="red"><b>未审核<%=Cl.ChannelItemName%></b></font><%
	else
	%>未审核<%=Cl.ChannelItemName%><%
	end if
	%></a>&nbsp;|&nbsp;<a href="<%=strFileName%>&Status=1"><%
	if Status=1 then
	%><font color="red"><b>已审核<%=Cl.ChannelItemName%></b></font><%
	else
	%>已审核<%=Cl.ChannelItemName%><%
	end if%></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	<input name="OnTop" type="checkbox" onclick="submit()" value="True" <%if OnTop then%>checked<%end if%> />
	固顶<%=Cl.ChannelItemName%>&nbsp;&nbsp;&nbsp;&nbsp;
	<input name="Elite" type="checkbox" onclick="submit()" value="True" <%if Elite then%>checked<%end if%> />
	推荐<%=Cl.ChannelItemName%>&nbsp;&nbsp;&nbsp;&nbsp;
	<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>&nbsp;
		<select name="ClassID" id="ClassID">
		<option value="">所有栏目</option>
		<%=ShowClass_Option(ChannelID,0,2,3)%>
		</select>&nbsp;
		<select name="SpecialID" id="SpecialID">
		<%=ShowSpecial_Option(ChannelID,0,1)%>
		</select>&nbsp;
		<select name="Status" id="Status">
		<option value="-2">资料选项</option>
		<option value="0">未审<%=Cl.ChannelItemName%></option>
		<option value="1">已审<%=Cl.ChannelItemName%></option>
		</select>&nbsp;
		<input name="OnTop" type="checkbox" value="True" <%if OnTop then%>checked<%end if%> />
		顶&nbsp;<input name="Elite" type="checkbox" value="True" <%if Elite then%>checked<%end if%> />
		荐&nbsp;<input name="Hot" type="checkbox" value="True" <%if Hot then%>checked<%end if%> />
		热&nbsp;
		<input type="text" name="keyword"  size="20" value="<%=keyword%>" maxlength="50" onFocus="this.select();" />
		&nbsp;
		<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
	%>&nbsp;|&nbsp;<%=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
	%>&nbsp;|&nbsp;<%=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