admin_vsort.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #INCLUDE FILE="include/onlogin.asp" -->
<!-- #INCLUDE FILE="include/conn.asp" -->
<%
dim change,delet,addname,typena,typer
tit=vbcrlf & "<a href='admin_nsort.asp?nsort=art'>文栏</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_nsort.asp?nsort=down'>下载</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_vsort.asp'>电影</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_nsort.asp?nsort=busin'>信息</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_nsort.asp?nsort=gall'>图库</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_nsort.asp?nsort=flash'>动画</a>&nbsp;┋&nbsp;" & _
    vbcrlf & "<a href='admin_nsort.asp?nsort=web'>网站</a>"
response.write header(5,tit)

change=request("change")
delet=request("delet")
addname=request("addname")
if delet<>"" then
   conn.execute"delete from videotype where typeid="&request("typeid")
      set rs=nothing
   conn.close
   set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if

if change<>"" then
typena=request("typename")
set rs=server.createobject("adodb.recordset")

sql="select * from videotype where typeid="&request("typeid")
rs.open sql,conn,1,3

rs("type")=typena
rs.update
rs.close
   set rs=nothing
   conn.close
   set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if

if addname<>"" then
typer=request("type")
set rs=server.createobject("adodb.recordset")
rs.open "select * from videotype",conn,1,3
rs.addnew
rs("type")=typer
rs.update
rs.close
   set rs=nothing
   conn.close
   set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end if

if delet="" and change="" and addname="" then 
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="100%" align=center colspan=2><b>电影分类管理:</b><br><br></td>
    <%set rs=server.createobject("adodb.recordset")
   sql="select * from videotype"
   rs.open sql,conn,1,3
  do while not rs.eof%>
  </tr>
  </form>
  <form method="POST" onsubmit action="admin_vsort.asp?typeid=<%=rs("typeid")%>">
    <tr>
      <td width="37%" align="right"><font color="#0066CC"><%=rs("type")%></font>&nbsp;</td>
      <td><input type="text" name="typename" size="15" value=<%=rs("type")%>>&nbsp;
      <input type="submit" value="修改" name="change">
      <input type="submit" value="删除" name="delet"></td>
    </tr>
  </form>
  <% rs.movenext
      loop
      %>
  <form method="POST" onsubmit action="admin_vsort.asp?act=add">
  <tr>
  	<td colspan=2 height=30></td>
  </tr>
    <tr>
      <td colspan=2 align="center">新增：
      <input type="text" name="type" size="15">&nbsp;
      <input type="submit" value="新增" name="addname"></td>
    </tr>
  </form>
</table>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write ender()
end if
%>