adminbbstype.asp

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

<!--#include file="conn.asp"-->
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
}
a {
	font-size: 12px;
	color: #000000;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <%dim username,sql,type2,ad
ad=request.querystring("ad")
type2=request.queryString("type2")
use=request.querystring("use")
	if Session("chong")<>4 then
Response.Write("兄弟，你的权力不够啊！快来给我送点礼吧")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>哎，回去吧</font></a>")
	else
Select Case type2
  Case "saveedit":
		Call saveedit
		 Case "add":
		Call add
		 Case "del":
		Call del
	Case Else:
		 call show
End Select
 End If
sub show%>
<table width="100%"  border="1" cellpadding="1" cellspacing="1" bordercolor="#0099FF">
<form name="form1" method="post" action="?type2=add">
  <tr>
    <td>添加类别id：
        <input type="text" name="bmid">      
      类别名：
        <input type="text" name="bmname">        
        类别排序：
        <input name="bmpx" type="text" size="7">
		　　
		<input type="submit" name="Submit" value="添加">
      <input type="reset" name="Submit" value="重置"></td>
  </tr>
</form>
</table>
 
<%set rs=conn.execute ("select * from bbslb order by lbpx")%>
<BR>
<table width="100%"  border="1" cellpadding="1" bordercolor="#0099FF">
<%while not rs.eof%><form name="form1" method="post" action="?type2=saveedit">
  <tr>
    <td>类别ID：
      <input name="lbid" type="text" value=<%=rs("lbid")%> size="6">　
      类别名：
        <input type="text" name="lbname" value=<%=rs("lbname")%>>　
        类别排序：
        <input type="text" name="lbpx" value=<%=rs("lbpx")%>>　
        <input type="submit" name="Submit" value="修改">
        <input type="reset" name="Submit" value="重置">　<a href=?type2=del&lbid=<%=rs("lbid")%>>删除</a>
   </td>
  </tr></form><%rs.movenext
  Wend%>
</table>
 
<%end sub
  sub saveedit
  lbpx=request.form("lbpx")
lbid=request.form("lbid")
lbname=request.form("lbname")
  set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbslb where lbid="&lbid&"",conn,1,3
		rs("lbpx")=lbpx
		rs("lbname")=lbname
	Rs.Update
	Response.Write("<br>")
	Response.redirect "adminbbstype.asp" 
	end sub
	sub add
dim bmid,bmpx,bmname
bmid=request.form("bmid")
bmname=request.form("bmname")
bmpx=request.form("bmpx")
  set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbslb",conn,1,3
		rs.addnew
		rs("lbid")=bmid
		rs("lbname")=bmname
		rs("lbpx")=bmpx
	Rs.Update
	Response.Write("<br>")
	Response.redirect "adminbbstype.asp"
		end sub
		 sub del
lbid=request.QueryString("lbid")
	conn.execute "delete * from bbslb where lbid="&lbid&""
	Response.redirect "adminbbstype.asp"
	end sub%>
</td>
  </tr>
</table></BODY></HTML>