jobqzsave.asp

站完全依据SEO技术建立

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

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

<%title=request("title")
news=request("news")
ly=request("ly")
addr=request("addr")
newssort=request("newssort")

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

if request("action")="del" then
	Rem 删除一级栏目
	on error resume next
        sql="delete from Job_qz where id=" & request("id")
        conn.execute sql

        if err.Number<>0 then
            err.clear
            response.write ""
        else
            finished
        end if

    rs.open sql,conn,3,3
            rs.delete
        rs.update
Response.Redirect "qz.asp?page="&page

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