<%
if session("admin")="" then
Response.Redirect("index.asp?err=4")
end if
%>
<%
if request.QueryString("type")="add" then
SqlAdd="INSERT INTO videotype ([name],[xuhao]) VALUES ('"&trim(request.Form("name"))&"',"&trim(request.Form("xuhao"))&")"
conn.execute(sqlAdd)
response.Redirect("?")
end if
if request.QueryString("type")="update" then
sqlUpdate="update videotype set [name]='"&trim(request.Form("name"))&"',[xuhao]="&trim(request.Form("xuhao"))&" where [id]="&request.QueryString("id")
conn.execute(sqlUpdate)
response.Redirect("?")
end if
if request.QueryString("type")="delete" then
sqlUpdate="delete from videotype where [id]="&request.QueryString("id")
conn.execute(sqlUpdate)
response.Redirect("?")
end if
%>
视频类别管理
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from videotype order by [xuhao] asc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<%
rs.movenext
loop
rs.close
%>