delbm.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="top.asp"-->
<%dim type2,rs,sql
type2=request.QueryString("type2")%>
<TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 cellPadding=0 
width="100%" align=center bgColor=#f9f8f2 border=1>
  <TBODY>
  <TR>
    <TD width="63%">&nbsp;&nbsp;<IMG src="image/fle.gif" border=0> 你的位置：
     <A href="index.asp">五中校友录论坛</a> －<a href="admin.asp">论坛管理</a> －版面管理</TD>
    <TD width="37%"> 　 论坛搜索 |  <a href="search.asp">我发表的帖子</a> | <a href="search2.asp">我参与的帖子</a></TD>
  </TR></TBODY></TABLE>
 <%
   If session("sitejob")<>3 Then%>
<font color=red>你的级别还不够</font>
 <%else
Select Case type2
  Case "saveedit":
		Call saveedit
	Case Else:
		 call show
End Select
 End If
sub show
set rs=conn.execute ("select * from bbsbm")%>
<BR>
<table width="100%"  border="1" cellpadding="0">
<%while not rs.eof%>
  <tr>
    <td>类别：
      <input name="lbid" type="text" value=<%=rs("lbid")%> size="6">      
     版面名：
        <input type="text" name="bmname" value=<%=rs("bmname")%>> 
   </td>
    <td><a href=?type2=saveedit&bmid=<%=rs("bmid")%>>删除</a></td>
  </tr>
<%rs.movenext
  Wend%>
</table>
 
<%end sub
  sub saveedit
dim bmid
bmid=request.QueryString("bmid")
	conn.execute "delete * from bbsbm where bmid="&bmid&""
	Response.redirect "adminbm.asp" %>
<%end sub%><!--#include file="bottom.asp" -->
</BODY></HTML>