user_article.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

			tStatus = "<font color='#ff0033'>退回</font>"
		End Select%></td>
		<!------------------------>
		<td align="center"><%=SQL(20,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>&nbsp;&nbsp;<a href=""User_InfoDel.asp?Action=Restore&ChannelID="&SQL(1,i)&"&InfoID="&InfoID&""">还原</a>"
		Else
			response.write "<a href='User_Article.asp?Action=Modify&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID &"' class='blue'>修改</a>"
			Select Case SQL(40,i)
			Case 1
				response.write "&nbsp;&nbsp;<a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
			Case 0
				response.write "&nbsp;&nbsp;<a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
				response.write "&nbsp;&nbsp;<a href='User_NoPass.asp?ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>退回</a>"
			Case Else
				response.write "&nbsp;&nbsp;<a href='User_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
				response.write "&nbsp;&nbsp;<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("article") %></td>
	</tr>
</form>
</table>
<%
if KeyWord<>"" and arrInfoID<>"" then
	Response.write "<form name=""formSearch"" method=""Post"" action=""User_InfoDel.asp"">"
	Response.write "<input type=""hidden"" name=""Action"" value=""MoveToClass"">"
	Response.write "搜索结果操作：<input type=""submit"" value=""删除"" onClick=""return doSearchDel();"">"
	Response.write "&nbsp;&nbsp; <input type=""submit"" value=""移动到栏目："" onClick=""return doSearchMoveToClass();"">"
	Response.write "<select name=""TargetClassID"">"&ShowClass_Option(ChannelID,ClassID,2,1)&"</select>"
	Response.write "&nbsp;&nbsp; <input type=""submit"" value=""移动到专题："" onClick=""return doSearchMoveToSpecial();"">"
	Response.write "<select name=""SpecialID"">"&ShowSpecial_Option(ChannelID,SpecialID,1)&"</select>"
	Response.write "<input type=""hidden"" name=""InfoID"" value="""&arrInfoID&""">"
	Response.write "</form>"
	 %>
<script language="JavaScript" type="text/javascript">
function doSearchDel()
{
	document.formSearch.Action.value='Del';
	return ConfirmDel();
}
function doSearchMoveToClass()
{
	document.formSearch.Action.value='MoveToClass';
	return confirm("确定要将所有搜索结果移动到指定的栏目吗？");
}
function doSearchMoveToSpecial()
{
	document.formSearch.Action.value='MoveToSpecial';
	return confirm("确定要将所有搜索结果移动到指定的专题吗？");
}
</script>
	<%
	'Response.write arrInfoID
end if
End Sub

Sub EditMain()
	Dim rsInfo,strCusTom,ShortcutMenu
	Dim sKeyword,sAuthorName,sCopyFromName,sPrefixion
	strCusTom		= Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
	sKeyword		= Split(strCusTom(0),"$")
	sAuthorName		= Split(strCusTom(1),"$")
	sCopyFromName	= Split(strCusTom(2),"$")
	sPrefixion		= Split(strCusTom(3),"$")
	if Action="Modify" then
		InfoID	= Cl.GetClng(request("InfoID"))
		if InfoID=0 then Cl.ShowErr("<li>请指定要修改的"&Cl.ChannelItemName&"ID</li>")
		Set rsInfo = Cl.Execute("select * From Cl_Article where InfoID=" & InfoID & "")
		if rsInfo.bof and rsInfo.eof then
			Cl.ShowErr("<li>找不到"&Cl.ChannelItemName&"</li>")
		else
			ClassID	= rsInfo("ClassID")
			set tClass=Cl.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,ClassMaster From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID)
			if tClass.bof and tClass.eof then
				tClass.Close :Set tClass=Nothing
				Cl.ShowErr("<li>找不到指定的栏目</li>")
			else
				ClassName	= tClass(0) : RootID	= tClass(1)
				ParentID	= tClass(2) : Depth		= tClass(3)
				ParentPath	= tClass(4) : ClassMaster= tClass(5) 
				tClass.Close :Set tClass=Nothing
				if Not Cl.TrueChannelPurview_U(1,ChannelID) then
					dim sTempP,IsTruePurview
					sTempP=Split(ParentPath & "," & ClassID,",")
					IsTruePurview=False
					if rsInfo("Status")=1 then
						for i=1 to Ubound(sTempP)
							IsTruePurview = Cl.TrueClassPurview_U(1,ChannelID,sTempP(i))
							if IsTruePurview Then Exit For
						Next
					elseif rsInfo("Editor")=Cl.MemberName then
						IsTruePurview=True
					else
						for i=1 to Ubound(sTempP)
							IsTruePurview = Cl.TrueClassPurview_U(2,ChannelID,sTempP(i))
							if IsTruePurview Then Exit For
						Next
					end if
					if Not IsTruePurview then
						Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
					end if
				end if
			end if
		end if
		Author		= rsInfo("Author")
		CopyFrom	= rsInfo("CopyFrom")
		if instr(Author,"|")>0 then
			Author		= Split(Author,"|")
			AuthorName	= Author(0) : AuthorEmail = Author(1)
		else
			AuthorName	= Author : AuthorEmail = ""
		end if
		if instr(CopyFrom,"|")>0 then
			CopyFrom	= Split(CopyFrom,"|")
			CopyFromName= CopyFrom(0) : CopyFromUrl	= CopyFrom(1)
		else
			CopyFromName= CopyFrom : CopyFromUrl = ""
		end if
		ClassID		= rsInfo("ClassID")
		SpecialID	= rsInfo("SpecialID")
		Prefixion	= rsInfo("Prefixion")
		Title		= rsInfo("Title")
		FontType=rsInfo("FontType")
		FontColor=rsInfo("FontColor")
		TitleIntact	= rsInfo("TitleIntact")
		Keyword		= rsInfo("Keyword")
		Intro		= rsInfo("Intro")
		IsLink		= rsInfo("IsLink")
		HtmlFileUrl	= rsInfo("HtmlFileUrl")
		Content		= rsInfo("Content")
		PaginationType= rsInfo("PaginationType")
		MaxCharPerPage= rsInfo("MaxCharPerPage")
		PicUrl		= rsInfo("PicUrl")
		UploadFiles	= rsInfo("UploadFiles")
		InfoGroup	= rsInfo("InfoGroup")
		InfoPoint	= rsInfo("InfoPoint")
		InfoMoney	= rsInfo("InfoMoney")
		BackPoint	= rsInfo("BackPoint")
		BackPointRate=rsInfo("BackPointRate")
		BackMoney	= rsInfo("BackMoney")
		BackMoneyRate= rsInfo("BackMoneyRate")
		OnTop		= rsInfo("OnTop")
		Hot			= rsInfo("Hot")
		Elite		= rsInfo("Elite")
		Stars		= rsInfo("Stars")
		Hits		= rsInfo("Hits")
		UpdateTime	= rsInfo("UpdateTime")
		Receive		= rsInfo("Receive")
		ReceiveUser	= rsInfo("ReceiveUser")
		AutoReceiveTime=rsInfo("AutoReceiveTime")
		ReceiveType	= rsInfo("ReceiveType")
		Status		= rsInfo("Status")
		rsInfo.close:set rsInfo=Nothing
	else
		InfoID		= 0
		ClassID		= Cl.GetClng(Request.Cookies("Article")("ClassID"))
		SpecialID	= Trim(Request.Cookies("Article")("SpecialID"))
		Prefixion	= Trim(Request.Cookies("Article")("Prefixion"))
		Title		= ""
		FontType	= Cl.GetClng(Request.Cookies("Article")("FontType"))
		FontColor	= Trim(Request.Cookies("Article")("FontColor"))
		TitleIntact	= ""
		Keyword		= Trim(Request.Cookies("Article")("Keyword"))
		If Keyword="" Then Keyword = sKeyword(0)
		CopyFromName= Cl.Web_Info(0)
		CopyFromUrl = Cl.Web_Info(4)
		AuthorName	= Cl.MemberName
		AuthorEmail = Cl.User_Info(7)
		If Request.Cookies("Article")("CopyFrom")<>"" Then
			If InStr(Request.Cookies("Article")("CopyFrom"),"|")>0 Then
			CopyFromName = Split(Request.Cookies("Article")("CopyFrom"),"|")(0)
			CopyFromUrl = Split(Request.Cookies("Article")("CopyFrom"),"|")(1)
			Else
			CopyFromName = Trim(Request.Cookies("Article")("CopyFrom"))
			End If
		End if
		If Request.Cookies("Article")("Author")<>"" Then
			If InStr(Request.Cookies("Article")("Author"),"|")>0 Then
			AuthorName = Split(Request.Cookies("Article")("Author"),"|")(0)
			AuthorEmail = Split(Request.Cookies("Article")("Author"),"|")(1)
			Else
			AuthorName = Trim(Request.Cookies("Article")("Author"))
			End If
		End if
		Intro		= ""
		IsLink		= False
		HtmlFileUrl	= ""
		Content		= ""
		PaginationType=0
		MaxCharPerPage=5000
		PicUrl		= ""
		UploadFiles	= ""
		InfoGroup = Trim(Request.Cookies("Article")("InfoGroup"))
		If InfoGroup="" Then InfoGroup = "5"
		InfoPoint	= Cl.GetClng(Request.Cookies("Article")("InfoPoint"))
		InfoMoney	= Cl.GetClng(Request.Cookies("Article")("InfoMoney"))
		BackPoint	= Cl.GetClng(Request.Cookies("Article")("BackPoint"))
		BackPointRate=Cl.GetClng(Request.Cookies("Article")("BackPointRate"))
		BackMoney	= Cl.GetClng(Request.Cookies("Article")("BackMoney"))
		BackMoneyRate=Cl.GetClng(Request.Cookies("Article")("BackMoneyRate"))
		OnTop		= False
		Hot			= False
		Elite		= False
		Stars		= 3
		Hits		= 0
		UpdateTime	= Now()
		Receive		= False
		ReceiveUser	= ""
		AutoReceiveTime= 0
		ReceiveType	= 0
		Status		= 1
	End if
%>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
	document.myform.Content.value=editor.Editor.document.body.innerHTML;
		if (document.myform.ClassID.value=="0")
	{
		alert("<%=Cl.ChannelItemName%>所属栏目为外部栏目或您无此栏目添加权限！");
		document.myform.ClassID.focus();
		return false;
	}
	if (document.myform.Title.value=="")
	{
		alert("<%=Cl.ChannelItemName%>标题不能为空！");
		document.myform.Title.focus();
		return false;
	}
	if (document.myform.Keyword.value=="")
	{
		alert("关键字不能为空！");
		document.myform.Keyword.focus();
		return false;
	}
	if (document.myform.IsLink.checked==true)
	{
		if (document.myform.HtmlFileUrl.value=="")
		{
			alert("请输入链接地址！");
			document.myform.HtmlFileUrl.focus();
			return false;
		}
	}
	else
	{
		if (document.myform.Content.value=="")
		{
			alert("<%=Cl.ChannelItemName%>内容不能为空！");
			editor.Editor.focus();
			return false;
		}
	}
	for(var i=0;i<document.myform.TempUploadFiles.length;i++){
		if (document.myform.UploadFiles.value=="") document.myform.UploadFiles.value=document.myform.TempUploadFiles.options[i].value;
		else document.myform.UploadFiles.value+="@@@"+document.myform.TempUploadFiles.options[i].value;
	}
	return true;
}
</script>
<form action="User_Article.asp" method="post" name="myform" id="myform" onsubmit="return CheckForm();">
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
	<tr class="title">
		<td height="22" align="center" colspan="3"><b><%if Action="Modify" then%>修改<%else%>添加<%end if%><%=Cl.ChannelItemName%></b></td>
	</tr>
<!--
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>所属栏目：</strong></td>
		<td colspan=2><Input type="hidden" name="ClassID" id="ClassID" value="<%=ClassID%>"><Input type="text" name="ClassIDv" id="ClassIDv" value="<%=ClassID%>:<%=ClassName%>" size=45 readonly Onclick="SelectClass('<%=ChannelID%>','ClassID')">&nbsp<Input type="button" Name="selectclassid" Onclick="SelectClass('<%=ChannelID%>','ClassID')" value="选择栏目">
		  &nbsp;&nbsp;&nbsp;&nbsp;<strong>专题：</strong>
		  <select name="SpecialID" id="SpecialID">
		<%'=ShowSpecial_Option(ChannelID,SpecialID,1)%>
		</select>
		</td>
	</tr>-->
	<tr class="tdbg"> 
		<td width="100" align="right"><strong>所属栏目：</strong></td>
		<td colspan="2">
			<select name="ClassID" style="width:200px;">
			<option value="0" selected="selected">请选择<%=Cl.ChannelItemName%>栏目</option>