📄 admin_photo.asp
字号:
if isnull(MaxTID) or Not IsNumeric(MaxTID) then MaxTID=0
InfoID=MaxTID+1
sql="select Top 1 * from Cl_Photo"
OpenConn : rs.open sql,Conn,1,3
rs.addnew
rs("InfoID")=InfoID
rs("ChannelID")=ChannelID
call SaveData()
rs("Editor")=Editor
rs.update
elseif Action="SaveModify" then
if InfoID=0 then
Cl.ShowErr("<br /><li>不能确定InfoID的值</li>")
else
sql="select * from Cl_Photo where InfoID=" & InfoID
OpenConn : rs.open sql,Conn,1,3
if rs.bof and rs.eof then
rs.close : set rs=Nothing
Cl.ShowErr("<br /><li>找不到此图片，可能已经被其他人删除。</li>")
else
Editor = Rs("Editor")
if rs("Status")=1 then
Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "-"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "-1 where " & Db.UserName & "='" & Editor & "'")
end if
call SaveData()
rs.update
end if
end if
elseif Action="SaveAddMore" then
SaveAddMore : Exit Sub
else
Cl.ShowErr("<br /><li>参数错误!</li>")
end if
rs.close : set rs=Nothing
Cl.ChkUploadFile InfoID,PicUrl & PhotoUrl & Intro,UploadFiles
Cl.SaveAdminLog
Rem 用Cookies保存用户最后录入的资料信息
Response.Cookies("Photo")("ClassID") = ClassID
Response.Cookies("Photo")("SpecialID") = SpecialID
Response.Cookies("Photo")("Prefixion") = Prefixion
Response.Cookies("Photo")("FontColor") = FontColor
Response.Cookies("Photo")("FontType") = FontType
Response.Cookies("Photo")("Keyword") = Keyword
Response.Cookies("Photo")("InfoGroup") = InfoGroup
Response.Cookies("Photo")("InfoPoint") = InfoPoint
Response.Cookies("Photo")("InfoMoney") = InfoMoney
Response.Cookies("Photo")("BackPoint") = BackPoint
Response.Cookies("Photo")("BackPointRate")= BackPointRate
Response.Cookies("Photo")("BackMoney") = BackMoney
Response.Cookies("Photo")("BackMoneyRate")= BackMoneyRate
Response.Cookies("Photo")("Author") = Author
Response.Cookies("Photo")("AuthorEmail")= AuthorEmail
Response.Cookies("Photo")("AuthorHomepage")= AuthorHomepage
Rem End
SaveSuccess
End Sub
Sub SaveData()
rs("ChannelDir") = Cl.Channel.selectSingleNode("@channeldir").text
rs("ClassID") = ClassID
rs("SpecialID") = SpecialID
rs("PhotoName") = PhotoName
rs("FontColor") = FontColor
rs("FontType") = FontType
rs("Keyword") = Keyword
rs("Author") = Author
rs("AuthorEmail") = AuthorEmail
rs("AuthorHomepage")= AuthorHomepage
rs("PicUrl") = PicUrl
rs("PhotoUrl") = PhotoUrl
'rs("PhotoSize") = PhotoSize
rs("Intro") = Intro
rs("Hits") = Hits
rs("DayHits") = DayHits
rs("WeekHits") = WeekHits
rs("MonthHits") = MonthHits
rs("InfoGroup") = InfoGroup
rs("InfoPoint") = InfoPoint
rs("InfoMoney") = InfoMoney
rs("Stars") = Stars
rs("UpdateTime") = UpdateTime
rs("OnTop") = OnTop
rs("Hot") = Hot
rs("Elite") = Elite
rs("IsDownLoad") = IsDownLoad
rs("DownLoadNum") = 0
rs("UploadFiles") = UploadFiles
rs("BackPoint") = BackPoint
rs("BackPointRate") = BackPointRate
rs("BackMoney") = BackMoney
rs("BackMoneyRate") = BackMoneyRate
if Passed=True then
rs("Status") = 1
rs("Censor") = Cl.MemberName
rs("CensorTime")= Date()
Cl.Execute_U("update " & Db.UserTable & " set " & Db.UserPoint & "=" & Db.UserPoint & "+"&sAddPoint&"," & Db.DataCount & "=" & Db.DataCount & "+1 where " & Db.UserName & "='" & Editor & "'")
else
rs("Status") = 1
end If
rs("Deleted") = False
rs("ProjectID") = ProjectID
rs("TemplateID") = TemplateID
rs("CssID") = CssID
Rem 自定义字段By GDW
Call SaveField(ChannelID,3)
End Sub
Sub SaveSuccess()
%>
<br /><br />
<!--<meta http-equiv="refresh" content="3;url=javascript:history.go(-2);" />-->
<table class="border" align="center" border="0" cellpadding="0" cellspacing="1" style="width:600px;">
<tr class="title">
<td height="22" align="left" colspan="3"> <b>恭喜您，操作成功，请选择快速连接返回！</b></td>
</tr>
<tr class="tdbg">
<td width="30%" align="center">
<%If PicUrl="" then%>
<img src="../Images/NoPic.gif" border="0" width="160" />
<%else%>
<img src="<%=Cl.ReplaceDir(PicUrl)%>" border="0" width="160" />
<%End if%>
</td>
<td width="45%" valign="top">
<br />
<font color="#0000FF">友情提示：</font><br />
<%If Passed Then
Dim TUrl
TUrl = InstallDir & Cl.Channel.selectSingleNode("@channeldir").text & "/ShowInfo.asp?InfoID=" & InfoID
%>
您的<%=Cl.ChannelItemName%>已经正式发布，您可点击以下地址查看：<a href="<%=TUrl%>" target="_blank"><%=TUrl%></a>。
<%else%>
您的<%=Cl.ChannelItemName%>尚未正式发布，已经提交给管理员进行审核，请耐心等待！
<%End if%>
</td>
<td width="25%" align="left" valign="top">
<br />
<font color="#0000FF">快速连接：</font>
<ol>
<li><a href="Admin_Photo.asp?Action=Add&ChannelID=<%=ChannelID%>" class="red b">添加新的<%=Cl.ChannelItemName%></a></li><br />
<li><a href="Admin_Photo.asp?Action=Modify&ChannelID=<%=ChannelID%>&InfoID=<%=InfoID%>" class="b">修改当前<%=Cl.ChannelItemName%></a></li><br />
<li><a href="Admin_Photo.asp?ChannelID=<%=ChannelID%>&Action=Check" class="b">转到待审<%=Cl.ChannelItemName%></a></li><br />
<li><a href="Admin_Photo.asp?ChannelID=<%=ChannelID%>" class="b">转到<%=Cl.ChannelItemName%>管理</a></li>
<li><a href="javascript:history.go(-2);" class="blue b">返回到上一步</a></li>
</ol>
</td>
</tr>
</table>
<%
if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 and Passed and NowCreate="yes" then
Dim sCreate
if CBool(Cl.Channel.selectSingleNode("@iscreatelist").text) and CBool(Cl.Channel.selectSingleNode("@autocreatelist").text) then
sCreate="CreateInfo,CreateClass,CreateUpDate,CreateElite,CreateIndex,CreateWebIndex"
if SpecialID<>"0" then sCreate=sCreate&",CreateSpecial"
else
sCreate="CreateInfo,CreateIndex,CreateWebIndex"
end if
%>
<br /><br />
<iframe width="100%" height="220" frameborder="0" src="Admin_Create_Photo.asp?ChannelID=<%=ChannelID%>&Action=<%=sCreate%>&InfoID=<%=InfoID%>&ClassID=<%=ClassID%>&SpecialID=<%=SpecialID%>" name="Make"></iframe>
<%
end if
End Sub
Sub AddMoreMain()
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
dim strCusTom
Dim sKeyword,sAuthor
strCusTom = Split(Cl.Channel.selectSingleNode("@custom").text,"@@@")
sKeyword = Split(strCusTom(0),"$")
sAuthor = Split(strCusTom(1),"$")
%>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
if (document.myform.ClassID.value=="0")
{
alert("<%=Cl.ChannelItemName%>所属栏目为外部栏目或您无此栏目添加权限！");
document.myform.ClassID.focus();
return false;
}
if (document.myform.PhotoName.value=="")
{
alert("<%=Cl.ChannelItemName%>名称不能为空！");
document.myform.PhotoName.focus();
return false;
}
if (document.myform.Keyword.value=="")
{
alert("关键字不能为空！");
document.myform.Keyword.focus();
return false;
}
if (document.myform.PicUrl.value=="")
{
alert("缩略图地址不能为空！");
document.myform.PicUrl.focus();
return false;
}
return true;
}
</script>
<form name="chkform" action="../User/User_ChkInfo.asp" method="post" target="_blank">
<input type="hidden" name="TitleName" value="">
<input type="hidden" name="ChannelID" value="<%=ChannelID%>">
</form>
<form method="POST" name="myform" onSubmit="return CheckForm();" action="Admin_Photo.asp" target="_self">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td height="22" align="center" class="title" colspan="3"><strong>添加<%=Cl.ChannelItemName%></strong></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>
<%=ShowClass_Option(ChannelID,ClassID,0,1)%>
</select>
<font color="#FF0000"><strong>注意：</strong></font><font color="#0000FF">不能指定为外部栏目</font>
<input type="checkbox" id="IsShowSpecial" onclick="chkShowSpecial();"> 指定专题
</td>
</tr>
<tr class="tdbg" style="display:none;" id="ShowSpecial">
<td width="100" align="right"><strong>所属专题：</strong></td>
<td colspan="2">
<select name="SpecialID" id="SpecialID" multiple style="height:90px;width:200px;">
<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
</select>  
<font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>名称：</strong></td>
<td colspan="2"><input name="PhotoName" type="text" id="PhotoName" value="" size="80" maxlength="255">
<font color="#FF6600">*</font></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong>关 键 字：</strong></td>
<td colspan="2"><input name="Keyword" type="text" id="Keyword" size="80" maxlength="255" Value="<%=sKeyword(0)%>"> <font color="#FF6600">*</font> <a onclick="SelectCustom('Keyword',<%=ChannelID%>,0,1)" style="cursor:hand;"><font color="#66666">Select...</font></a><br />
<font color="#0066cc">用来查找相关<%=Cl.ChannelItemName%>，可输入多个关键字，中间用<font color="#FF6600">“|”</font>隔开。不能出现""'*?,.()等字符。</font></td>
</tr>
<tr class="tdbg"<%=CheckUse("1",Cl.Channel.selectSingleNode("@disableitem").text)%>>
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>作者：</strong></td>
<td colspan="2"><strong>姓名：</strong><input name="Author" type="text" id="Author" size="30" maxlength="100" value="<%=sAuthor(0)%>"> <a onclick="SelectCustom('Author',<%=ChannelID%>,1,0)" style="cursor:hand;"><font color="#66666">Select...</font></a>
<strong>信箱：</strong><input name="AuthorEmail" type="text" id="AuthorEmail" size="32" maxlength="100"><br />
<strong>主页：</strong><input name="AuthorHomepage" type="text" id="AuthorHomepage" value="http://" size="74" maxlength="100"></td>
</tr>
<%=ShowField("Add",0,3)%>
<tr class="tdbg">
<td width="100" align="right"><strong>缩 略 图：</strong></td>
<td colspan="2"><input name="PicUrl" type="text" id="PicUrl" size="50" maxlength="200" value='{$uploaddir}PhotoPic/<%=year(now) & "-" & month(now)&"/(*).jpg"%>'> 通配符为"(*)" 通配符长度：<SELECT NAME="NumLen" id="NumLen">
<%
dim tmp
for tmp=1 to 6
response.write "<option value='"&tmp&"'>"&tmp&"</option>"
next%>
</SELECT></td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>地址：</strong></td>
<td colspan="2"><input type="text" name="PhotoUrls" size="50" value='<%="图片地址|{$uploaddir}Photo/" & year(now) & "-" & month(now)&"/(*).jpg"%>'>
开始ID：<input type='text' name='BeginID' value='1' size='6' maxlength='6' style='text-align:center'> 结束ID：<input type='text' name='EndID' value='99' size='6' maxlength='6' style='text-align:center'>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right" valign="middle"><strong><%=Cl.ChannelItemName%>简介：</strong></td>
<td colspan="2"><textarea name="Intro" style="display:none"></textarea>
<IFRAME ID="editor" src="../Editor/Editor.asp?id=Intro&style=other&cid=<%=ChannelID%>" frameborder="0" scrolling="no" width="95%" height="350"></IFRAME>
</td>
</tr>
<tr class="tdbg">
<td width="100" align="right"><strong><%=Cl.ChannelItemName%>属性：</strong></td>
<td colspan="2"> <input name="OnTop" type="checkbox" id="OnTop" value="yes">
固顶<%=Cl.ChannelItemName%> <input name="Hot" type="checkbox" id="Hot" value="yes" onclick="javascript:document.myform.Hits.value=<%=Clng(Cl.Web_Setting(14))%>">
热门<%=Cl.ChannelI⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -