zDialog弹出层局部刷新iframe

IFrame页面newsclass_list.asp

<iframe scrolling="auto" frameborder="0" id="'newsclass_list'" src="'+url+'" style="width:100%;height:100%;"></iframe>

<script type="text/javascript">
        //添加类型
        function open1() {
            Dialog.open({ URL: "newsclass_edit.asp?t=a" });
        }
</script>

 

zDialog中嵌套的newsclass_edit.asp页面

<%
t=request.querystring("t")
nid=request.querystring("nid")
url=request.QueryString("url")
s=request.Form("s")
dim otitle,oU
oU=-1
Function ToUnixTime(strTime, intTimeZone)       
    If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now       
    If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0       
     ToUnixTime = DateAdd("h",-intTimeZone,strTime)       
     ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)       
End Function


if s="s" then '提交数据
    tt = ToUnixTime("","+8")
    name=request.Form("name")
    isUse=request.Form("isUse")
    
    set rs=Server.Createobject("ADODB.Recordset")
    if t="a" then
    sql="select * from tbl_News_Class where Class_Title='" & name & "'"
    rs.open sql,conn,1,3,1
    IF rs.EOF then
    rs.close
    sql="insert into tbl_News_Class values('"&name&"',"&isUse&")"
    on error resume next
    conn.Execute sql,recaffected
    if err<>0 then
        response.Write("<script>alert('添加失败！')</script>")
    else
        response.Write("<script>alert('添加成功！');parent.document.getElementById('newsclass_list').src = 'newsclass_list.asp?rnd=" & tt & "';parent.Dialog.close();</script>")
    
    end if
    else
        response.Write("<script>alert('类型名称已存在！')</script>")
    rs.close
    end if
    else
    
    sql="select * from tbl_News_Class where Class_Title='" & name & "' and ID <>" &nid
    rs.open sql,conn,1,3,1
    IF rs.EOF then
        rs.close
        sql="update tbl_News_Class set Class_Title='"&name&"',status="&isUse&" where ID="&nid
        on error resume next
        conn.Execute sql,recaffected
        if err<>0 then
            response.Write("<script>alert('修改失败！')</script>")
        else
            response.Write("<script>alert('修改成功！');parent.document.getElementById('newsclass_list').src = 'newsclass_list.asp?rnd=" & tt & "';parent.Dialog.close();</script>")
            response.end
        end if
    else
        response.Write("<script>alert('类型名称已存在！')</script>")
        rs.close
    end if
    
    end if
    
    else
    if t="e" then
        set rs=Server.Createobject("ADODB.Recordset")
        sql="select * from tbl_News_Class where id="&nid
        rs.open sql,conn,1,3,1
        otitle=rs("Class_Title")
        oU=rs("status")
    end if

end if

%>