admin_art.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

  rs.close
  set rs=nothing
  response.redirect "admin_art.asp?action=cat"
end if
'================hx66..com..cn===============
if request.QueryString("action")="newart" then%>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
	img.style.display = "";
	advance.innerText="取消图片文章"
}else{
	img.style.display = "none";
	advance.innerText="设为图片文章"
}
}
//-->
</script>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="5" class=Hxcmsbk style="border-collapse: collapse">
        <form name="addnews" method="post" action="">
          <tr> 
            <td class=Hxcmsss colspan=3>新增文章</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">所属分类：</td>
            <td class=Hxcmsds>
              <select name="cat_id">
                <%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%></select></td>
          <td class=Hxcmsds>*选择分类</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章标题：</td>
            <td class=Hxcmsds><input type="text" name="art_title" size="50"> 
            <td class=Hxcmsds>*填写文章标题，小于50字符（25个汉字）</td>
            </td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章作者：</td>
            <td class=Hxcmsds>
              <input name="art_author" type="text" id="writer" size="20" style="width:150px">&nbsp;<button onClick="writer.value='佚名'" class=button>佚名</button>&nbsp;<button onClick="writer.value='网络'" class=button>网络</button>&nbsp;<button onClick="writer.value='<%=webceo%>'" class=button><%=webceo%></button></td>
            <td class=Hxcmsds>填写文章作者</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章来源：</td>
            <td class=Hxcmsds>
              <input name="art_ahome" type="text" id="writer1" size="20" style="width:150px">&nbsp;<button onClick="writer1.value='网络转摘'" class=button>网络转摘</button>&nbsp;<button onClick="writer1.value='本站原创'" class=button>本站原创</button>&nbsp;<button onClick="writer1.value='<%=webname%>'" class=button><%=webname%></button></td>
            <td class=Hxcmsds>填写文章来源</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章录入：</td>
            <td class=Hxcmsds><input type="text" name="tjuser" size="20" style="width:150px" value="<%=Session("hxStudioAdminName")%>"></td>
            <td class=Hxcmsds>填写文章录入人</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章关键字：</td>
            <td class=Hxcmsds><input type="text" name="art_keyword" size="20" style="width:150px"></td>
            <td class=Hxcmsds>*查找相关文章，多个关键字间用“|”隔开</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">图片文章：</td>
            <td class=Hxcmsds><input type="checkbox" name="hx66" value="1" onClick=showimg()> <span id=advance>设为图片文章</span></td>
            <td class=Hxcmsds>勾选上为图片文章</td>
          </tr>
            <tr>
          <td colspan=3>
      <table width="100%" border="1" align="seft" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" id="img" style="display: none">
          <tr class=Hxcmsds> 
            <td width="15%" align="right">缩略图片地址：</td>
            <td width="50%"><input type="text" name="images" size="40" value=""></td>
            <td width="35%">如为空，将显无图片。此图片地址<=50字符</td>
          </tr>
          <tr class=Hxcmsds> 
           <td align="right">图片显在内容：</td>
           <td align="left"><input type="checkbox" name="hx6666" value="1"></td>
           <td width="20%">缩略图片是否在内容里显示，勾选上为是。</td>
         </tr>
          <tr class=Hxcmsds> 
           <td align="right">缩略图片上传：</td>
           <td align="left" height="25" colspan=2><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
         </tr>
        </table>
            </td>
          </tr>          
          <tr> 
            <td class=Hxcmsds align="right">文章内容：</td>
            <td class=Hxcmsds colspan=2><textarea cols="85" name="art_content" rows="20" class="textarea" style="display:none"></textarea>
              <IFRAME ID="eWebEditor1" SRC="eWebEditor/eWebEditor.asp?id=art_content&style=hxcms" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="320"></IFRAME></td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">分页方式：</td>
            <td class=Hxcmsds><input name="PaginationType" type="radio" value="0" checked>&nbsp;不分页&nbsp;<input name="PaginationType" type="radio" value="1" >&nbsp;自动分页&nbsp;<input name="PaginationType" type="radio" value="2">&nbsp;手动分页</td>
            <td class=Hxcmsds>手动方式要在分页的地方输入：  [NextPage] </td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">分页字数：</td>
            <td class=Hxcmsds><input type="text" name="MaxCharPerPage" size="10" style="width:80px" value="10000"> 字</td>
            <td class=Hxcmsds>选自动分页时的每页字数，应添整数数字</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">文章属性：</td>
            <td class=Hxcmsds><input type="checkbox" name="istop" value="1">
              置顶文章&nbsp;&nbsp;&nbsp;<input type="checkbox" name="isbest" value="1">
              推荐文章</td>
            <td class=Hxcmsds>选择文章的一些属性</td>
          </tr>
          <tr> 
            <td class=Hxcmsds align="right">阅读权限：</td>
            <td class=Hxcmsds>
        <select name="Grade" id="Grade">
          <option value="0" selected>游客可读</option>
          <option value="1">普通用户</option>
          <option value="2">VIP 用户</option>
        </select>&nbsp;&nbsp;阅读积分：<input type="text" name="points" size="10" style="width:80px" value=""></td>
            <td class=Hxcmsds> (应添整数数字)游客可读，请留空</td>
          </tr>
          <tr> 
            <td bgcolor="#E8E8E8" height="30" align="center" colspan=3>
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重写" class="button">
              [<a href="admin_art.asp">返回分类管理</a>] </td>
          </tr>
		  <input type="hidden" name="action" value="newart">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
        <tr> 
            <td class=Hxcmsds align="right" colspan=3>版权所有：<a href="http://hx66.com.cn" target=_blank>花香盈路 ver7.6</a></td>
        </tr>
      </table>
