网站首页 手机版
 注册 登录
您现在的位置: 畅无忧设计 >> 网络编程 >> ASP教程 >> 正文
最新文章
· FSO 组件asp生成html静态页面碰到缓存
· asp实现长文章自动分页插件
· 在ASP中访问和更新Cookies集合
· ASP错误提示大全
· 学习ASP的几个观点
· ASP用两级联动下拉列表来显示大类和小
· ASP取当前页面地址和参数
· ASP删除记录的同时删除相关图片
· asp将查询结果导出到excel
· ASP批量导入Excel到Access或者Sql Se
热门文章
 化境ASP无组件上传类 - upload_5xs
 一个获取ACCESS数据库表名以及表名
 asp将查询结果导出到excel
 艾恩ASP无组件上传修改版
 ASP批量导入Excel到Access或者Sql 
 ASP读取数据库的Flash+JS图片切换特
 ASP用两级联动下拉列表来显示大类和
 ASP+JS实现网页歌曲连播、点播功能
 使用ASP重启服务器
 asp批量替换access数据库中指定字段
相关文章
没有相关文章
asp生成xml文档实例程序代码
来源:壹聚教程 更新时间:2010/8/24 11:22:11 阅读次数:
字体:[ ] 我要投稿

xml部分:

<?xml version="1.0" encoding="gb2312"?>
<bcastr>
<item item_url='../uploadpic/2010052660955221.jpg' link='http://www.bj365cn.com' <itemtitle='01'></item>
<item item_url='../uploadpic/2010052660981189.jpg' link='http://www.bj365cn.com' <itemtitle='02'></item>
<item item_url='../uploadpic/2010052661007093.jpg' link='http://www.bj365cn.com' <itemtitle='03'></item>
<item item_url='../uploadpic/2010052661261797.jpg' link='http://www.bj365cn.com' <itemtitle='04'></item>
<item item_url='../uploadpic/2010052661302501.jpg' link='http://www.bj365cn.com' <itemtitle='05'></item>
</bcastr>

asp教程部分:

<%@language="vbscript" codepage="936"%>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
'建立数据库教程连接
set conn=server.createobject("adodb.connection")
dbpath = server.mappath("../##25gx##/#25gx#.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&dbpath
'打开数据库表
exec="select * from wl_ad"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3

'生成xml
xmlfile=server.mappath("../xml/bcastr.xml")
set fso = createobject("scripting.filesystemobject")
set myfile = fso.createtextfile(xmlfile,true)
myfile.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")
myfile.writeline("<bcastr>")

rs.movefirst   '记录指针移至第一条记录上

while not rs.eof    '当指针未到结尾时执行此循环


'myfile.writeline("<item link='"&rs("wl_pic")&"' link='"&rs("wl_url")&"' <itemtitle='"&rs("wl_title")&"'></item>") 
myfile.writeline("<item item_url='"&rs("wl_pic")&"' link='"&rs("wl_url")&"' <itemtitle='"&rs("wl_title")&"'></item>")

' 输出到文件

rs.movenext   '指针移至下一条记录

wend
rs.close
set rs = nothing
conn.close
set conn=nothing

myfile.writeline("</bcastr>")
myfile.close
%>

<script language="网页特效">
alert(':::更新成功:::');
</script>
<script language="网页特效">
<!--
function clock(){i=i-1
if(i>0)settimeout("clock();",1000);
else self.close();}
var i=0.5
clock();
//-->
</script>

</body>
</html>

  • 上一篇文章:
  • 下一篇文章:
  • 关于我们 - 联系我们 - 广告服务 - 在线投稿 - 友情链接 - 网站地图 - 版权声明
    CopyRight 2008-2010, CWYDESIGN.COM - 畅无忧设计, Inc. All Rights Reserved
    滇ICP备09005765号