asp动态生成xml

最新推荐文章于 2019-07-05 17:37:48 发布

quweiie

最新推荐文章于 2019-07-05 17:37:48 发布

阅读量4.2k

点赞数

分类专栏： Asp

本文链接：https://blog.csdn.net/quweiie/article/details/8180337

版权

Asp 专栏收录该内容

38 篇文章 0 订阅

订阅专栏

<!--#include file="../inc/conn.asp" -->
<%
dim rs,sql,id,title,url,strTemp

id=Request.QueryString("id")
title=request.Form("title")
url=request.Form("url")

if id<>"" then
	sql="select * from [videos] where id="&id
else
	sql="select * from [videos] where id is null"
end if
set rs = Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if id="" then rs.addnew
rs("title")=title
rs("url")=url
rs.update
rs.close

strTemp="<?xml version=""1.0"" encoding=""utf-8""?>"
strTemp=strTemp&"<playlist version=""1"" xmlns=""http://xspf.org/ns/0/"">"
strTemp=strTemp&"<trackList>"
rs.open "select * from videos",conn,1,1
if not rs.eof then
	while not rs.eof
		strTemp=strTemp&"<track>"
		strTemp=strTemp&"<title>"&rs("title")&"</title>"
		strTemp=strTemp&"<location>"&rs("url")&"</location>"
		strTemp=strTemp&"</track>"
	  rs.movenext
	wend
end if
rs.close
set rs=nothing
strTemp=strTemp&"</trackList>"
strTemp=strTemp&"</playlist>"

Function saveXml(Text,FileName)    
	dim xmldoc,path 
	set xmldoc= server.CreateObject("MSXML.DOMDocument") 
	path = Server.MapPath(FileName) 
	xmldoc.LoadXML(Text) 
	xmldoc.save(path) 
	set xmldoc= nothing
End Function

call saveXml(strTemp,"../playlist.xml")
strUrl=request.ServerVariables("HTTP_REFERER") 
Response.Write("<script>alert('操作成功!');location.href='"&strUrl&"';</script>")

%>