editlearn.asp

来自「*** ***** 系统进入 *** ***** 系统主文件为index.」· ASP 代码 · 共 39 行

<!--#include file="data.asp"-->
<%

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

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

    Response.Redirect("delearn.asp")

%>