newsmanage.asp

东滕网站源码

	}
}
function shadow() {
	if (helpstat) {
               alert("阴影标记\n使文字产生阴影效果.\n用法: [SHADOW=宽度, 颜色, 边界]要产生阴影效果的文字[/SHADOW]");
	} else if (basic) {
		AddTxt="[SHADOW=255,blue,1][/SHADOW]";
		AddText(AddTxt);
	} else { 
		txt2=prompt("文字的长度、颜色和边界大小","255,blue,1"); 
		if (txt2!=null) {
			txt=prompt("要产生阴影效果的文字","文字");
			if (txt!=null) {
				if (txt2=="") {
					AddTxt="[SHADOW=255, blue, 1]"+txt;
					AddText(AddTxt);
					AddTxt="[/SHADOW]";
					AddText(AddTxt);
				} else {
					AddTxt="[SHADOW="+txt2+"]"+txt;
					AddText(AddTxt);
					AddTxt="[/SHADOW]";
					AddText(AddTxt);
				}         
			} 
		}
	}
}
function flash() {
 	if (helpstat){
		alert("Flash 动画\n插入 Flash 动画.\n用法: [flash]Flash 文件的地址[/flash]");
	} else if (basic) {
		AddTxt="[flash][/flash]";
		AddText(AddTxt);
	} else {                  
		txt=prompt("Flash 文件的地址","http://");
		if (txt!=null) {             
			AddTxt="[flash]"+txt;
			AddText(AddTxt);
			AddTxt="[/flash]";
			AddText(AddTxt);
		}        
	}  
}



function SureDel(id,td,bd)
{
    if ( confirm("警告!如果您删除了该文章,该文章相关的评论将被删除!!是否继续？"))
        {
            window.location.href = "newsmanage.asp?action=del&newsid=" + id + "&typeid=" + td + "&borderid=" + bd
        }
}
</script>
<%
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from news where borderid=" & cstr(borderid) & " order by ntime desc ",conn,1,1
  if err.number <> 0 then
	           response.write "数据库出错"
           else
	           if rs.bof and rs.eof then
		           rs.close
		           response.write "该专栏目前没有文章"
	           else
			        %>
<table border="0" width="100%" bgcolor="#000000" cellpadding="0" cellspacing="1" align="center">
  <tr bgcolor="#abb8d6"> 
    <td width="35%" height="40" bgcolor="#abb8d6"> 
      <div align="center">文章标题</div>
    </td>
    <td width="19%" height="40"> 
      <div align="center">加入时间</div>
    </td>
    <td width="7%" height="40"> 
      <div align="center">状态</div>
    </td>
    <td width="8%" height="40"> 
      <div align="center">最后修改</div>
    </td>
    <td width="8%" height="40"> 
      <div align="center">最后审核</div>
    </td>
    <td width="23%" height="40" bgcolor="#abb8d6"> 
      <div align="center">操作</div>
    </td>
  </tr>
  <%
               if request("page")="" then
  	               curpage = 1
               else
	               curpage = cint(request("page"))
               end if

               rs.pagesize=cint(number)
               rs.absolutepage = curpage
               for i = 1 to rs.pagesize
                   %>
  <tr> 
    <td width="35%" height="23" bgcolor="<% if color mod 2=0 then 
						                                      response.write "#ffffff"
													       else 
															  response.write "#ffffff" 
													       end if %>"><a href="../shownews.asp?newsid=<%=rs("newsid")%>"  target=_blank><%=rs("topic")%></td>
    <td width="19%" height="23" bgcolor="<% if color mod 2=0 then 
						                                    response.write "#ffffff"
													   else 
															response.write "#ffffff" 
													  end if %>"> 
      <div align="center"><%=rs("ntime")%></div>
    </td>
    <td width="7%" height="23" bgcolor="<% if color mod 2=0 then 
						                                      response.write "#ffffff"
													       else 
															  response.write "#ffffff" 
													       end if %>"> 
      <div align="center"> 
        <% if rs("audit")=1 then 
					                              response.write "已审核" 
											  else
											      response.write "<font color=#990099>未审核</font>"
											  end if %>
      </div>
    </td>
    <td width="8%" height="23" bgcolor="<% if color mod 2=0 then 
						                                      response.write "#ffffff"
													       else 
															  response.write "#ffffff" 
													       end if %>"> 
      <div align="center"><%=rs("modify")%></div>
    </td>
    <td width="8%" height="23" bgcolor="<% if color mod 2=0 then 
						                                      response.write "#ffffff"
													       else 
															  response.write "#ffffff" 
													       end if %>"> 
      <div align="center"> 
        <%if rs("auditer")<>"" then
					                             response.write rs("auditer")
											 else 
											     response.write "-----"
											 end if %>
      </div>
    </td>
    <td width="23%" height="23" bgcolor="<% if color mod 2=0 then 
						                                      response.write "#ffffff"
													       else 
															  response.write "#ffffff" 
													       end if %>"> 
      <div align="center"> 
        <% if session("purview")>="99998" then 
					                              if rs("audit")=1 then %>
        <a href="newsmanage.asp?newsid=<%=rs("newsid")%>&typeid=<%=rs("typeid")%>&borderid=<%=rs("borderid")%>&isaudit=cancel&page=<%=request("page")%>">取消审核</a>&nbsp 
        <% else %>
        <a href="newsmanage.asp?newsid=<%=rs("newsid")%>&typeid=<%=rs("typeid")%>&borderid=<%=rs("borderid")%>&isaudit=ok&page=<%=request("page")%>"> 
        通过审核</a>&nbsp 
        <% end if 
											   end if %>
        <a href='newsmanage.asp?typeid=<%=rs("typeid")%>&borderid=<%=rs("borderid")%>&action=edit&newsid=<%= rs("newsid")%>&page=<%=request("page")%>'>编辑</a>&nbsp<a href='javascript:SureDel(<%=rs("newsid") %>,<%=rs("typeid")%>,<%=borderid%>)'>删除</a></div>
    </td>
  </tr>
  <% rs.movenext
    color=color+1
      if rs.eof then
	      i = i + 1
	      exit for
     end if
               next %>
</table>
<table border="0" width="100%" bgcolor="#abb8d6" cellpadding="0" cellspacing="1" align="center" style="border: 1px solid #000000">
  <tr> 
    <td height="30"> 
      <% 
		response.write "<div align=center>"
		response.write "第<font color=red>" + cstr(curpage) + "</font>页/总<font color=red>" + cstr(rs.pagecount) + "</font>页 "
		response.write "本页<font color=red>" + cstr(i-1) + "</font>条/总<font color=red>" + cstr(rs.recordcount) + "</font>条 "
		if curpage = 1 then 
			response.write "首页 前页 "
		else
			response.write "<a href='newsmanage.asp?typeid=" & cstr(request("typeid")) & "&borderid=" & cstr(request("borderid")) & "&page=1'>首页</a> <a href='newsmanage.asp?typeid=" & cstr(request("typeid")) & "&borderid=" & cstr(request("borderid")) & "&page=" & cstr(curpage-1) & "'>前页</a> "
		end if
		if  curpage = rs.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='newsmanage.asp?typeid=" & cstr(request("typeid")) & "&borderid=" & cstr(request("borderid")) & "&page=" + cstr(curpage+1) + "'>后页</a> <a href='newsmanage.asp?typeid=" + cstr(request("typeid")) + "&borderid=" + cstr(request("borderid"))  + "&page=" + cstr(rs.pagecount) + "'>末页</a>"
		end if
	end If
end if
'rs.close
set rs=nothing
 %>
    </td>
  </tr>
