📄 admin_tg.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("News_Utg") Then
	Call ArtErr("","")
End If
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type="text/javascript"></script>
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
</head>
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder"> 
       <tr> 
      <th height=25 colspan="3" >网友投稿</th> 
    </tr> 
  </table>
	  <table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">	
	  <tr>
	  <td  align="center" class="Forumrow" height="30"><b>投稿页面：</b><a target="_blank" href="../utg.asp"><font color="red">utg.asp</font></a></td>
      <td align="center" class="Forumrow"  height="30"><a href="admin_mb_topdown.asp"><b>通用模版管理</b></a></td>
      <td align="center" class="Forumrow"  height="30"><a href="admin_tg_config.asp"><b>投稿相关设置</b></a></td>
	  </tr>
	  </table>
 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
 		 <form name=tg action=admin_tg.asp method=post>
        <tr>
            <td background="../images/bg1.gif" align="center" width=5% height=25 ><font color="#FFFFFF">
			选</font></td>
			<td background="../images/bg1.gif" align="center" width="216"><font color="#FFFFFF">
			栏目和标题</font></td>
			<td background="../images/bg1.gif" align="center" width="182"><font color="#FFFFFF">
			用　　户</font></td>
			<td background="../images/bg1.gif" align="center" width="145"><font color="#FFFFFF">
			投稿时间</font></td>
			<td background="../images/bg1.gif" align="center" width="130"><font color="#FFFFFF">
			操　　作</font></td>
		</tr>
		<%
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open "select * from [UserTouGao] order by id desc",conn,1,1
		
		if rs.recordcount<>0 then 
		
		page=int(request("page"))
		rs.PageSize=20
		pagecount=rs.pagesize
		if page<=0 then page=1
		if request("page")="" then page=1
		rs.AbsolutePage=page
		for i=1 to pagecount
		
			lmid=""
			lmid=rs("lmid")
		if instr(lmid,"|")<>0 then
		aaa=split(lmid,"|")
          lm1=aaa(0)
          lm2=aaa(1)
          lm3=aaa(2)
		 lmid=trim(lm3)
			    if lmid="0" or lmid="" then lmid=trim(lm2)
			    if lmid="0" or lmid="" then lmid=trim(lm1)
			    if lmid="" then lmid=0
				if (not isNumeric(lmid)) then      
			    	lmid=0
			    end if
        else
			if lmid="" then lmid=0
			end if

		%>
		<tr height="25" onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
			<td align=center><input type='checkbox' value=<%=rs("id")%> name=id></td>
            <td width="216"><font color="#666666"><%
					
					set rslm = Server.CreateObject("ADODB.RecordSet")
					rslm.Open "select * from [lm] where id="&lmid&" order by id desc",conn,1,1
					if rslm.recordcount<>0 then
						Response.Write rslm("lm")&rslm("lm2")&rslm("lm3")
					end if
					rslm.close
					set rslm=nothing
				%></font>
			<font color="#0000FF">(<%=rs("id")%>)</font><%=titleb(rs("title"),30)%></td>
			<td width="182"><%=rs("adduser")%><br><a href=# onclick='window.open("admin_ip.asp?iP=<%=rs("ip")%>","newsplview","width=380,height=200,top=190,left=150,scrollbars=no" )'><font color="#CC3300">(查看IP和来源)</font></a></td>
			<td width="145" align=center><%=rs("addtime")%></td>
			<td width="130" align=center><a href="admin_news_add.asp?tgid=<%=rs("id")%>&tglm=<%=lmid%>&page=<%=page%>">查看审查</a></td>
		</tr>
		
		<%
		 rs.movenext
		 if rs.eof then exit for
		 next
		 
		 else
		 	Response.Write "<tr><td colspan=5>　暂无信息</td></tr>"
		 
		 end if
		%>
	

<tr><td class="Forumrow"  colspan="5"><div align="left" style="float:left; padding:0 0 0 6;">
<input type='checkbox' name=chkall onClick='CheckAll(this.form)'> 全选 
<input type="submit" name="action" value="删除" onClick="{if(confirm('该操作不可恢复！\n\n确实删除选定的留言？')){this.document.Prodlist.submit();return true;}return false;}">
</div>
<div align="center" >
<%if rs.recordcount<>0 then
  if page>1 then
    response.write "<a href="&request.servervariables("URL")&"?page=1>首页</a>　"
    response.write "<a href="&request.servervariables("URL")&"?page="&page-1&">上一页</a>　"
  end if
  if page<rs.pagecount then
    response.write "<a href="&request.servervariables("URL")&"?page="&page+1&">下一页</a>　"
    response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&">尾页</a>　"
  end if
    response.write "共"&rs.recordcount&"条　每页显示"&pagecount&"条　共"&rs.pagecount&"页　"
  %>
  <script language="JavaScript">
  <!--
  function FP_jumpMenu(el,frm,sel) {//v1.0
    var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
    if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
    }
    // -->
  </script>
  <select size="1" onChange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
   <%for i=1 to rs.pagecount%>
   <option value="<%=request.servervariables("URL")%>?page=<%=i%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option>
    <%next%>
   </select>
<%end if%></div>
 </td></tr>
 </form>
 </table>
 
<%
rs.close:set rs=nothing

if request("action")="删除" then
	delid=replace(request("id"),"'","")
	call delfeedback()
end if
sub delfeedback()
	if delid="" or isnull(delid) then
    call ArtErr("<li>没有选择合适参数，请单击“确定”返回！</li>","1")
	else
		conn.execute("delete from [usertougao] where ID in ("&delid&")")
        call ArtErr("<li>投稿删除成功，请单击“确定”返回！</li>","2")
	end if
end sub



call CloseConn() 
call AdminPageEnd()

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -