📄 admin_art.asp
字号:
</select></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">查看权限：</td>
<td valign="middle">
<input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label>
<span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="0" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="0" size="4">] *游客请保持为 0,只消费<%=moneyName%>，不消费<%=pointName%>。</span> </td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">文章属性：</td>
<td valign="middle">
<input type="checkbox" name="isgood" id="isgood" value="true"><label style="cursor:hand;" for="isgood">设为推荐</label> <input type="checkbox" name="istop" id="istop" value="true"><label style="cursor:hand;" for="istop">置顶文章</label> <input type="checkbox" name="allowPl" id="allowPl" value="true" checked><label for="allowPl" style="cursor:hand;">允许评论</label> <input type="checkbox" name="picart" id="picart" value="1"><label for="picart" style="cursor:hand;">图片文章</label> <span style="color:#3D3D3D;">[说明：选中为有效，如果选定为图片文章，请填上图片地址。]</span></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">图片上传：</td>
<td valign="middle"><iframe height="25" width="100%" scrolling="no" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=article&uptype=pic&urlname=imgurl&content=oblog_Composition" name="upimg"></iframe></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">图片地址：</td>
<td valign="middle"><input name="imgurl" type="text" class="wenbenkang" id="imgurl" size=40></td>
</tr>
<tr class="td_bgcolor">
<td align="right" valign="top">文章内容：</td>
<td valign="top"><input type="hidden" name="content" id="edit"><!--#include file="../editor/edit.asp"--><div style="margin-top:4px;color:#3D3D3D;">换行请按Shift+Enter，直接按Enter为起一段</div></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">分页方式：</td>
<td valign="top">
<input type="radio" name="showpage" id="showp0" value=0 checked><label for="showp0" style="cursor:hand;">不分页</label>
<input type="radio" name="showpage" id="showp1" value=1><label for="showp1" style="cursor:hand;">自动分页</label>
<input type="radio" name="showpage" id="showp2" value=2><label for="showp2" style="cursor:hand;">手动分页</label> [注意：手动方式要在分页处输入：[NextPage] 字符
</td>
</tr>
<tr valign="middle" class="td_titleB">
<td height="25" colspan="2" align="center">
<input type="checkbox" name="pass" id="pass1" value="checkbox" checked><label for="pass1" style="cursor:hand;">通过审核</label>
<input name="addart" type="submit" id="addart" value="发布文章">
</td>
</tr>
</form>
</table>
<%End Sub
Sub editArticle()
if getPopedom("artAdmin")=false then
popedomMsg
exit sub
end if
sql="Select * from ms_art where id="&Request.QueryString("id")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
dim editpath:editpath="../editor/"
%>
<script language="javascript">
function mych(){
submits();
if(document.form.artclass.options[document.form.artclass.selectedIndex].value==""){
alert("请选择所属分类");
return false;
document.form.classes.focus();
}
if(document.form.authors.value==""){
alert("文章作者不能为空!");
document.form.authors.focus();
return false;}
if(document.form.keyword.value==""){
alert("文章关键词不能为空!");
document.form.keyword.focus();
return false;
}
if(document.form.title.value==""){
alert("文章标题不能为空");
document.form.title.focus();
return false;}
if(document.form.content.value==""){
alert("文章内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
var editorpath="../editor/";
</Script>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="text table_border mainTable">
<tr>
<td height="25" colspan="2" valign="middle" class="td_titleT"> 编辑文章</td>
</tr>
<form action="?action=maosin_saveArticle&operate=maosin_mdf" name="form" Method="post" onSubmit="return mych()">
<tr class="td_bgcolor">
<td width="80" height="25" align="right" valign="middle">文章标题：</td>
<td width="*" valign="middle">
<input name="id" type="hidden" value=<%=rs("id")%>>
<input name="title" type="text" class="wenbenkang" id="title" value="<%=rs("art_title")%>" size="40" ondrop="document.form.keyword.value=document.form.title.value;" onpaste="document.form.keyword.value=document.form.title.value;" onkeyup="document.form.keyword.value=document.form.title.value;">
标题颜色：<input name="titlecolor" type="text" class="wenbenkang" value="<%=rs("titlecolor")%>" id="titlecolor" size="10" readonly>
<select name="colorrs" onChange="titlecolor.value=this.value;">
<option value="#000000">选择颜色</option>
<%
colorStr=split(colorRS,",")
for i=0 to ubound(colorStr)
Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>")
next
%>
</select>
</td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">关 键 词：</td>
<td valign="middle"><input name="keyword" value="<%=rs("art_keyword")%>" type="text" class="wenbenkang" size="40" id="keyword"> <font color="#3d3d3d">*多个关键词请用“|”分隔</font></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">文章作者：</td>
<td valign="middle"><input name="authors" type="text" class="wenbenkang" value="<%=rs("art_authors")%>" id="authors"> <select name="name1" onChange="authors.value=this.value;"><option value="">选择作者</option><option value="佚名">佚名</option><option value="不详">不详</option><option value="网络">网络</option><option value="<%=webboss%>"><%=webboss%></option><option value="<%=webname%>"><%=webname%></option></select></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">文章来源：</td>
<td valign="middle"><input name="artfrom" type="text" class="wenbenkang" value="<%=rs("art_from")%>" id="artfrom"> <select name="from1" onChange="artfrom.value=this.value;"><option value="">选择来源</option><option value="转载">转载</option><option value="不详">不详</option><option value="网络">网络</option><option value="原创">原创</option><option value="整理">整理</option><option value="<%=webname%>"><%=webname%></option></select></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">文章分类：</td>
<td valign="middle">
<select name="artclass" id="artclass">
<%sql="select * from ms_art_cat"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.Open sql,connstr,1,1
If Not rs1.Bof And Not rs1.Eof Then
Do While Not rs1.Eof
sql="select * from ms_art_class where catID="&rs1("catID")
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.Open sql,connstr,1,1
If Not rs2.Eof And Not rs2.Bof Then%>
<option style="color:#ff0000;font-weight:bold;">----<%=rs1("catName")%>----</option>
<%Do While Not rs2.Eof
if rs("classID")=rs2("classID") then%>
<option value="<%=rs1("catId")&","&rs2("classID")%>" selected><%=rs2("class")%></option>
<%else%>
<option value="<%=rs1("catId")&","&rs2("classID")%>"><%=rs2("class")%></option>
<%end if
rs2.MoveNext
Loop
rs2.close
Set rs2=Nothing
Else%>
<option>请添加子分类</option>
<%rs2.close
Set rs2=Nothing
End If
rs1.MoveNext
Loop
rs1.close
Set rs1=Nothing
Else%>
<option style="color:#ff0000;font-weight:bold;">----请添加大分类----</option>
<%rs1.close
Set rs1=Nothing
End If
%>
</select></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">查看权限：</td>
<td valign="middle">
<%if Cint(rs("popedom"))=0 then%>
<input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label>
<%elseif Cint(rs("popedom"))=1 then%>
<input type="radio" name="popedom" id="pop0" value=0><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1 checked><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label>
<%elseif Cint(rs("popedom"))=2 then%>
<input type="radio" name="popedom" id="pop0" value=0><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2 checked><label style="cursor:hand;" for="pop2">VIP会员</label>
<%else%>
<input type="radio" name="popedom" id="pop0" value=0 checked><label style="cursor:hand;" for="pop0">游客</label>
<input type="radio" name="popedom" id="pop1" value=1><label style="cursor:hand;" for="pop1">普通会员</label>
<input type="radio" name="popedom" id="pop2" value=2><label style="cursor:hand;" for="pop2">VIP会员</label>
<%end if%>
<span style="color:#3D3D3D;">[需要<%=pointName%><input name="jifen" type="text" class="wenbenkang" value="<%=rs("jifen")%>" size="4">以上 | 消费<%=moneyName%>：<input name="money" type="text" class="wenbenkang" value="<%=rs("money")%>" size="4">] *游客请保持为 0,只消费<%=moneyName%>，不消费<%=pointName%>。</span> </td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">文章属性：</td>
<td valign="middle">
<input type="checkbox" name="isgood" id="isgood" value="true" <%if rs("art_good")=true then response.write("checked") end if%>><label style="cursor:hand;" for="isgood">设为推荐</label> <input type="checkbox" name="istop" id="istop" value="true" <%if rs("art_istop")=true then response.write("checked") end if%>><label style="cursor:hand;" for="istop">置顶文章</label> <input type="checkbox" name="allowPl" id="allowPl" value="true" <%if rs("allow_pl")=true then response.write("checked") end if%>><label for="allowPl" style="cursor:hand;">允许评论</label> <input type="checkbox" name="picart" id="picart" value="1" <%if cint(rs("picart"))=1 then response.write("checked") end if%>><label for="picart" style="cursor:hand;">图片文章</label> <span style="color:#3D3D3D;">[说明：选中为有效，如果选定为图片文章，请填上图片地址。]</span></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">图片上传：</td>
<td valign="middle"><iframe height="25" scrolling="no" width="100%" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=article&uptype=pic&urlname=imgurl&content=oblog_Composition" name="upimg"></iframe></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">图片地址：</td>
<td valign="middle"><input name="imgurl" type="text" class="wenbenkang" id="imgurl" size=30 value=<%=rs("art_imgurl")%>></td>
</tr>
<tr class="td_bgcolor">
<td align="right" valign="top">文章内容：</td>
<td valign="top"><input type="hidden" name="content" id="edit" value="<%=server.HTMLENCode(rs("art_content"))%>"><!--#include file="../editor/edit.asp"--><div style="margin-top:4px;color:#3D3D3D;">换行请按Shift+Enter，直接按Enter为起一段</div></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">分页方式：</td>
<td valign="top">
<%if rs("showpage")=0 then%>
<input type="radio" name="showpage" id="sp0" value=0 checked><label for="">不分页</label>
<input type="radio" name="showpage" id="sp1" value=1><label for="sp1">自动分页</label>
<input type="radio" name="showpage" id="sp2" value=2><label for="sp2">手动分页</label>
<%elseif rs("showpage")=1 then%>
<input type="radio" name="showpage" id="sp0" value=0><label for="sp0">不分页</label>
<input type="radio" name="showpage" id="sp1" value=1 checked><label for="sp1">自动分页</label>
<input type="radio" name="showpage" id="sp2" value=2><label for="sp2">手动分页</label>
<%else%>
<input type="radio" name="showpage" id="sp0" value=0><label for="sp0">不分页</label>
<input type="radio" name="showpage" id="sp1" value=1><label for="sp1">自动分页</label>
<input type="radio" name="showpage" id="sp2" value=2 checked><label for="sp2">手动分页</label>
<%end if%>
[注意：手动方式要在分页处输入：[NextPage] 字符
</td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">奖励发布：</td>
<td valign="middle"><%=pointName%>：<input type="input" class="wenbenkang" name="sendOutPoint" value="0" size="15"> <%=pointUnits%> <span>共累计奖励该发布者 <%=rs("sendOutPoint")%> <%=pointUnits%></span></td>
</tr>
<tr class="td_bgcolor">
<td height="25" align="right" valign="middle">审核：</td>
<td valign="middle"><input type="checkbox" name="pass" id="pass1" value="checkbox" <%if rs("pass")=true then response.write("checked") end if%>><label for="pass1" style="cursor:hand;">通过审核</label></td>
</tr>
<tr valign="middle" class="td_titleB">
<td height="25" colspan="2" align="center">
<input type="submit" name="modifyart" value="保存修改"> </td>
</tr>
</form>
</table>
<%
rs.close
set rs=Nothing
End Sub
Sub deletearticle()
if getPopedom("artAdmin")=false then
popedomMsg
exit sub
end if
sql="delete from ms_art where id="&Request.QueryString("id")
conn.Execute(sql)
adminShowMsg "成功信息","<li>恭喜您,文章操作删除成功！</li><br><br><span id=seNum>5</span><a href=javascript：showtime></a>秒钟后系统将自动返回新闻管理页......</b><meta http-equiv=refresh content=5;url=admin_art.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(5);</script>"
exit sub
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -