saveqy.asp

来自「网络电视类型的好网站」· ASP 代码 · 共 38 行

<!--#include file="conn.asp"-->
<!--#include file="kz.asp" -->
<% 
action=Trim(Request.QueryString("action"))
select case action
case "add"
set rs=server.createobject("adodb.recordset")
rs.open "select * from diqu",conn,1,3
rs.AddNew
rs("xulie")=cdbl(Trim(Request.Form("xulie")))
rs("quyu")=Trim(Request.Form("quyu"))
rs.update
rs.Close
set rs=nothing
response.redirect "quyu.asp"
response.End
 case "edit"
 id=Trim(Request("id"))
  set rs=server.createobject("adodb.recordset")
rs.open "select * from diqu where id="&id,conn,1,3
rs("xulie")=cdbl(Trim(Request.Form("xulie2")))
rs("quyu")=Trim(Request.Form("quyu2"))
rs.update
rs.Close
set rs=nothing
response.redirect "quyu.asp"
response.End
case "del"
 id=Trim(Request.QueryString("id"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from diqu where id="&id,conn,1,3
rs.delete
rs.Close
set rs=nothing
response.redirect "quyu.asp"
response.End
end select
 %>