如果是后台上传的
admn/ndx.xml.ap 里面的add过程序需要修改
ub add
dm lmnt,mag_tm,,tm_nam
f nam"" thn
rpon.Wrt("<crpt>alrt('请填写标题！');htory.back();</crpt>")
rpon.nd()
nd f
f bg"" thn
rpon.Wrt("<crpt>alrt('请填写图片地址！');htory.back();</crpt>")
rpon.nd()
nd f
f mall"" thn
rpon.Wrt("<crpt>alrt('请填写缩图地址！');htory.back();</crpt>")
rpon.nd()
nd f
f tm_n>0 thn
for 0 to tm_n-1
f trm(rqut("tm"&&".nam"))"" thn
rpon.Wrt("<crpt>alrt('请输入完整的参数!');htory.back();</crpt>")
rpon.nd()
nd f
nxt
nd f
t objRoott objXML.lctnglNod(ptm)
t lmntobjRoott.appndChld(objXML.cratlmnt("mag"))
lmnt.tAttrbut "nam", nam
lmnt.tAttrbut "bg", trm(bg)
lmnt.tAttrbut "mall", trm(mall)
lmnt.tAttrbut "dcrpton", dcrpton
lmnt.tAttrbut "mak_n", mak_n
lmnt.tAttrbut "dattm", formatdattm(now(),2) &"&nbp;"& formatdattm(now(),)
t mag_tmlmnt.appndChld(objXML.cratlmnt("tm"))
f tm_n>0 thn
for 0 to tm_n-1
t tm_nammag_tm.appndChld(objXML.cratlmnt(rqut("tm"&&".nam")))
tm_nam.txtrqut("tm"&&".valu")
nxt
nd f
objXML.av(trourcFl)
t mag_tmnothng
t lmntnothng
nd ub
[b]改成[/b]
[cod]
ub add
dm lmnt,mag_tm,,tm_nam
f nam"" thn
rpon.Wrt("<crpt>alrt('请填写标题！');htory.back();</crpt>")
rpon.nd()
nd f
f bg"" thn
rpon.Wrt("<crpt>alrt('请填写图片地址！');htory.back();</crpt>")
rpon.nd()
nd f
f mall"" thn
rpon.Wrt("<crpt>alrt('请填写缩图地址！');htory.back();</crpt>")
rpon.nd()
nd f
f tm_n>0 thn
for 0 to tm_n-1
f trm(rqut("tm"&&".nam"))"" thn
rpon.Wrt("<crpt>alrt('请输入完整的参数!');htory.back();</crpt>")
rpon.nd()
nd f
nxt
nd f
t objRoott objXML.lctnglNod(ptm)
'修改
t lmntobjXML.cratlmnt("mag")
'-----
lmnt.tAttrbut "nam", nam
lmnt.tAttrbut "bg", trm(bg)
lmnt.tAttrbut "mall", trm(mall)
lmnt.tAttrbut "dcrpton", dcrpton
lmnt.tAttrbut "mak_n", mak_n
lmnt.tAttrbut "dattm", formatdattm(now(),2) &"&nbp;"& formatdattm(now(),)
t mag_tmlmnt.appndChld(objXML.cratlmnt("tm"))
f tm_n>0 thn
for 0 to tm_n-1
t tm_nammag_tm.appndChld(objXML.cratlmnt(rqut("tm"&&".nam")))
tm_nam.txtrqut("tm"&&".valu")
nxt
nd f
'新加入
f objRoott.ChldNod.lngth >0 thn
objRoott.nrtBfor lmnt,objRoott.ChldNod(0)
l
objRoott.appndChld(lmnt)
nd f
'-----
objXML.av(trourcFl)
t mag_tmnothng
t lmntnothng
nd ub
[/cod]
注意删除一下代码
f mod"add" thn
pagPagCount
nd f