<%
' wite2file.asp
' 写入文件
Sub Write2File(strFile, strContent, blnAppend)
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
' 容错处理
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
Case Else Response.Write Err.Description
'Case Else Response.Write ErrMsg
End Select
End Sub
'调用
'Write2File "c:\dd.ini", "dd", True
'Call Write2File ("c:\dd.ini", "dd", True)
'可以创建文件，但是不能创建目录
%>
createrss.asp
'createrss.asp
<!--＃i nclude file="write2file.asp"-->
dim myrss,enter
enter=false'用来判断myrss是否获得有效数据
'定义rss.xml头，其实就是一步一步用asp文件里面累加出一个字符串，然后写入到文件中，
myrss="<?xml version=""1.0"" encoding=""gb2312"" standalone=""yes""?><rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:trackback=""http://madskills.com/public/xml/rss/module/trackback/"" xmlns:wfw=""http://wellformedweb.org/CommentAPI/""><channel><title>webtitle</title>
<link>sitehost</link><description>webdescription</description><generator>generator</generator>
<language>zh-CN</language><copyright>9xiao.cn</copyright><pubDate>pubDate</pubDate>"
'读取数据<item><...>
'事先定义好数据库连接conn
set rs=server.CreateObject("adodb.recordset")
sql="select * from table"
rs.open sql, conn, 1, 1
if not rs.eof then
enter=true'有内容可以插入rss
do while not rs.eof
myrss=myrss & "<item><title>" & rs("title") & "</title><author>" & rs("author") & "</author><link>" & rs("link") & "</link><pubDate>" & rs("pubdate") & "</pubDate><guid>" & rs("link") & "</guid><description><![CDATA[" & rs("yourcontent") & "]]></description><category>" & rs("category") & "</category></item>"
rs.movenext
loop
end if
rs.close
set rs=nothing
'rss结束
'结束rss.xml
myrss=myrss & "</channel></rss>"
'写入到rss.xml
if enter=true then
Write2File server.MapPath("rss.xml"), myrss, false'不要追加，每次更新,如果要追加的话就要先删除原来的rss.xml了，然后再生成，这里不要了
end if
%>
