feedback.asp

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

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
If Cint(AdminGroup(9))<>1 then
Response.Redirect("Default.asp")
Response.End()
End If
%>
<!--#include file="top.asp"-->
<table border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" align="center" class="banner">帮助中心信息</td>
  </tr>
</table>
  <%
  select case request("action")
  case "edit"
  call edit()
  case else
  call normal()
  end select
sub normal()
dim strFileName
strFileName="feedback.asp"
pageno=15
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from FeedBack 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="8" align="center" class="tablebody">没有数据</td>
  </tr>
   <%
  else
  %>
  <form name="form2" method="post" action="?action=edit" onSubmit="return checkf(form2)">
  <%
call showsql(pageno)
 %>
 <tr>
   <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="15%" align="center" class="tablebody">联系电话</td>
	<td width="15%" align="center" class="tablebody">发送时间</td>
    <td width="6%" align="center" class="tablebody">处理</td>
    <td width="6%" align="center" class="tablebody">操作</td>
  </tr>
  <%
rs.move(rsno)
for i=1 to loopno
  %>
   <tr>
     <td align="center" class="tablebody"><%=rs("HName")%></td> 
     <td align="center" class="tablebody"><a href="showfb.asp?id=<%=rs("id")%>"><%=rs("Subject")%></a></td>
     <td align="center" class="tablebody"><%=rs("uname")%></td>
    <td align="center" class="tablebody"><%=rs("CName")%></td>
    <td align="center" class="tablebody"><%=rs("Tel")%></td>
	<td align="center" class="tablebody"><%=rs("posttime")%></td>
    <td align="center" class="tablebody"><%if rs("iswith")=0 then response.Write("<font color=red>√</a>") else response.Write("<font color=bbbbbb>否</font>") end if%></td>  
    <td align="center" class="tablebody">
      <input name="id" type="checkbox" id="id" value="<%=rs("id")%>"></tr>
	<%
  rs.movenext
  next
  %> 
  <tr>
    <td colspan="8" align="right"  class="tablebody"><INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>
      &nbsp;全选
        <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');">
</td>
  </tr></form>
  <tr> 
      <td colspan="8" 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.form("id")="" then
response.Write("<script>alert('参数错误！');history.back()</script>")
response.End()
end if
select case request("submit")
case "处理"
sql="update feedback set iswith=0 where id="
case "不处理"
sql="update feedback set iswith=1 where id="
case "删除"
sql="delete from feedback 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"-->