程序代码：

        set rs=server.CreateObject("adodb.recordset")
        if request2.form("id")="" then
            rsstr="select ppic from light where id="&request2.form("id")
            rs.open rsstr,conn,1,1
            if rs.recordcount=0 then
                rs.open "select * from light",conn,1,3
                rs.addnew
                rs("ppic")=request2.form("ppic")
                rs("pictime")=date()
                rs.update
            else
            response.write "<script language='javascript'>"
            response.write "alert('不能上传');"
            response.write "window.location.href='javascript:history.go(-1)';"
            response.write "</script>"
            end if
        end if

程序代码：

if request2.form("id")<>"" then
    set rs=server.CreateObject("adodb.recordset")
    rsstr="select ppic from light where id="&request2.form("id")
    rs.open rsstr,conn,1,1
    if rs.recordcount=0 then
        set rss=server.CreateObject("adodb.recordset")
        rss.open "select * from light",conn,1,3
        rss.addnew
        rss("ppic")=request2.form("ppic")
        rss("pictime")=date()
        rss.update
        rss.close
        set rss=nothing
        
    else
        response.write "<script language='javascript'>"
        response.write "alert('不能上传');"
        response.write "window.location.href='modify.asp?id="&request2.form("id")&"';"
        response.write "</script>"
    end if
    rs.close
    set rs=nothing
end if