<% if session("admin")="" then Response.Redirect("index.asp?err=4") end if %> <% function getMenu() set rsMenu=server.CreateObject("adodb.recordset") sqlMenu="select * from [videotype]" rsMenu.open sqlMenu,conn,1,1 do while not rsMenu.eof %> <% rsMenu.movenext loop rsMenu.close end function if request.QueryString("type")="add" then sqlAdd="insert into [video] ([title],[menu],[imgFull],[videoFull],[content],[xuhao],[online]) values ('"&trim(request.Form("title"))&"',"&trim(request.Form("menu"))&",'"&trim(request.Form("imgFull"))&"','"&trim(request.Form("videoFull"))&"','"&trim(request.Form("content"))&"','"&trim(request.Form("xuhao"))&"',"&request.Form("online")&")" conn.execute(sqlAdd) response.Redirect("?type=ok") end if %> 视频添加

视频添加

<% if request.QueryString("type")="ok" then %>

视频添加完成 !

继续添加 >>

返回列表 >>

<% else %>
<% sql = "select top 1 xuhao from video order by xuhao desc" set rs = conn.execute (sql) if rs.bof and rs.eof then %> <% else abc = rs("xuhao") + 1 %> <% end if rs.close set rs = nothing %>
排列序号：   *只允许填写数字  *只允许填写数字
标　题：   
视频缩略图：   
视频地址：   
类　别：   
状态：   打开 关闭
内　容： 
   　　
<% end if %> <% set conn=nothing %>