📄 admin_photo.asp
字号:
.Parameters.Append .CreateParameter("@PhotoID", 3, 2, 4)
Else
.Parameters.Append .CreateParameter("@PhotoID", 3, 1, 4, PhotoID)
End If
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
.Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, ClassID)
.Parameters.Append .CreateParameter("@PhotoName", 200, 1, 100, PhotoName)
.Parameters.Append .CreateParameter("@Keywords", 200, 1, 255, Keywords)
.Parameters.Append .CreateParameter("@Author", 200, 1, 50, Author)
.Parameters.Append .CreateParameter("@Copyfrom", 200, 1, 50, Copyfrom)
.Parameters.Append .CreateParameter("@Content", 203, 1, EL_Common.LenParameter(Content), Content)
.Parameters.Append .CreateParameter("@DefaultPictrue", 200, 1, 255, DefaultPictrue)
.Parameters.Append .CreateParameter("@Uploadfiles", 203, 1, EL_Common.LenParameter(Uploadfiles), Uploadfiles)
.Parameters.Append .CreateParameter("@Hits", 3, 1, 4, Hits)
.Parameters.Append .CreateParameter("@OnTop", 11, 1, 1, OnTop)
.Parameters.Append .CreateParameter("@Commended", 11, 1, 1, Commended)
.Parameters.Append .CreateParameter("@Passed", 11, 1, 1, Passed)
.Parameters.Append .CreateParameter("@UpdateTime", 135, 1, 8, UpdateTime)
.Parameters.Append .CreateParameter("@SkinID", 3, 1, 4, SkinID)
.Parameters.Append .CreateParameter("@TemplateID", 3, 1, 4, TemplateID)
.Parameters.Append .CreateParameter("@Inputer", 200, 1, 50, Inputer)
.Parameters.Append .CreateParameter("@Editor", 200, 1, 50, Editor)
.Parameters.Append .CreateParameter("@DefineField", 200, 1, 4000, DefineField)
.Parameters.Append .CreateParameter("@ClassName", 200, 2, 50)
.Execute()
End With
Select Case PhotoCmd(0)
Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set PhotoCmd = Nothing : Exit Sub
Case 41: EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在") : Set PhotoCmd = Nothing : Exit Sub
Case 43: EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"ID："& PhotoID &" 不存在") : Set PhotoCmd = Nothing : Exit Sub
Case 42: EL_Common.ShowErrorMsg("不允许在有子"& EL_Channel.ClassItemName &"的"& EL_Channel.ClassItemName &"中添加"& EL_Channel.ItemName) : Set PhotoCmd = Nothing : Exit Sub
Case 44: EL_Common.ShowErrorMsg("未指定目标"& EL_Channel.ClassItemName) : Set PhotoCmd = Nothing : Exit Sub
End Select
Dim RetMessage
Select Case UpdateType
Case 0:
PhotoID = PhotoCmd(2)
RetMessage = "添加"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"名称："& EL_Common.HTMLEncode(PhotoName)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& PhotoCmd(22)
RetMessage = RetMessage &"<p algin=center><a href='Admin_Photo.asp?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&PhotoID="& PhotoID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Show&ChannelID="& EL_Channel.ChannelID &"&PhotoID="& PhotoID &"'>【浏览"& EL_Channel.ItemName &"】</a></p>"
Set PhotoCmd = Nothing
Case 1:
RetMessage = "修改"& EL_Channel.ItemName &"成功<br>"& EL_Channel.ItemName &"名称："& EL_Common.HTMLEncode(PhotoName)
RetMessage = RetMessage &"<br>所属"& EL_Channel.ClassItemName &"："& PhotoCmd(22)
RetMessage = RetMessage &"<p algin=center><a href='Admin_Photo.asp?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【管理"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Modify&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"&PhotoID="& PhotoID &"'>【修改"& EL_Channel.ItemName &"内容】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Add&ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID &"'>【添加新的"& EL_Channel.ItemName &"】</a>"
RetMessage = RetMessage &"<a href='Admin_Photo.asp?Action=Show&ChannelID="& EL_Channel.ChannelID &"&PhotoID="& PhotoID &"'>【浏览"& EL_Channel.ItemName &"】</a></p>"
Set PhotoCmd = Nothing
Case 2, 3, 4, 5, 6, 7, 9, 10, 11:
Set PhotoCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect ComeURL
Case 8:
Set PhotoCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID &"&ClassID="& ClassID
Case Else:
Set PhotoCmd = Nothing
EL_Common.ShowScriptError()
Response.Redirect EL_CurrentScriptName &"?ChannelID="& EL_Channel.ChannelID
End Select
EL_Common.ShowSuccessMsg(RetMessage)
EL_Common.ShowScriptError()
End Sub
Sub BatchSetup()
On Error Resume Next
Dim ArrPhotoID
ArrPhotoID = EL_Common.ELRequest("CheckObject", 1)
%>
<script language="javascript">
function Check(frm){
if(frm.SetupType[0].checked){
if(frm.ArrPhotoID.value.trim() == ""){
alert("请输入指定<%=EL_Channel.ItemName%>ID");
frm.ArrPhotoID.focus();
return false;
}
}else{
if(frm.ArrClassID.value.trim() == "" || frm.ArrClassID.selectedIndex == -1){
alert("请选择指定<%=EL_Channel.ClassItemName%>");
frm.ArrClassID.focus();
return false;
}
}
var check = false;
for(var i=0;i<frm.SetItems.length;i++){
if(frm.SetItems[i].checked){
check = true;
break;
}
}
if(!check){
alert("请至少选择一个项目");
frm.SetItems[0].focus();
return false;
}
if(frm.SetItems[2].checked){
if(frm.Keywords.value.trim() == ""){
alert("请输入关键字");
frm.Keywords.focus();
return false;
}
}
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 width="100%" class="top_25"><strong>批量<%=EL_Channel.ItemName%>设置</strong></td>
</tr>
<tr>
<td class="td_50"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="25%" align="center" valign="top" class="td_ItemName"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td nowrap><input name="SetupType" type="radio" class="nomargin" value="0" checked>
<strong>指定<%=EL_Channel.ItemName%>ID</strong>(用英文","逗号分隔)</td>
</tr>
<tr>
<td><input name="ArrPhotoID" type="text" id="ArrPhotoID" size="31" value="<%=ArrPhotoID%>"></td>
</tr>
<tr>
<td><input name="SetupType" type="radio" class="nomargin" value="1">
<strong>指定<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td><select name="ArrClassID" size="20" multiple id="ArrClassID" style="width:200px; height:200px;">
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
</select> </td>
</tr>
<tr>
<td>·按"Ctrl"键可多选</td>
</tr>
</table></td>
<td width="75%" valign="top" class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="6%" align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="0"></td>
<td width="17%" nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>作者</strong></td>
<td width="77%" class="td_25"><input name="Author" type="text" id="Author" value="未知" 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 align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="1"></td>
<td nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>来源</strong></td>
<td class="td_25"><input name="Copyfrom" type="text" id="Copyfrom" value="未知" 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 align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="2"></td>
<td nowrap class="td_ItemName"><strong>关键字</strong><br>多个关键用“|”分隔</td>
<td class="td_25"><input name="Keywords" type="text" id="Keywords" size="60"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="3"></td>
<td nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>属性</strong></td>
<td class="td_25"><input name="OnTop" type="checkbox" class="nomargin" id="OnTop" value="<%=EL_True%>">
固顶 </td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="4"></td>
<td nowrap class="td_ItemName"><strong><%=EL_Channel.ItemName%>属性</strong></td>
<td class="td_25"><input name="Commended" type="checkbox" class="nomargin" id="Commended" value="<%=EL_True%>">
推荐</td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="5"></td>
<td nowrap class="td_ItemName"><strong>初始点击数</strong></td>
<td class="td_25"><input name="Hits" type="text" id="Hits" value="0" size="5"></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="6"></td>
<td nowrap class="td_ItemName"><strong>配色风格</strong></td>
<td class="td_25"><select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(-1)%>
</select></td>
</tr>
<tr>
<td align="center" nowrap class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="7"></td>
<td nowrap class="td_ItemName"><strong>页面模板</strong></td>
<td class="td_25"><select name="TemplateID" id="TemplateID">
<option value="0">使用系统默认</option>
<%=EL_Common.TemplateList(EL_Channel.ChannelID, 3, -1)%>
</select></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" class="td_50"><input type="submit" name="Submit4" value="保存设置">
<input type="button" name="Submit5" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveBatch">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub ShowPhoto()
On Error Resume Next
Dim PhotoCmd, rsPhoto, PhotoID
PhotoID = EL_Common.ELRequest("PhotoID", 2)
Call EL_Common.InitCommonCmd(PhotoCmd, rsPhoto, "EL_Photo", "*", "ChannelID="& EL_Channel.ChannelID &" AND PhotoID="& PhotoID)
rsPhoto.Close()
If PhotoCmd(0) <> 1 Then
Set rsPhoto = Nothing
Set PhotoCmd = Nothing
EL_Common.ShowErrorMsg("指定"& EL_Channel.ItemName &"不存在")
Exit Sub
End If
rsPhoto.Open()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="5" class="top_25"><strong>浏览<%=EL_Channel.ItemName%></strong></td>
</tr>
<tr>
<td width="17%" class="td_ItemName"><strong><%=EL_Channel.ItemName%>名称</strong></td>
<td colspan="3" class="td_25" style="padding-left:5px;"><%=EL_Common.HTMLEncode(rsPhoto("PhotoName"))%></td>
<td width="25%" align="center" class="td_ItemName"><strong>默认缩略图</strong></td>
</tr>
<tr>
<td class="td_ItemName"><strong>关键字</strong></td>
<td colspan="3" class="td_25" style="padding-left:5px;"><%=rsPhoto("Keywords")%></td>
<td rowspan="5" align="center" class="td_25" valign="top">
<fieldset style="width:100%; height:90%; text-align:center; vertical-align:middle;">
<img src="<%=EL_Common.PictrueURL(rsPhoto("DefaultPictrue"), EL_Channel.FilePath)%>" width="140" height="100" border="0" onClick="window.open(this.src)" style="cursor:hand; padding:5px;">
</fieldset> </td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>作者</strong></td>
<td colspan="3" class="td_25" style="padding-left:5px;"><%=EL_Common.HTMLEncode(rsPhoto("Author"))%></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ItemName%>来源</strong></td>
<td colspan="3" class="td_25" style="padding-left:5px;"><%=EL_Common.HTMLEncode(rsPhoto("Copyfrom"))%></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -