用表单实现asp生成xml文件——同城生活贴吧——123发布网|123同城网|123同城信息网|免费发布信息|123招聘|123交友|123房产

登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

用表单实现asp生成xml文件

发布时间：2010/12/16 14:51:15 发布人：网络游民点击：183

ASP生成xml文件那个程序写好了。带着数据库。
那以后后台添加了内容，更新xml文件就不知道怎么做了。
打算用表单来实现，比方说点击一下按钮，执行那个asp文件。再生成一个xml文件覆盖掉那个原来的xml文件。
可是怎么样能够执行了又不要跳转到那个asp文件页？
比方说点击一下，然后出现更新成功的字样。同时执行了那个asp文件，不要把xml文件的内容显示出来。
或者谁有更好的办法来实现类似的功能，不一定要用表单。

回复此帖

#1楼回复： re:用表单实现asp生成xml文件

网络游民 [2010/12/16 14:51:45]

<%
'利用Stream组件写入文件过程
Sub WriteToTextFile(ByVal FileUrl,ByVal Str,ByVal CharSet)
With Server.CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Charset = CharSet
.Open
.WriteText str
.SaveToFile FileUrl,2
.Flush
.Close
End With
End Sub

If trim(request.Form("action")) = "do" then Call CreateXml()
Sub CreateXml()
dim rs,sql,xmlData
'以下为调用数据库数据编写xml结构，装入变量xmlData
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select id,Title from News order by id desc"
rs.open sql,conn,0,1
xmlData = "<?xml version=""1.0"" encoding=""utf-8""?>" & vbNewLine
xmlData = xmlData & "<root>" & vbNewLine
Do while not rs.eof
xmlData = xmlData & "<news id=""" & rs("id") & """ title=""" & rs("Title") & """ />" & vbNewLine
rs.movenext()
Loop
xmlData = xmlData & "</root>"
rs.close()
Set rs = Nothing
'xml编写完成
Call WriteToTextFile(Server.MapPath("/news.xml"),xmlData,"UTF-8") '调用WriteToTextFile过程将xml文本写入xml文件
conn.close()
Set conn = Nothing
response.Write("<script>alert('更新成功！');window.location.href = 'index.asp';</script>")
response.End()
End Sub
%>

页次：1/1 每页10 总记录数1　

分页： 1

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：