succeed.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<%
select case request("action")
case "edit"
call edit()
case else
call normal()
end select
sub normal()
dim strFileName
strFileName="succeed.asp"
pageno=15
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr> 
    <td align="center" class="banner">作品管理</td>
    <td width='89' align=center class=banner><a href=addzp.asp>添加数据</a></td>
  </tr>
</table>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form1" method="post" action="J_search.asp">
    <tr>
      <td align="center" class="banner">快速搜索：
          <input name="key" type="text" id="key" size="12" style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid; BACKGROUND-COLOR: #f7f7f7">
          <select name="select">
            <option value="1" selected>名称</option>
        </select>
          <input type="submit" name="Submit" value="搜索" ></td>
  </form>
</table>
<%
 dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from succeed order by id desc",conn,1,1
rscount=rs.recordcount
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <%
   if  rscount<1 then
  %>
  <tr> 
    <td height="25" colspan="9" align="center" class="tablebody">该栏目还没有数据</td>
  </tr>
<%
else
%>
<tr>
  <td width="5%" align="center" class="tablebody">ID</td>
  <td align="center" class="tablebody">项目名称</td> 
    <td align="center" class="tablebody">网站地址</td>
    <td align="center" class="tablebody">项目日期</td>
    <td width="15%" align="center" class="tablebody">加入时间</td>
	<td width="5%" align="center" class="tablebody">审核</td>
	<td width="5%" align="center" class="tablebody">推荐</td>
	<td width="5%" align="center" class="tablebody">修改</td>
    <td width="6%" align="center" class="tablebody">删除</td>
  </tr><form name="form2" method="post" action="?action=edit" onSubmit="return checkf(form2)">
<%
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
  %>
   <tr>
     <td align="center" class="tablebody"><%=rs("id")%></td>
     <td align="center" class="tablebody"><%=rs("sname")%></td> 
    <td align="center" class="tablebody"><a href="<%=rs("surl")%>" target="_blank"><%=rs("surl")%></a></td>
    <td align="center" class="tablebody"><%=rs("sdate")%></td>
    <td align="center" class="tablebody"><%=rs("addtime")%></td>
	<td align="center" class="tablebody"><%if rs("elite")=1 then response.Write("<font color=red>√</a>") else response.Write("×") end if%></td>
	<td align="center" class="tablebody"><%if rs("isagree")=1 then response.Write("<font color=red>荐</a>") else response.Write("否") end if%></td>
	<td align="center" class="tablebody"><a href="addzp.asp?id=<%=rs("id")%>">修改</a></td>
    <td align="center" class="tablebody"><input name="id" type="checkbox" id="id" value="<%=rs("id")%>"></tr><%
  rs.movenext
  next
  %>
  <tr>
    <td height="25" colspan="9" align="right"  class="tablebody"><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>全选
        
        
        
        <input name="Submit" type="submit" id="Submit" value="隐藏">
        <input name="Submit" type="submit" id="Submit" value="显示">        
        <input name="Submit" type="submit" id="Submit" value="取消推荐">
        <input name="Submit" type="submit" id="Submit" value="推荐">
        <input name="Submit" type="submit" id="Submit" value="删除" onclick="SetSubmitImgId('realdel');">
        &nbsp;</td>
  </tr>  
  </form>
  <tr> 
      <td colspan="9" align="right"  class="tablebody"><%call showpage(strFileName,rscount,pageno,false,true,"条记录")%></td>
  </tr>
  <% end if%>
</table>
<%
end sub
sub edit()
dim id,sql
if request("id")="" then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
select case request("submit")
case "隐藏"
sql="update succeed set elite=0 where id="
case "显示"
sql="update succeed set elite=1 where id="
case "取消推荐"
sql="update succeed set isagree=0 where id="
case "推荐"
sql="update succeed set isagree=1 where id="
case "删除"
sql="delete from succeed where id="
case else
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end select
for each id in request("id")
conn.execute(sql&id)
next
dim ip
ip=Request.ServerVariables("HTTP_REFERER")
response.Write("<script>alert('操作成功！');location='"&ip&"'</script>")
response.End()
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->