changeadmin.asp

来自「《Web数据库技术》-高晗-vod点播系统程序源代码」· ASP 代码 · 共 33 行

<!--#include file="conn.asp"-->
<% 
change=request("change")
delet=request("delet")
addname=request("addname")
set rs=server.createobject("adodb.recordset")
if change<>"" then
typena=request("typename")
sql="select * from type where typeid="&Replace(request("typeid"), "'", "''")
rs.open sql,conn,1,3
rs("type")=typena
rs.update
rs.close
end if
if delet<>"" then
   conn.execute"delete from type where typeid="&Replace(request("typeid"), "'", "''")
end if

if addname<>"" then
typer=request("addname")
response.write typer
rs.open "select * from type",conn,3,2
rs.addnew
rs("type")=typer
rs.update
rs.close
end if

set rs=nothing
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
%>