📄 admin_photo.asp
字号:
}else{
alert('<%=EL_Channel.ItemName%>简介处于预览状态不能保存');
Editor.HtmlEdit.focus();
return false;
}
if(frm.ClassID.value.trim() == "" || frm.ClassID.selectedIndex == -1){
alert("请选择所属<%=EL_Channel.ClassItemName%>");
frm.ClassID.focus();
return false;
}
if(frm.PhotoName.value.trim() == ""){
alert("请输入<%=EL_Channel.ItemName%>名称");
frm.PhotoName.focus();
return false;
}
if(frm.Keywords.value.trim() == ""){
alert("请输入关键字");
frm.Keywords.focus();
return false;
}
if(frm.PictrueList.options.length == 0){
alert("请上传<%=EL_Channel.ItemName%>");
frm.PictrueList.focus();
return false;
}else{
frm.Uploadfiles.value = "";
for(var i=0;i<frm.PictrueList.options.length;i++){
frm.Uploadfiles.value += (frm.Uploadfiles.value=="")?frm.PictrueList.options[i].value:("|"+frm.PictrueList.options[i].value);
}
}
<%=EL_Common.ShowDefinedField_Js(EL_Channel.ChannelID, "frm")%>
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Photo.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="4" class="top_25"><strong>修改<%=EL_Channel.ItemName%></strong></td>
</tr>
<tr>
<td width="17%" class="td_ItemName"><strong>所属<%=EL_Channel.ClassItemName%></strong></td>
<td colspan="3" class="td_25">
<select name="ClassID" id="ClassID">
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, rsPhoto("ClassID"), "")%>
</select>
<%If EL_Admin.Purview = 3 Then Response.Write "<span class=redtext>注：您只能在<span class=greentext>绿色</span>的"& EL_Channel.ClassItemName &"中操作</span>"%></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>名称</strong></td>
<td colspan="3" class="td_25"><input name="PhotoName" type="text" class="RulerInput" id="PhotoName" value="<%=EL_Common.HTMLEncode(rsPhoto("PhotoName"))%>" size="70"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>关键字</strong><br>多个关键字请用“|”隔开</td>
<td colspan="3" class="td_25"><input name="Keywords" type="text" id="Keywords" value="<%=EL_Common.HTMLEncode(rsPhoto("Keywords"))%>" size="60"></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>作者</strong></td>
<td colspan="3" class="td_25"><input name="Author" type="text" id="Author" value="<%=EL_Common.HTMLEncode(rsPhoto("Author"))%>" size="30">
<span class="BlueText"><= 【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; ">佚名</span><span class="BlueText">】【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; ">未知</span><span class="BlueText">】【</span><span class="GreenText" onClick="document.myform.Author.value=this.innerText" style="cursor:hand; "><%=EL_Admin.AdminName%></span><span class="BlueText">】</span></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>来源</strong></td>
<td colspan="3" class="td_25"><input name="Copyfrom" type="text" id="Copyfrom" value="<%=EL_Common.HTMLEncode(rsPhoto("Copyfrom"))%>" size="30">
<span class="BlueText"><= 【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">本站原创</span>】【<span class="GreenText" onClick="document.myform.Copyfrom.value=this.innerText" style="cursor:hand; ">未知</span>】</span></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>简介</strong>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom"><img src="<%=EL_Common.PictrueURL(rsPhoto("DefaultPictrue"), EL_Channel.FilePath)%>" name="PictruePreview" width="140" height="100" id="PictruePreview"></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table></td>
<td colspan="3" class="td_25">
<textarea name='Content' id="Content" style='display:none'><%=EL_Common.ServerHTMLEncode(rsPhoto("Content"))%></textarea>
<iframe ID='Editor' src='../editor.asp?ChannelID=<%=EL_Channel.ChannelID%>&ShowType=3&tContentid=Content' frameborder='1' scrolling='no' width='650' height='200' ></iframe> </td>
</tr>
<tr>
<td class="td_ItemName"><strong>默认缩略图</strong></td>
<td colspan="3" class="td_25">
<input name="DefaultPictrue" type="text" id="DefaultPictrue" onChange="PictruePreview.src=(this.value.trim()=='' || this.value.trim().toLowerCase=='http://')?'../images/nopic.gif':( (this.value.indexOf('http://')==0 || this.value.indexOf('/')==0)?this.value:'<%=EL_Channel.FilePath%>'+this.value);" value="<%=rsPhoto("DefaultPictrue")%>" size="50">
<input type="button" name="Submit33" value="从已上传缩略图中选择" onClick="SelectThumb()"> </td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>集</strong></td>
<td colspan="3" class="td_25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="49%">
<select name="PictrueList" size="5" id="PictrueList" style="width:400px; height:120px;" onChange="DefaultPictrue.value=this.value;PictruePreview.src=((this.value == '')?'../images/nopic.gif':'<%=EL_Channel.FilePath%>'+this.value);">
<%
Dim TempArrPictrue, k
TempArrPictrue = Split(rsPhoto("Uploadfiles"), "|")
For k = 0 To UBound(TempArrPictrue)
If EL_Common.CheckIsPictrue(TempArrPictrue(k)) = True Then
If TempArrPictrue(k) = rsPhoto("DefaultPictrue") Then
Response.Write "<option value='"& TempArrPictrue(k) &"' selected>"& TempArrPictrue(k) &"</option>"
Else
Response.Write "<option value='"& TempArrPictrue(k) &"'>"& TempArrPictrue(k) &"</option>"
End If
End If
Next
%>
</select>
</td>
<td width="51%"><input type="button" name="Submit3" value="从已上传文件中选择" onClick="SelectFile()">
<br>
<input type="button" name="Submit32" value="删除选定<%=EL_Channel.ItemName%>" onClick="DeleteItem()">
<input name="Uploadfiles" type="hidden" id="Uploadfiles"></td>
</tr>
</table> </td>
</tr>
<tr>
<td class="td_ItemName"><strong class="BlueText"><%=EL_Channel.ItemName%>上传</strong></td>
<td colspan="3" class="td_25">
<iframe id="Upload" src="Admin_Upload.asp?DialogType=pic&ChannelID=<%=EL_Channel.ChannelID%>&EventName=AddPicture" frameborder="0" scrolling="no" width="100%" height="50" allowtransparency="true"></iframe>
</td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>属性</strong></td>
<td width="35%" class="td_25"><input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsPhoto("OnTop"))%>>
固顶
<input name="Commended" type="checkbox" class="nomargin" id="Commended" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("False", rsPhoto("OnTop"))%>>
推荐</td>
<td width="10%" nowrap class="td_ItemName"><strong>初始点击数</strong></td>
<td width="38%" class="td_25"><input name="Hits" type="text" id="Hits" size="5" value="<%=rsPhoto("Hits")%>"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>配色风格</strong></td>
<td colspan="3" class="td_25">
<select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(rsPhoto("SkinID"))%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>页面模板</strong></td>
<td colspan="3" class="td_25">
<select name="TemplateID" id="TemplateID">
<option value="0">使用系统默认</option>
<%=EL_Common.TemplateList(EL_Channel.ChannelID, 3, rsPhoto("TemplateID"))%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>更新日期</strong></td>
<td colspan="3" class="td_25"><input name="UpdateTime" type="text" id="UpdateTime" value="<%=rsPhoto("UpdateTime")%>">
<span class="BlueText"><= 【<span class="GreenText" onClick="getObject('UpdateTime').innerText=NowTime()" style="cursor:hand; ">现在时间</span>】</span></td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否立即发布</strong></td>
<td colspan="3" class="td_25"><div style="float:left;">
<input name="Passed" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsPhoto("Passed"))%>>
是
<input name="Passed" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsPhoto("Passed"))%>>
否 </div>
</td>
</tr>
<%=EL_Common.ShowDefinedField(EL_Channel.ChannelID, EL_Channel.ChannelModule, rsPhoto("PhotoID"), 3)%>
<tr>
<td class="td_ItemName"> </td>
<td colspan="3" class="td_50"><input type="submit" name="Submit" value="保存修改<%=EL_Channel.ItemName%>">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="PhotoID" type="hidden" id="PhotoID" value="<%=PhotoID%>"></td>
</tr>
</table>
</form>
<%
rsPhoto.Close()
Set rsPhoto = Nothing
Set PhotoCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManagePhoto()
On Error Resume Next
Dim ManageCmd, rsPhoto, StrFields, StrCondition, TempString
Dim PageCounts, RowCount, TotalRowCount, i
TempString = ""
StrFields = "EL_Photo.PhotoID,EL_Photo.ClassID,EL_Photo.PhotoName,EL_Photo.Author,"
StrFields = StrFields &"EL_Photo.Copyfrom,EL_Photo.DefaultPictrue,EL_Photo.Hits,EL_Photo.OnTop,EL_Photo.Commended,"
StrFields = StrFields &"EL_Photo.Passed,EL_Photo.UpdateTime,EL_Photo.Inputer,"
StrFields = StrFields &"EL_Class.ClassName"
StrCondition = "EL_Photo.ChannelID="& EL_Channel.ChannelID &" AND EL_Photo.ClassID=EL_Class.ClassID AND EL_Photo.ChannelID=EL_Class.ChannelID "
If ClassID <> 0 Then
Dim AllChildID
AllChildID = EL_Common.GetAllChildID(ClassID)
If AllChildID = "" Then
StrCondition = StrCondition &"And EL_Photo.ClassID In("& ClassID &") "
Else
StrCondition = StrCondition &"And EL_Photo.ClassID In("& ClassID &","& AllChildID &") "
End If
End If
If Passed <> "" Then
StrCondition = StrCondition &"And EL_Photo.Passed="& Passed &" "
If Passed = EL_True Then
TempString = EL_Common.Join2String(TempString, "已发布", "、")
Else
TempString = EL_Common.Join2String(TempString, "<span class=redtext>未发布</span>", "、")
End If
End If
If OnTop = EL_True Then
StrCondition = StrCondition &"And EL_Photo.OnTop="& EL_True &" "
TempString = EL_Common.Join2String(TempString, "固顶", "、")
End If
If Commended = EL_True Then
StrCondition = StrCondition &"And EL_Photo.Commended="& EL_True &" "
TempString = EL_Common.Join2String(TempString, "推荐", "、")
End If
If ManageType = "Recycled" Then
StrCondition = StrCondition &"And EL_Photo.Deleted="& EL_True &" "
Else
StrCondition = StrCondition &"And EL_Photo.Deleted="& EL_False &" "
End If
If ManageType = "Myself" Then
StrCondition = StrCondition &"And EL_Photo.Inputer='"& EL_Admin.AdminName &"' "
End If
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &"And EL_Photo."& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
Call EL_Common.InitCommand(ManageCmd, "EL_SP_SplitPage")
With ManageCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 20, "EL_Photo,EL_Class")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "EL_Photo.PhotoID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 30, "EL_Photo.PhotoID DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsPhoto = .Execute()
End With
rsPhoto.Close()
RowCount = ManageCmd(0)
TotalRowCount = ManageCmd(9)
PageCounts = ManageCmd(10)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -