scasave.asp

站完全依据SEO技术建立

<%dbdns="../../"%>
<!--#include file="../../inc/conn.asp"-->

<%if session("admin")="" then
  		response.redirect "../index.asp"
end if%>

<%page=request("page")
if page="" then page=1

if request("action")="del" then
conn.execute("delete from sca where id=" & request("id"))
conn.execute("delete from bookcp where adcp=0 and book_id=" & request("id"))

Response.Redirect request("yp")&".asp?page="&page

elseif request("action")="key1" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from sca where id="&request("id")
rs.open sql,conn,1,3
rs("key1")=request("key")
rs.update
rs.close
set rs=nothing
Response.Redirect request("yp")&".asp?page="&page
elseif request("action")="key2" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from sca where id="&request("id")
rs.open sql,conn,1,3
rs("key2")=request("key")
rs.update
rs.close
set rs=nothing
Response.Redirect request("yp")&".asp?page="&page
end if%>