<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
    dim yz
    randomize timer
    yz=Int((8999)*Rnd +1009)
    ExeName = ".asp.asa.asax.aspx.
    dim IronUpLoad, Fl,F2,F3
    set IronUpload=server.createobject("Ironsoft.UpLoad")
    IronUpLoad.ID = "FGD"
    IronUpload.BeginUpload
    IronUpload.MaxUploadSize = 10485760
    EC = IronUpload.ErrorCode
    id=request.querystring("id")
    photo=IronUpload.IronForm("photo")
    mmtitle=IronUpload.IronForm("mmtitle")
    tvname=IronUpload.IronForm("tvname")
    detail=IronUpload.IronForm("detail")
    adurl=IronUpload.IronForm("adurl")

set Fl = IronUpload.IronFileForm("photo")
Fn_=id
If Not Fl.IsEmpty Then
    Fn1 = Fl.FileName
    yz=Int((8999)*Rnd +1009)
    Fn_1=Fn_ & right(Fn1,4)
    If instr(ExeName, Fl.ExeName) <> 0 then
%>
    <script>
    alert("为了加强安全性，.asp.asa.asax.aspx.的几种文件扩展名被限制！");
    </script>
<%
        response.end
    End if
    Fl.SaveAsFile (server.Mappath("../bannerPic" & "/" & Fn_1))
    M = 1048576
    K = 1024
    bit=1
    s = IronUpload.IronFileForm("photo").FileSize
    if s >= M then
        s = s \ M
        s = s & "M" & "&nbsp;"
    else
        if s>=K then
        s = s \ K
        s = s & "K" & "&nbsp;"
        else
        s = s \ bit
        s = s & "b" & "&nbsp;"
        end if
    end if
End If

Set IronUpload=nothing

  Set   objXML   =   server.createObject("microsoft.XMLDOM")   '调用XML组建  
  objXML.async   =   false   
  objXML.load(server.MapPath("../bannerPic/bcastr.xml"))  '获得XML存放的位置
 
  Set ProvinceNote = objXML.documentElement.selectSingleNode("item[@id='"+id+"']")'初试化结点
  if Fn_1<>"" then
  ProvinceNote.setAttribute "item_url","bannerPic" & "/" & Fn_1'
  end if
  ProvinceNote.setAttribute "itemtitle",detail'
  ProvinceNote.setAttribute "link",adurl'

  objXML.save(server.MapPath("../bannerPic/bcastr.xml"))   '保存到文件中
  Set   objXML   =   Nothing'
%>
<script>
alert("修改成功")
window.close();
</script>
<%
response.write("<script>alert('修改成功')</script>")
response.redirect "listFlash.asp"
%>

只要相应的组件安装好，每种组件都有相应的示例代码，参考一下改一改！