视频管理

<% if session("admin")="" then Response.Redirect("index.asp?err=4") end if %> <% if request.QueryString("page")="" then page=1 else page=request.QueryString("page") end if menuid=request.QueryString("menuid") if request.QueryString("type")="delete" then sqlDelete="delete from [video] where [id]="&request.QueryString("id") conn.execute(sqlDelete) response.Redirect("?") end if function getMenuCount(menuid) set rsMenuCount=server.CreateObject("adodb.recordset") sqlMenuCount="select [id] from [video] where [menu]="&menuid rsMenuCount.open sqlMenuCount,conn,1,1 if rsMenuCount.eof or rsMenuCount.bof then getMenuCount=0 else getMenuCount=rsMenuCount.recordcount end if rsMenuCount.close end function function getMenuName(id) set rsMenuName=server.CreateObject("adodb.recordset") sqlMenuName="select [name] from [videotype] where [id]="&id rsMenuName.open sqlMenuName,conn,1,1 if rsMenuName.eof then getMenuName="" else getMenuName=rsMenuName(0) end if rsMenuName.close end function %> 视频管理

视频类别返回总类别　　视频添加
<% if request.QueryString("act") = "clos" then id = cint(request.QueryString("id")) sql = "update video set online=false where id="&id conn.execute ( sql ) end if if request.QueryString("act") = "ope" then id = cint(request.QueryString("id")) sql = "update video set online=true where id="&id conn.execute ( sql ) end if set rsMenu=server.CreateObject("adodb.recordset") if Menuid="" then sqlMenu="select * from [videotype] order by [xuhao] asc" else sqlMenu="select * from [videotype] where [id]="&menuid end if rsMenu.open sqlMenu,conn,1,1 do while not rsMenu.eof %> + "><%=rsMenu("name")%>(<%=getMenuCount(rsMenu("id"))%>) <% rsMenu.movenext loop rsMenu.close %>

<% set rs=server.CreateObject("adodb.recordset") if menuid="" then sql="select * from [video] order by [xuhao] asc" else sql="select * from [video] where menu="&menuid&" order by [xuhao] asc" end if rs.open sql,conn,1,1 if rs.eof or rs.bof then response.Write("

暂未添加类别

") else rs.pagesize=20 rs.absolutepage=Page if page=1 then Purl=1 else Purl=page-1 end if if rs.pagecount

<<首页 <上一页下一页> 尾页>> 共<%=rs.pagecount%>页当前第<%=page%>页

<% for i=1 to rs.pagesize if rs.eof or rs.bof then exit for end if %> <% rs.movenext next end if rs.close %>

序号	缩略图	视频标题	类别	发布时间	状态	操作
<%= rs("xuhao") %>	" target="_blank">" width="60" height="60" border="0" />	"><%=rs("title")%>	"><%=getMenuName(rs("menu"))%>	<%=rs("addtime")%>	<% if rs("online") <> false then response.Write("打开") else response.Write("关闭") end if %>	">编辑 " onClick="javascript:if(!confirm('确定要删除信息吗？')) { return false;}">删除

<%set conn=nothing%>