稍微改了改网上的一个ASP+XML的简易留言本
来源:互联网 发布:什么软件出广告 编辑:程序博客网 时间:2024/05/17 03:44
<?xml version="1.0" encoding="gb2312"?>
<GuestBook version="1.0" realese="2060107">
<Record>
<Name>KAI</Name>
<Email>kai@hostx.org</Email>
<Url>http://www.17xml.com </Url>
<Content>千山万水总是情,常来泡妞行不行?咔咔:_)</Content>
<Time>2006-1-7 11:15:47</Time></Record><Record><Name>jkh</Name><Email>mnmk</Email><Url>kkkii</Url><Content>iuuhhhhhhhh</Content><Time>2006-1-7 11:19:32</Time></Record></GuestBook>
<%@Language="VBScript"%>
<!--#include file="def.asp"-->
<!--#include file="htmlhead.asp"-->
<%
'设置Web页面的信息
Response.Buffer = true
Response.Expires = -1
'显示留言函数init()
'www.knowsky.com
Function init()
entryForm()
'定义局部变量
Dim objXML
Dim arrNames
Dim arrEmails
Dim arrURLS
Dim arrMessages
'创建XMLDOM文档对象,用来存放留言
Set objXML = server.createObject("Msxml2.DOMDocument")
objXML.async = false
objXML.load(server.MapPath("guestbook.xml"))
'取得留言本各元素的集合
Set arrNames = objXML.getElementsByTagName("Name")
Set arrEmails = objXML.getElementsByTagName("Email")
Set arrURLS = objXML.getElementsByTagName("Url")
Set arrMessages = objXML.getElementsByTagName("Content")
Set arrTimes = objXML.getElementsByTagName("Time")
Response.Write "<table border='0' width='758' bgcolor='#ACB375'>"
Response.Write "<tr><td bgcolor='#ffb442' align='center' height='26'>"
Response.Write "<b>各位的留言如下:</b>"
Response.Write "</td></tr>"
'输出留言本各元素的内容,最新的留言先显示
For x=arrNames.length-1 To 0 Step -1
Response.Write "<tr><td>姓名:<a href=mailto:" & arrEmails.item(x).text & ">" & arrNames.item(x).text & "</a></td></tr>"
Response.Write "<tr><td>网址:<a href=" & arrURLS.item(x).text & " target='_blank'>" & arrURLS.item(x).text & "</a><td></tr>"
Response.Write "<tr><td>留言内容:</td></tr>"
Response.Write "<tr><td bgcolor='#ccb442'>" & arrMessages.item(x).text & "</td></tr>"
Response.Write "<tr><td bgcolor='#ccb442'>" & arrTimes.item(x).text & "</td></tr>"
Response.Write "<tr><td> </td></tr>"
Next
Response.Write "</table>"
Set objXML = nothing
End Function
'向XML文件添加留言记录的函数addEntry()
Function addEntry()
'定义局部变量
Dim strName
Dim strEmail
Dim strURL
Dim strMessage
'取得留言表单的输入内容
strName = Request.Form("Name")
strEmail = Request.Form("Email")
strURL = Request.Form("Url")
strMessage = Request.Form("Content")
strTime = Request.Form("Time")
Dim objXML
Dim objEntry
Dim objName
Dim objEmail
Dim objURL
Dim objMessage
Dim objTime
'向XML文件添加留言内容
Set objXML = server.createObject("Msxml2.DOMDocument")
objXML.async = false
objXML.load(server.MapPath("guestbook.xml"))
Set objEntry = objXML.createNode("element", "Record", "")
objXML.documentElement.appendChild(objEntry)
Set objName = objXML.createNode("element", "Name", "")
objEntry.appendChild(objName)
objName.text = strName
Set objEmail = objXML.createNode("element", "Email", "")
objEntry.appendChild(objEmail)
objEmail.text = strEmail
Set objURL = objXML.createNode("element", "Url", "")
objEntry.appendChild(objURL)
objURL.text = strURL
Set objMessage = objXML.createNode("element", "Content", "")
objEntry.appendChild(objMessage)
objMessage.text = strMessage
Set objTime = objXML.createNode("element", "Time", "")
objEntry.appendChild(objTime)
if strTime="" then
strTime= Now()
end if
objTime.text = strTime
objXML.save(server.MapPath("guestbook.xml"))
Response.Redirect("guestbook.asp")
End function
'填写和发送留言表单的函数entryForm()
Function entryForm()
Response.Write "<table width='758' border='0' bgcolor='#ACB375'>"
Response.Write "<tr><td>"
Response.Write "<p align='center'><b>访客留言(XML版)</b></p>"
Response.Write "<hr size='1' color='#847A39' width='100%' noshade>"
Response.Write "<form action=guestbook.asp?action=addEntry method=post>"
Response.Write "<table border='0' align='center'>"
Response.Write "<tr><td>您的姓名:</td><td><input type=text name='Name' /> *必填</td></tr>"
Response.Write "<tr><td>电子邮件:</td><td><input type=text name='Email' /> *选填</td></tr>"
Response.Write "<tr><td>您的Url:</td><td><input type=text name='Url' /> *选填</td></tr>"
Response.Write "<tr><td> </td><td><input type='hidden' name='Time' /></td></tr>"
Response.Write "<tr><td>您的留言:<br />*必填</td><td><textarea name='Content' cols=40 rows=5></textarea></td></tr>"
Response.Write "<tr><td> </td><td><input type=submit value='发布留言' />"
Response.Write " <input type=reset value='取消' /></td></tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "</td></tr>"
Response.Write "</table>"
End Function
%>
<%
'判断是否发送了留言,并更新留言信息
Dim a
a = Request.Querystring("action")
If a<>"" Then
addEntry
else
init
End If
%>
<!--#include file="htmlfoot.asp"-->
- 稍微改了改网上的一个ASP+XML的简易留言本
- 从网上down的一个C# SqlHelper类,自己改了下。挺好用
- 改不好的CSDN博客留言
- 一个有关xml的增删改查
- 过滤html标签(网上找的,又改了改)
- 一个改了版的约瑟夫
- 网上找的一个表单验证类及使用例子(稍微修改了下)
- AutoHotKey写一个改键的小脚本
- [ASP.net]XML留言本
- poj2251的代码又改了改~
- 一个没有MYSQL数据库支持的简易留言本的编写
- 转载自网上的即时通讯 稍微修改了一下bug
- 以前用ASP写的留言本
- 超简单的asp留言本
- 做一个简易的留言栏
- 靠 头像非本人 网上找的 很久的了 一直改不了 什么时间可以改?
- 用ASP.NET 实现对XML文件的增删改
- asp.net对XML的增删改查。
- 程序员的.NET时代
- 常见.Net 英文专业词汇收集
- 多线程同步(三)
- 今天第一次在这里写东西
- AT&T(1)
- 稍微改了改网上的一个ASP+XML的简易留言本
- 【推荐】两款强大的浏览器插件
- 一些算法
- (转)ASP.NET 2.0 绑定高级技巧
- Today.
- Windows XP Embedded(嵌入式) 开发人员的安全性考虑
- XML数据读取的问题困扰着我
- 更改注册表安装驱动程序
- 设计模式之singleton (原创)