📄 admin_article.asp
字号:
response.write "<a href='Admin_Article.asp?Action=Modify&ChannelID="&SQL(1,i)&"&InfoID=" & InfoID &"' class='blue'>修改</a>"
Select Case SQL(40,i)
Case 1
response.write " <a href='Admin_Property.asp?ChannelID="&SQL(1,i)&"&Action=CancelPassed&InfoID=" & InfoID & "'>取消通过</a>"
Case 0
response.write " <a href='Admin_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href='Admin_NoPass.asp?ChannelID="&SQL(1,i)&"&InfoID=" & InfoID & "'>退回</a>"
Case Else
response.write " <a href='Admin_Property.asp?ChannelID="&SQL(1,i)&"&Action=SetPassed&InfoID=" & InfoID & "' class='red'>通过</a>"
response.write " <a href=""Admin_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=""Admin_InfoDel.asp"">"
Response.write "<input type=""hidden"" name=""Action"" value=""MoveToClass"">"
Response.write "搜索结果操作：<input type=""submit"" value=""删除"" onClick=""return doSearchDel();"">"
Response.write " <input type=""submit"" value=""移动到栏目："" onClick=""return doSearchMoveToClass();"">"
Response.write "<select name=""TargetClassID"">"&ShowClass_Option(ChannelID,ClassID,2,1)&"</select>"
Response.write " <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 ParentID>0 then
dim sqlPath,rsPath
sqlPath="select ClassMaster 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)
ClassMaster = ClassMaster & "|" & sqlPath(0,i)
Next
sqlPath=Empty
End if
rsPath.Close:Set rsPath=Nothing
end if
IsClassMaster=Cl.TrueClassMaster(ClassMaster,Cl.Admin_Info(1))
if Not IsClassMaster then
if Not Cl.TrueChannelPurview(2,ChannelID) then
dim sTempP,IsTruePurview
sTempP=ParentPath & "," & ClassID
IsTruePurview=False
if rsInfo("Status")=1 then
IsTruePurview = Cl.TrueArrClassPurview(1,ChannelID,sTempP)
elseif rsInfo("Editor")=Cl.MemberName then
IsTruePurview = True
else
IsTruePurview = Cl.TrueArrClassPurview(2,ChannelID,sTempP)
end if
if Not IsTruePurview then
Cl.ShowErr("<li>您无权修改或查看此栏目或资料！</li>")
end if
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")
ProjectID = rsInfo("ProjectID")
TemplateID = rsInfo("TemplateID")
CssID = rsInfo("CssID")
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
ProjectID = 0
TemplateID = 0
CssID = 0
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="Admin_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')"> <Input type="button" Name="selectclassid" Onclick="SelectClass('<%=ChannelID%>','ClassID')" value="选择栏目">
<strong>专题：</strong>
<select name="SpecialID" id="SpecialID">
<%'=ShowSpecial_Option(ChannelID,SpecialID,1)%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -