ppst_news.asp

系统用户管理为整个新闻发布系统提供了一个权限控制功能

  <tr>
    <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">ID</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">评论标题(作者)</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">评论内容</td>
    <td align="center" valign="middle" bgcolor="#FFFFFF">时间</td>
	<td align="center" valign="middle" bgcolor="#FFFFFF">操作</td>
  </tr>
  <%
  	page=request.QueryString("page")
	rs.pagesize=EveryPageNum
	total=rs.recordcount
	if Not IsEmpty(trim(Request("Page"))) then 
		page = CInt(Request("page"))    
    	if page>rs.PageCount then 
			rs.AbsolutePage = rs.PageCount        
		elseif page <= 0 then 
			page = 1 
   		else
   	    	rs.AbsolutePage = page 
    	end if
	End	 if
	page = rs.AbsolutePage
	
	For i=1 to rs.PageSize
		if rs.EOF then
			Exit For 
		end if 
  %>
  <tr>
    <td width="20" height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("ID")%></td>
    <td width="190" align="left" valign="middle" bgcolor="#FFFFFF">&nbsp;<%=TitleLeft(rs("Title"),20)%>(<%=rs("Author")%>)</td>
    <td width="400" align="left" valign="middle" bgcolor="#FFFFFF">&nbsp;<%=rs("Content")%></td>
    <td width="120" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("AddTime")%></td>
	<td width="30" align="center" valign="middle" bgcolor="#FFFFFF"><A href=<%=ThisFileName%>?Action=DelPinglun&ID=<%=request("ID")%>&PID=<%=rs("ID")%>>删除</A></td>
  </tr>
   <%
	 rs.MoveNext
	 Next
	%>
   <tr><td height="25" align="center" bgcolor="#FFFFFF" colspan="5">
	<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    	<%if page<rs.pagecount then%>
       		<%if page=1 then %>
        		[首页] [上一页]
       		<%else%>
				[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=1%>">首页</a>]
				[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% =page-1 %>">上一页</a>]
			<% end if %>
              [<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=page+1%>">下一页</a>] 
              [<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<%=rs.PageCount%>">尾页</a>]
		<%else%>
			[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% = 1%>">首页</a>]
			[<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% =page -1 %>">上一页</a>]
			[下一页] [尾页]
		<%end if %>
	<%else%>
		[首页] [上一页] [下一页] [尾页]
	<%end if%>
	[页次:<font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>]
	[共<%=rs.RecordCount%>条 <font color="red"><b><%=rs.PageSize%></b></font>条/页]&nbsp;&nbsp;
		<select style="width:50px;" onChange="window.location.href=this.options[this.selectedIndex].value">
	<option value="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>">页码</option>
	<%For k=1 to rs.PageCount%>
        <option value="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=request("ID")%>&page=<% = k%>"><% = k%></option>
	<%Next%>
	</select>
	</td></tr>
</table>
<%
	Rs.Close
	Conn.Close
	Response.End()
End If

If Action="Edit" then
	'如果Action="Edit"表示是点了编辑按钮,则表单ID不为空,取出该新闻的各种值
	'并赋给参数,如Title=rs("Title"),设定表单各项的默认值等于相应参数
	'如果Action="",则表示不是点了编辑按钮,则不进行一下11行程序
	'所以表单各项的默认值等于空了,如ID
	'然后依次作为区别来判断提交的数据是更改还是添加
	'即使表单的Action的值都是Add
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	Sql="Select * From PPst_News Where ID="&Request("ID")
	rs.open sql,conn,1,1
	ID=rs("ID")	
	Title=rs("Title")
	Author=rs("Author")
	Content=rs("Content")
	SmallPicURL=rs("SmallPicURL")
	AddTime=rs("AddTime")
	Shenhe=rs("Shenhe")
	PPst_LeiBie1=GetBigClassName(rs("BigClassID"))
	PPst_LeiBie2=GetSmallClassName(rs("SmallClassID"))
	rs.close
	ButtonValue=" 编 辑 "		'当前是新闻编辑状态,重新设定按钮的值为"编 辑"
End If
If Action="51Add" or Action="Edit" then
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <form name="form1" method="post" action="<%=ThisFileName%>?Action=Add<%
  If Action="Edit" then response.Write "&page="&request("page")&"&BCID="&request("BigClassID")&"&SCID="&request("SmallClassID")
  %>" onSubmit="submits();">
  <tr>
    <td width="60" height="25" align="center" valign="middle" bgcolor="#FFFFFF">
      <input type="Hidden" name="ID" Value="<%=ID%>">
      标题：</td>
    <td width="700" align="left" valign="middle" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Title" value="<%=Title%>" size="85" /></td>
  </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">分类：</td>
    <td align="left" valign="middle" bgcolor="#FFFFFF">&nbsp;<select name="BigClassID" onChange="changelocation(document.form1.BigClassID.options[document.form1.BigClassID.selectedIndex].value)" size="1">
   <option value="">选择大类</option>
   <%	Set rs=Server.CreateObject("adodb.recordSet")
	rs.open "select * from [PPst_BigClass]",conn,1,1
   do while not rs.eof
	response.Write 	"<option value="&rs("BigClassid")&">["&rs("BigClassid")&"] "&rs("BigClassName")&"</option>"
    rs.movenext
   loop
   rs.close
   set rs = nothing
   %>
 </select>&nbsp;<select name="SmallClassID">
   <option value="">选择小类</option>
 </select>
 <%If Action="Edit" then response.Write "←如不更改请勿再选 | 当前大类：<Font Color=#FF0000>"&PPst_LeiBie1&"</Font>&nbsp;&nbsp;小类：<Font Color=#FF0000>"&PPst_LeiBie2&"</Font>"%>
</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">图片：</td>
    <td align="left" valign="middle" bgcolor="#FFFFFF">
	  	&nbsp;<input type="text" name="SmallPicURL" value="<%=SmallPicURL%>" size="56" />&nbsp;<input type="button" name="Submit" value="上传" onClick="window.open('PPst_UploadPIC.asp','','status=no,scrollbars=no,top=0,left=0,width=400,height=30')">&nbsp;也可直接输入图片地址。
</td>
  </tr>
  <tr>
    <td align="center" valign="middle" bgcolor="#FFFFFF" height="310">内容：</td>
    <td align="left" valign="middle" bgcolor="#FFFFFF"><table width="700" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" height="5"></td>
  </tr>
  <tr>
    <td width="5"></td>
    <td width="560" align="center" valign="top"><input type="hidden" name="content" id='edit' value="<%=Server.HTMLEncode(PPst_Get(Content))%>">
<iframe id="eWebEditor1" src="PPst_Edit/ewebeditor.htm?id=content&style=blue" frameborder="0" scrolling="No" width="550" height="320"></iframe></td>
    <td width="45"></td>
  </tr>
  <tr>
    <td colspan="3" height="5"></td>
  </tr>
</table>
</td>
  </tr>
  <tr>
	<td height="25" align="center" valign="middle" bgcolor="#FFFFFF">作者：</td>
    <td valign="middle" bgcolor="#FFFFFF" align="Left">&nbsp;<input type="text" name="Author" value="<%=Author%>" size="20" />　&nbsp;&nbsp;&nbsp;&nbsp;<input type="checkbox" name="Shenhe" value="1" <%If Action="51Add" or Shenhe=1 then response.Write "checked"%>>&nbsp;已审核&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Submit" value="<%=ButtonValue%>"></td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="cuti_red"><%=Request("Result")%></td>
  </tr></form>
</table>
<%End If
If Action="" or Action="Login" then%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="Heitable">
  <tr><td height="5"></td></tr>
  <tr><td>
    		<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  			<tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25"><%
	If Request("BigClassID")="" Then
		Set Rs=Server.CreateObject("Adodb.RecordSet")
		Sql="Select * From PPst_BigClass"
		rs.open sql,conn,1,1
		If Rs.RecordCount=0 then
			response.Write "还没有任何分类"
		Else
			Response.Write "<a href="&ThisFileName&">全部</a>"
			For t=1 to Rs.RecordCount
				Response.Write "‖("&Rs("BigClassID")&")<a href="&ThisFileName&"?BigClassID="&Rs("BigClassID")&">"&Rs("BigClassName")&"</a>"
			Rs.MoveNext
			Next
		End If
		Rs.Close
	Else
		Set Rs=Server.CreateObject("Adodb.RecordSet")
		Sql="Select * From PPst_SmallClass Where ForBigClassID="&Request("BigClassID")
		rs.open sql,conn,1,1
		If Rs.RecordCount=0 then
			response.Write "该大类还没有任何小类"
		Else
			Response.Write "<a href="&ThisFileName&">全部</a>"
			Response.Write "‖<a href="&ThisFileName&"?BigClassID="&Request("BigClassID")&">本类全部</a>"
			For t=1 to Rs.RecordCount
				Response.Write "‖("&Rs("SmallClassID")&")<a href="&ThisFileName&"?BigClassID="&Request("BigClassID")&"&SmallClassID="&Rs("SmallClassID")&">"&Rs("SmallClassName")&"</a>"
			Rs.MoveNext
			Next
		End If
		Rs.Close
	End If
			%></td></tr></table>
	</td></tr>
  <tr height="5"><td></td></tr>
  
  <tr><td align="center" valign="middle" bgcolor="#FFFFFF">
 <FORM action="<%=ThisFileName%>?Action=DelAll" name="form1" method="post">
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
If Request("BigClassID")="" Then
	Sql="Select * From PPst_News Order By ID Desc"
Else
	If Request("SmallClassID")="" then
		Sql="Select * From PPst_News Where BigClassID="&Request("BigClassID")&" Order By ID Desc"
	Else
		Sql="Select * From PPst_News Where BigClassID="&Request("BigClassID")&" and SmallClassID="&Request("SmallClassID")&" Order By ID Desc"
	End If
End If
rs.open sql,conn,1,1
if rs.RecordCount=0 then
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25">没有数据..<a href="javascript:history.go(-1)">返回</a></td></tr></table>
<%
Else
	page=request.QueryString("page")
	rs.pagesize=EveryPageNum
	total=rs.recordcount
	if Not IsEmpty(trim(Request("Page"))) then 
		page = CInt(Request("page"))    
    	if page>rs.PageCount then 
			rs.AbsolutePage = rs.PageCount        
		elseif page <= 0 then 
			page = 1 
   		else
   	    	rs.AbsolutePage = page 
    	end if
	End	 if
	page = rs.AbsolutePage
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
  <tr>
    <td width="4%" height="25" align="center" valign="middle" bgcolor="#CCCCCC"><b>选择</b></td>
    <td width="*" align="left" valign="middle" bgcolor="#CCCCCC"><b>&nbsp;[ID] [类别] 标题 (阅读次数)</b></td>
	<td width="6%" align="center" valign="middle" bgcolor="#CCCCCC"><b>状态</b></td>
    <td width="4%" align="center" valign="middle" bgcolor="#CCCCCC"><b>编辑</b></td>
    <td width="4%" align="center" valign="middle" bgcolor="#CCCCCC"><b>删除</b></td>
	<%If IsPinglun=1 then%>
	<td width="4%" align="center" valign="middle" bgcolor="#CCCCCC"><b>评论</b></td>
	<%End If%>
  </tr>
<%
For i=1 to rs.PageSize
	if rs.EOF then
	Exit For 
	end if 
	Set Rs_Pinglun=Server.CreateObject("Adodb.RecordSet")
	SQL_Pinglun="Select * From PPst_Pinglun Where NewsID="&Rs("ID")
	Rs_Pinglun.open sql_Pinglun,conn,1,1
	PinglunNum=Rs_Pinglun.RecordCount
	Rs_Pinglun.Close
%>
  <tr onMouseOver="this.style.backgroundColor='#dddddd'" onMouseOut="this.style.backgroundColor='#ffffff'" >
    <td height="25" align="center" valign="middle"><input name="AllID" type="checkbox" value="<%=rs("ID")%>" onClick="checkItem(this, 'mmAll')"></td>
    <td align="left" valign="middle">&nbsp;<%=rs("ID")%>:[<a href="<%=ThisFileName%>?BigClassID=<%=rs("BigClassID")%>" title="B=Big&#xA显示与本条新闻&#xA同一大类的所有新闻">B</a> <a href="<%=ThisFileName%>?BigClassID=<%=rs("BigClassID")%>&SmallClassID=<%=rs("SmallClassID")%>" title="S=Small&#xA显示与本条新闻&#xA同一小类的所有新闻">S</a>]&nbsp;<%If rs("SmallPicURL")<>"" then response.Write "<font color=#ff0000>图</font>&nbsp;"%><a href="<%=ThisFileName%>?Action=View&ID=<%=rs("ID")%>"><%=rs("Title")%></A> (<%=rs("ReadCishu")%>) <font color="#AAAAAA"><%=rs("AddTime")%></font></td>
	    <td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Shenhe&ID=<%=rs("ID")%>"><%
		If rs("Shenhe")=0 then
			response.Write "未审核"
		Else
			response.Write "已审核"
		End If
		%></a></td>
    <td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Edit&ID=<%=rs("ID")%>&page=<%=request("page")%>&BigClassID=<%=request("BigClassID")%>&SmallClassID=<%=request("SmallClassID")%>">编辑</a></td>
    <td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=Del&ID=<%=rs("ID")%>" onClick='return confirm("标题：<%=rs("Title")%>\n\n确定要执行操作吗？\n该操作将删除该新闻下的所有评论\n请慎重！！！！");'>删除</a></td>
	<%If IsPinglun=1 then%>
	<td align="center" valign="middle">
		<%If PingLunNum<>0 then%>
			<a href="<%=ThisFileName%>?Action=AdminPinglun&ID=<%=rs("ID")%>">[<%=PingLunNum%>]</a>
		<%Else
			response.Write "无"
		End If%>
	</td>
	<%End If%>
  </tr>
 <%
 rs.MoveNext
 Next
 %>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" height="5"><tr><td></td></tr></table>
<table width="98%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
   <tr><td height="25" align="center" bgcolor="#FFFFFF" width="4%"><input type=checkbox name=mmAll onClick="checkAll(this, 'AllID')"></td><td align="center" bgcolor="#FFFFFF" width="23%">批量：<input type="submit" value="删除">
<input type="submit" onClick="form1.action='<%=ThisFileName%>?Action=ShenheAll&ShenheValue=1'" value="审核">
<input type="submit" onClick="form1.action='<%=ThisFileName%>?Action=ShenheAll&ShenheValue=0'" value="未审核"></td><td align="center" bgcolor="#FFFFFF" width="*">
	<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
    	<%if page<rs.pagecount then%>
       		<%if page=1 then 
        		Response.Write "[首页][上页]"
       		else
				Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=1%>">首页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% =page-1 %>">上页</a>]<%
			end if 
            	Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=page+1%>">下页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<%=rs.PageCount%>">尾页</a>]<%
			else
			Response.Write "["%><a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% = 1%>">首页</a>][<a href="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&SmallClassID=<%=Request("SmallClassID")%>&page=<% =page -1 %>">上页</a>][下页][尾页]<%
		end if 
	else
		Response.Write "[首页][上页][下页][尾页]"
	end if
	Response.Write "[页次:"%><font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>][共<%=rs.RecordCount%>条 <font color="red"><b><%=rs.PageSize%></b></font>条/页]</td>
	<td align="center" bgcolor="#FFFFFF" width="18%"><select style="width:120px;" onChange="window.location.href=this.options[this.selectedIndex].value"><%
		Set Rs=Server.CreateObject("Adodb.RecordSet")
		Sql="Select * From PPst_BigClass"
		rs.open sql,conn,1,1
		If Rs.RecordCount<>0 then
			For B=1 to Rs.RecordCount
				Response.Write "<option value="&ThisFileName&"?BigClassID="&Rs("BigClassID")&">├"&Rs("BigClassName")&"</option>"
				Set Rss=Server.CreateObject("Adodb.RecordSet")
				Sqls="Select * From PPst_SmallClass Where ForBigClassID="&Rs("BigClassID")
				rss.open sqls,conn,1,1
				If Rss.RecordCount<>0 then
					Do while not Rss.eof
						Response.Write "<option value="&ThisFileName&"?BigClassID="&Rs("BigClassID")&"&SmallClassID="&Rss("SmallClassID")&">　├－"&Rss("SmallClassName")&"</option>"
					Rss.MoveNext
					Loop
				End If
				Rss.Close
			Rs.MoveNext
			Next
		End If
		Rs.Close
	%></select>
	</td>
	<td align="center" bgcolor="#FFFFFF" width="7%"><select style="width:50px;" onChange="window.location.href=this.options[this.selectedIndex].value">
		<option value="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>">页码</option>
	<%For k=1 to rs.PageCount%>
        <option value="<%=ThisFileName%>?BigClassID=<%=Request("BigClassID")%>&page=<% = k%>"><% = k%></option>
	<%Next%>
	</select>
	</td></tr></table>
<%
rs.Close
End If
End If
Conn.Close
%></FORM>
</td></tr><tr><td height="5"></td></tr></table>
<!-- 如不影响你使用，请不要删除以下代码 -->
<table Align="center"><tr><td height="30" align=center valign=middle>爬爬思特工作室 <a Href=Http://www.papasite.net target=_blank>Http://www.PaPasite.Net</a></td></tr></table>
<!-- 以上代码不会影响程序速度，谢谢合作 -->
</body>
</html>