etype.asp

来自「一个人用ASP+SQL制作的个人博客」· ASP 代码 · 共 41 行

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%

set rs=server.createobject("adodb.recordset")
if request("add")<>"" then
call newfilm()
elseif request("edit")<>"" then
call editfilm()
else
call delfilm()
end if
sub newfilm()
sql="select * from type where (typeid is null)"
rs.open sql,conn,1,3
rs.addnew
rs("type")=request("type")
rs.update
end sub
sub editfilm()
sql="select * from type where typeid="&request("id")
rs.open sql,conn,1,3
rs("type")=request("type")
rs.update
end sub
sub delfilm()
sql="DELETE * from type where typeid="&request("id")
rs.open sql,conn,1,3
rs.update
end sub

rs.close
set rs=nothing
conn.close
set conn=nothing

Response.Redirect("mimi.asp")

%>