<%end if
'================hx66..com..cn===============
if request.QueryString("action")="editart" then
if request.querystring("art_id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("art_id")) then
  Response.Write("<script language=javascript>alert('非法的新闻ID参数！');history.back(1);</script>")
  response.end
  end if
end if
if request.querystring("cat_id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("cat_id")) then
  Response.Write("<script language=javascript>alert('非法的文章ID参数！');history.back(1);</script>")
  response.end
  end if
end if
sql="select * from art where art_id="&clng(request.querystring("art_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if Check_Admin(rs("tjuser")) then
   Response.Write("<script language=javascript>alert('你没有权限编辑其它管理员的文章！');history.back(1);</script>")
   response.end
end if
%>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
	img.style.display = "";
	advance.innerText="取消图片文章"
}else{
	img.style.display = "none";
	advance.innerText="设为图片文章"
}
}
//-->
</script>
      <table width="98%" align="center" border="1" cellspacing="0" cellpadding="5" class=Hxcmsbk style="border-collapse: collapse">
        <form name="addnews" method="post" action="">
          <tr> 
            <td class=Hxcmsss colspan=3>修改文章</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>所属分类：</td> 
            <td class=Hxcmsds><select name="cat_id" id="cat_id">
                <%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("cat_id")%>"<%if rs2("cat_id")=rs("cat_id") then response.write "selected" end if%>>├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%></select></td>
            <td class=Hxcmsds>*选择分类</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章标题：</td>
            <td class=Hxcmsds> <input name="art_title" type="text" id="art_title" size="50" value="<%=rs("art_title")%>"></td>
            <td class=Hxcmsds>*填写文章标题，小于50字符（25个汉字）</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章作者：</td>
            <td class=Hxcmsds>
              <input name="art_author" type="text" id="writer" size="20" style="width:150px" value="<%=rs("art_author")%>">&nbsp;<button onClick="writer.value='佚名'" class=button>佚名</button>&nbsp;<button onClick="writer.value='网络'" class=button>网络</button>&nbsp;<button onClick="writer.value='<%=webceo%>'" class=button><%=webceo%></button></td>
            <td class=Hxcmsds>填写文章作者</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章来源：</td>
            <td class=Hxcmsds>
              <input name="art_ahome" type="text" id="writer1" size="20" style="width:150px" value="<%=rs("art_ahome")%>">&nbsp;<button onClick="writer1.value='网络转摘'" class=button>网络转摘</button>&nbsp;<button onClick="writer1.value='本站原创'" class=button>本站原创</button>&nbsp;<button onClick="writer1.value='<%=webname%>'" class=button><%=webname%></button>
            </td>
            <td class=Hxcmsds>填写文章来源</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章录入：</td>
            <td class=Hxcmsds><input type="text" name="tjuser" size="10" style="width:150px" value="<%=rs("tjuser")%>">
            </td>
            <td class=Hxcmsds>填写文章录入人</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章关键字：</td> 
            <td class=Hxcmsds><input type="text" name="art_keyword" size="20" style="width:150px" id="art_keyword" value="<%=rs("art_keyword")%>"></td>
            <td class=Hxcmsds>*查找相关文章，多个关键字间用“|”隔开</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>图片文章：</td> 
            <td class=Hxcmsds><input name="hx66" type="checkbox"  id="hx66" value="1" <%if rs("isimg")=1 then response.write "checked" end if%> onClick=showimg()> <span id=advance>图片文章</span></td>
            <td class=Hxcmsds>勾选上为图片文章</td>
          </tr>
            <tr>
          <td colspan=3>
      <table width="100%" border="1" align="seft" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" id="img" style="display: none">
          <tr class=Hxcmsds> 
            <td width="15%" align="right">缩略图片地址：</td>
            <td width="50%"><input type="text" name="images" size="40" value="<%=rs("images")%>"></td>
            <td width="35%">如为空，将显无图片。此图片地址<=50字符</td>
          </tr>
          <tr class=Hxcmsds> 
           <td align="right">图片显在内容：</td>
           <td align="left"><input type="checkbox" name="hx6666" value="1" <%if rs("imgyes")=1 then response.write "checked" end if%>></td>
           <td width="20%">缩略图片是否在内容里显示，勾选上为是。</td>
         </tr>
          <tr class=Hxcmsds> 
           <td align="right">缩略图片上传：</td>
           <td align="left" height="25" colspan=2><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
         </tr>
        </table>
            </td>
          </tr>          
          <tr> 
            <td class=Hxcmsds>文章内容：</td>
            <td class=Hxcmsds colspan=2>
            <textarea name="art_content" style="display:none"><%=Server.HtmlEncode(rs("art_content"))%></textarea>
             <IFRAME ID="eWebEditor1" SRC="eWebEditor/eWebEditor.asp?id=art_content&style=hxcms" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="320"></IFRAME>
            </td>
          </tr>
          <tr> 
            <td class=Hxcmsds>分页方式：</td>
            <td class=Hxcmsds><input name="PaginationType" type="radio" value="0" <%if rs("PaginationType")="0" then response.write "checked" end if%>>&nbsp;不分页&nbsp;<input name="PaginationType" type="radio" value="1" <%if rs("PaginationType")="1" then response.write "checked" end if%>>&nbsp;自动分页&nbsp;<input name="PaginationType" type="radio" value="2" <%if rs("PaginationType")="2" then response.write "checked" end if%>>手动分页</td>
            <td class=Hxcmsds>手动方式要在分页的地方输入：  [NextPage]  </td>
          </tr>
          <tr> 
            <td class=Hxcmsds>分页字数：</td>
            <td class=Hxcmsds><input type="text" name="MaxCharPerPage" size="10" style="width:80px" value="<%=rs("MaxCharPerPage")%>"></td>
            <td class=Hxcmsds>选自动分页时的每页字数，应添整数数字</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>文章属性：</td>
            <td class=Hxcmsds><input name="istop" type="checkbox"  id="istop" value="1" <%if rs("istop")=1 then response.write "checked" end if%>>
              置顶&nbsp;&nbsp;&nbsp; <input name="isbest" type="checkbox"  id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              推荐</td>
            <td class=Hxcmsds>选择文章的一些属性</td>
          </tr>
          <tr> 
            <td class=Hxcmsds>阅读权限：</td>
            <td class=Hxcmsds>
        <select name="Grade" id="Grade">
        <option value="0" <%if rs("Grade")="0" then response.write "selected" end if%>>游客可读</option>
        <option value="1" <%if rs("Grade")="1" then response.write "selected" end if%>>普通用户</option>
        <option value="2" <%if rs("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
        </select>&nbsp;&nbsp;  阅读积分：<input type="text" name="points" size="8" value="<%=rs("points")%>"></td>
            <td class=Hxcmsds>(积分应添整数数字)</td>
          </tr>
          <tr> 
            <td class=Hxcmsqs height="30" align="center" colspan=3>
              <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input name="Reset" type="reset" class="button" id="Reset" value="清空重写">
              [<a href="admin_art.asp">返回分类管理</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("art_id")%>">
		  <input type="hidden" name="action" value="editart">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%rs.close
set rs=nothing
end if
'****************************************************
' Hxcms Ver7.6       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
</body>
</html>