</table>
<form action="savenews.asp" method="post" enctype="multipart/form-data" name="frm1" id="frm1">
  <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
  <input type="Hidden" name="newsid" value='<%=request("newsid")%>'>
  <input type="Hidden" name="typeid" value='<%=request("typeid")%>'>
  <input type="Hidden" name="page" value='<%=request("page")%>'>
  <table border="0" width="100%" bgcolor="#000000" cellpadding="0" cellspacing="1" align="center">
    <tr> 
      <td bgcolor="#abb8d6" width="8%">&nbsp;</td>
      <td width="92%" height="40" bgcolor="#abb8d6"> 
        <%if auditer=1 or session("purview")="99999" or cstr(request("typeid"))=cstr(session("purview")) then   '审核员有编辑文章的权限
   if isedit then
	   set rs=server.createobject("adodb.recordset")
	   rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1
	   response.write "<p align='center'><font size=3>编 辑 文 章</font></p>"
   else
	   response.write "<p align='center'><font size=3>添 加 新 文 章</font></p>"
   end if %>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right"><font color=red>*</font>标题: </div></td>
      <td width="92%"> 　 
        <input type="text" name="topic" class=input maxlength=79 size="37" value='<% if isedit then
		                                                         response.write trim(rs("topic")) 
															 end if %>'> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right">所属专栏: </div></td>
      <td width="92%">　 
        <select name="borderid" class=select>
          <% set rsc=server.createobject("adodb.recordset")
							   rsc.open "select * from border where typeid=" & cstr(request("typeid")),conn,1,1
							   do while not rsc.eof %>
          <option value="<%=rsc("borderid")%>" <% if cstr(rsc("borderid"))=cstr(request("borderid")) then
							                                                   response.write "selected"
																		   end if %>><%=rsc("bordername")%></option>
          <%     rsc.movenext
							   loop
							   rsc.close
							   set rsc=nothing %>
        </select> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right"><font color=red>*</font>关键字: </div></td>
      <td width="92%">　 
        <input type="text" name="keys" class=input maxlength=100 size="36" value='<% if isedit then
		                                                         response.write trim(rs("keys")) 
															 end if %>'>
        （一般填写小类名称即可）</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right"> 
          <% if isedit then
	                          response.write "<font color=red>*</font>"
						  end if%>
          时 间:</div></td>
      <td width="92%">　 
        <input type="text" name="ntime" class=input maxlength=40 size="36" value='<% if isedit then
		                                                             response.write trim(rs("ntime")) 
																 else
																     response.write "从服务器自动获取"
															 end if %>' <% if not isedit then
															                   response.write "readonly"
																		   end if %>> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right">图片: </div></td>
      <td width="92%">　 
        <input type="file" name="img" size="27" class=input> <br> 
        <% if isedit then
						         if cstr(rs("imgsize"))<>0 then %>
        <input name="nochange" type="radio" value=1 checked>
        不改变现有的图片 
        <input type="radio" name="nochange" value=0>
        修改图片 
        <%    end if
							  end if %>        </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right">文章来源:</div></td>
      <td width="92%">　 
        <input type="text" name="nfrom" class=input maxlength=80 size="35" value='<% if isedit then
		                                                         response.write trim(rs("nfrom")) 
																 else
																 response.write trim(articlefrom)
															 end if %>'> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right">文章作者:</div></td>
      <td width="92%">　 
        <input type="text" name="writer" class=input maxlength=80 size="35" value='<% if isedit then
		                                                         response.write trim(rs("writer")) 
															     end if %>'> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%" valign="top"> <div align="right"><font color=red>*</font>文章内容:</div></td>
      <td width="92%">　 
       <textarea name="content" style="display:none"><% If isedit then response.write invert(rs("content")) end if %></textarea>
       <iframe ID="eWebEditor1" src="../ewebeditor/ewebeditor.asp?id=content&style=standard_3d" frameborder="0" scrolling="no" width="745" HEIGHT="500"></iframe> 
	  </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <div align="right">html格式 </div></td>
      <td width="92%">　 
        <input name="yes" type="radio" value="1" checked>
        是 
        <input type="radio" name="yes" value="0">
        否 
        <% if session("purview")>="99998" then %>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="8%"> <p align="right">状态:</p></td>
      <td width="92%">　 
        <input type="radio" name="audit" value=1 <% if isedit then
	                                                                                            if  rs("audit")=1 then
	                                                                                                response.write "checked"
																							    end if
																								else
																									if status=1 then
																										response.write "checked"
																									end if
																	                       end if %>>
        已审核&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <input type="radio" name="audit" value=0 <% if isedit then
						                                                   if rs("audit")=0 then
	                                                                            response.write "checked"
																		   end if
																	   else
																			if status<>1 then
																				response.write "checked"
																			end if
																		end if%>>
        未审核</td>
    </tr>
    <tr bgcolor="#abb8d6"> 
      <td colspan="2" height="50"> <div align="center"> 
          <input type=submit value="  确  定  " class=button name="submit">
          　 
          <input type=reset value="  清 除  " class=button name="submit2">
        </div></td>
    </tr>
  </table>
  <p align="center"></p>
  <% end if %>
  <input type="hidden" name="NoUse" value="">
</form>
<%end if  'if auditer=1 or session("purview")="99999" 
%>
</body>
</html>
<!--#include file="../function/DBclose.asp"-->