asp前台网页显示文章的代码
'''''省略的网页内容
<div class="GuideContentInner">
'文章内容
</div>
<script language="javascript" type="text/javascript" src="scripts\keywords.js">
</script>
'''''省略的网页内容
后台写入数据库并生成xml文件的代码
Dim Rss,Sqls
Set Rss = Server.CreateObject("ADODB.RecordSet")
Sqls = "SELECT * FROM article where sort=62 ORDER BY id" '从打开数据库表
Rss.Open Sqls,Conn,1,1 '以只读方式查询数据记录
If Rss.Eof Then
Response.Write "Sorry,no record!" '如果没有记录
Else
Dim objXMLDOM, objRootNode, objNode
Set objXMLDOM = Server.CreateObject("MSXML2.DOMDocument") '创建XML文档对象
Set objRootNode = objXMLDOM.createElement("items") '创建根节点
objXMLDOM.documentElement = objRootNode
Do While Not Rss.Eof '循环出所有记录
Response.Write Rss("title") &"<br>"
Set objNode = objXMLDOM.createElement("item") '创建子节点
objNode.text = Rss("title")
objRootNode.appendChild(objNode)
Rss.MoveNext:Loop '循环结束
objXMLDOM.Save server.mappath("../hotlink.xml") '写入XML文件 可以用变量让用户在页面上自定义文件名
Response.Write "<script>alert('恭喜,写入XML文件成功!');</script>"
Set objNode = Nothing '销毁对象
Set objRowNode = Nothing '销毁对象
Set objRootNode = Nothing '销毁对象
注:热词储存在数据库里,并同时储存在xml。当编辑热词之后,相应储存在数据库和xml文件中
当浏览网页的时候,js文件会打开xml,在文章中找到相应的热词对应链接
本代码是本人开发中实际应用,您可以根据您的实际需要进行相应的完善
欢迎交流
评论1
最新资源