明辉手游网中心：是一个免费提供流行视频软件教程、在线学习分享的学习平台！

文章发布
全站
软 件 文 章
热门搜索：下载 折扣 win8系统 影响 启动 速度 
资讯首页腾讯视频 爱奇艺 暴风影音 酷狗音乐 酷我音乐影音大全软件下载软件教程电脑系统下载
聊天工具办公软件杀毒教程系统工具图形图像电脑学习应用软件网络软件苹果应用注册码网站教程技术开发安卓教程其它教程
您当前所在位置：网视手游站 -> 网站教程 -> 第3种途径---基于XML的ASP留言板

第3种途径---基于XML的ASP留言板

发表时间：2024-06-02 来源：明辉站整理相关软件相关文章人气：

[摘要]坦白地说，对于ASP我一直都不怎么感兴趣。如果要我写这种服务器端程序的话， 我会选择JSP。所以，本人一直都想在网上弄个便宜点的JSP空间；可是正如miles 前辈所说，连贵一点的都没有，更不用说便宜的了。没办法，只好用ASP了， 对于用ASP写留言板的主要途径，只要是地球人就都知道，用得最多的无...

坦白地说，对于ASP我一直都不怎么感兴趣。如果要我写这种服务器端程序的话，
我会选择JSP。所以，本人一直都想在网上弄个便宜点的JSP空间；可是正如miles
前辈所说，连贵一点的都没有，更不用说便宜的了。没办法，只好用ASP了，
对于用ASP写留言板的主要途径，只要是地球人就都知道，用得最多的无外乎就
是文件组件与数据库组件；而大多提供ASP的服务商基于安全都禁用了文件组件，
也有的禁用了数据库组件。当然，就算用不了这两个组件，也并不代表我们就不
能用脚本来创建文件和修改文件了，我们还有第三种途径：MSXML组件。

以下是我用MSXML组件写的一个留言本程序，主要文件有guest.xml、guest.asp、
include.asp、certain.asp,另加一些图像文件，分别为1.jpg,2.jpg,……图像
文件放在pic目录下。这个脚本在ASP的各版本中均已测试通过，以下是所有的源
代码与讲解，肯请指正。

----------------------------------------------------------------------
◆1◆ guest.xml 该文件用来保存留言的数据文件，相当于数据库。
----------------------------------------------------------------------
<?xml version="1.0" encoding="gb2312"?>
<殷亮的留言本>
<留言>
<昵称>殷亮</昵称>
<头像>pic/20.jpg</头像>
<来自>湖北荆门</来自>
<时间>2002-10-17 22:48:01</时间>
<信箱>ask10@msn.com</信箱>
<内容>这是一个基于XML的留言本</内容>
</留言>
<留言>
<昵称>黄娟</昵称>
<头像>pic/7.jpg</头像>
<来自>湖北武汉</来自>
<时间>2002-10-17 22:48:01</时间>
<信箱>fengzhongluwei@hotmail.com</信箱>
<内容>你好吗?</内容>
</留言>
</殷亮的留言本>
-------------------------------------------------------------------------
上面的XML文件记录了两条留言，可以用任何文本编辑工具编辑，如果没有语法错误，
在浏览器中输入该文件名即可显示XML所独有的树状页面。因为是文本形式的，所以
从创建到修改都比专门的数据库要方便。而XML文档的规则与格式也非常自由，如果
你要创建一个新的XML文件，只需一字不改地照写第一行“<?xml version="1.0"
encoding="gb2312"?>”，而后面的标签与标签之间的text就可以很随意，仅仅遵守
以下规则即可：

1.首标签与尾标签必须对应，可以重复，但不可以嵌套。
2.标签的命名规则与JAVA/C/C++等程序语言的变量命名规则相似，区分大小写。
3.一个文档只能有一个根元素，如实例中的“<殷亮的留言本>”
4.唯一的关键字“XML”，标签不能以这三个字母开头。

如果文档与规则有所冲突，将导制XML文档在浏览器中无法正常显示，且当ASP脚本调
用该文档时也会出现错误，所以强烈建议将写好的XML文件先在浏览器中预览，没有
发现错误时，再开始编写ASP脚本。

下面是关于ASP中读写XML文件的相关语句：（以上面的XML文件为例）

应用组件，读入文件：
set guestXml = Server.CreateObject("MSXML.DOMDocument")
guestXml.load Server.MapPath("guest.xml")

显示第一条留言中的“殷亮”
<%=guestXml.documentelement.childNodes.item(0).childNodes.item(0).text%>
可以解释为：XML对象.XML根标签.子标签集合.第一条.子标签集合.第一条.文本
这样，通过一级一级的访问，最终定位到了第三级标签上。
当然，我们也可以先用 set root = guestXml.documentelement.childNodes
这样，当我们要显示“殷亮”的时候，就可以用：
<%=root.item(0).childNodes.item(0).text%>

显示第二条留言中的“湖北武汉”
<%=guestXml.documentelement.childNodes.item(1).childNodes.item(2).text%>
和数组类似，XML的下标也是由0开始。

显示一个标签中所有子标签的个数，如显示留言总数：
<%=guestXml.documentelement.childNodes.length%>

显示第一条留言中的项目数：
<%=guestXml.documentelement.childNodes.item(0).childNodes.length%>

对文件修改后，保存XML文件,使修改生效：
<%guestXml.save%>

在第一条留言中添加一个子标签“<主题>a test</主题>”
<%
set titleTag = guestXml.createelement("主题") ''''先创建一个标签
titleTag.text= "a test" '''''设定标签中的文本
guestXml.documentelement.childNodes.item(1).appendchild titleTag
'''''添加到指定的标签下
guestXml.save
%>
当你再次打开guest.xml文件时，你会发现添加已经成功。

MSXML对象的相关语法不止这些，但有了这几个关键的，已经足够我们写留言本了。

--------------------------------------------------------------------------
◆2◆ guest.asp 该文件为留言本的主页面，包括显示留言的总数与总页数
--------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% '使浏览器每次都从服务器载入网页
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
A:link {text-decoration:none;color:#000000}
A:active {TEXT-DECORATION:none;color:#CC33FF}
A:visited {TEXT-DECORATION:none;color:#000000}
A:hover {TEXT-DECORATION:underline overline;color:#CCCCFF}
p, br, body, td, select, input, form, textarea, option{ font-family: 宋体; font-size: 9pt }
.input1 { font-size: 9pt; height: 18px; border: 1px #000000 solid; background-color: #CCCCFF}
.input2 { font-size: 9pt; height: 16px; border: 1px #000000 solid; background-color: #CCCCFF}
--></style>
<title>【殷亮的留言本】谨以此留言板献给WISHES</title>
</head>
<body bgcolor="#cc33ff">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" width="750" id="AutoNumber3" height="45">
<tr>
<td width="100%" bgcolor="#9933ff" align="middle" height="21" colspan="2" style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体">&nbsp;【
殷 亮 的 留 言 本 】</td>
</tr>
<% '''''打开数据文件test.xml
set guestXml = Server.CreateObject("MSXML.DOMDocument")
guestXml.load Server.MapPath("guest.xml")
set root = guestXml.documentelement.childNodes

num = root.length '''''获得留言总数
%>
<tr>
<td width="77%" bgcolor="#9933ff" align="left" height="21" style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体">&nbsp;&nbsp;&nbsp;&nbsp;
<%
for i=1 to (num-1)\5+1 '''''因为是每5条留言为1页，所以总页数就是(num-1)\5+1
Response.Write("<a href=include.asp?page="& i &" target=include>")
Response.Write(" 第 "&i&" 页 ") '''''通过此循环便制定了一个页间的导航。
Response.Write("</a>") '''''相当于HTML代码 <a href=include.asp?page=1 target=include>第1页</a>
next
%>
</td>
<td width="23%" bgcolor="#9933ff" align="middle" height="21" style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体">&nbsp;<A href="piclist.html" target="_blank">头像列表</A>
<label id=lab1 onclick="window.scroll(0,70)">书写留言</label></td>
</tr>
</table>
<p><iframe name="include" width="749" height="314" src="include.asp" style="BORDER-RIGHT: #000000 1px double; PADDING-RIGHT: 4px; BORDER-TOP: #000000 1px double; PADDING-LEFT: 4px; PADDING-BOTTOM: 1px; BORDER-LEFT: #000000 1px double; PADDING-TOP: 1px; BORDER-BOTTOM: #000000 1px double">
浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></p>
<table border="1" cellpadding="0" cellspacing="0" bgcolor="#9933ff" style="BORDER-COLLAPSE: collapse" bordercolor="#111111" width="750" id="AutoNumber4" height="1">
<form method="POST" action="certain.asp">
<tr>
<td width="21" height="1" align="left" style="VERTICAL-ALIGN: middle; LINE-HEIGHT: 150%; LETTER-SPACING: 3pt" rowspan="3">留言赠语</td>
<td width="96" height="25" align="middle">您的名字：</td>
<td width="171" height="25" align="middle">
<INPUT size="20" name="textname" class="input1">
</td>
<td width="88" height="25" align="middle">您在何方：</td>
<td width="194" height="25" align="middle">
<INPUT size="20" name="textadd" class="input1">
</td>
<td width="173" height="25" align="middle" colspan="2">
<INPUT size="20" name="textmail" value="yourmail@" class="input1">
</td>
</tr>
<tr>
<td width="552" height="1" colspan="4" rowspan="2"
align="center">
<TEXTAREA style="border-style:double; border-width:3; WIDTH: 523px; HEIGHT: 37px; background-color:#CCCCFF; overflow:hidden" cols="72" rows="1" name="textmsg" class="input1">
</TEXTAREA></td>
<td width="10" height="1" rowspan="2" align="center"><img border="0" src="http://www.okasp.com/techinfo/pic/1.jpg" width="40" height="56" id=idface>
</td>
<td width="159" height="1" align="center">&nbsp;<SELECT name="list" class="input1" style="WIDTH: 61;height:61" onchange="document.images['idface'].src=options[selectedIndex].value;">
<option value=http://www.okasp.com/techinfo/pic/1.jpg selected>头像1
<script language=vbscript>
for i=2 to 15 '''''循环，用以设定下拉列表中的另外14个文件
document.write("<option value=pic/"&i&".jpg>头像"&i)
next
</script>
</option>
</SELECT>
<INPUT style="WIDTH: 65px; HEIGHT: 19px" type="button" value="头像列表" class="input2">
</td>
</tr>
<tr>
<td width="159" height="1" align="center"><INPUT style="WIDTH: 65px; HEIGHT: 19px" type="reset" size="25" value="清空" class="input2">
<INPUT style="WIDTH: 65px; HEIGHT: 19px" type="submit" value="提交" class="input2"></td>
</tr>
</form>
</table>
</center>

<% '''''在浏览器的状态栏中显示类似"当前共有8条留言，分2页显示，最近留言的人是陈树"
status = "当前共有"& num &"条留言，分"& (num-1)\5+1 &"页显示，最近留言的人是"& guestXml.documentelement.lastchild.firstchild.text
Response.Write("<script>")
Response.Write("window.status="&chr(34)& status &chr(34))
Response.Write("</script>")
%>

</body>
</html>

------------------------------------------------------------------------------
◆ 3 ◆ include.asp 该文件嵌入在主页面中，用来显示留言。
------------------------------------------------------------------------------

<% '使浏览器每次都从服务器载入内容
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言赠语</title>
<style>
<!--
p, br, body, td, select, input, form, textarea, option{ font-family: 宋体; font-size: 9pt }
table{border-style:double; border-width:3; padding:0; border-collapse: collapse}
.input1 { font-size: 9pt; border: 1px #000000 solid; background-color: #CCCCFF}

-->
</style>
</head>

<body bgcolor="#CC33FF">
<center>

<% '''''打开留言本数据文件
set guestXml = Server.CreateObject("MSXML.DOMDocument")
guestXml.load(Server.MapPath("guest.xml"))
set root = guestXml.documentelement
num = root.childNodes.length

page=Request.QueryString("page")
if page=Empty then '''''如果没有参数传递，即http://…/include.asp时的情况。
thispage = (num-1)\5+1 '''''每页显示5条留言，用thispage表示当前页码，无参数传递时显示最后一页。
if num mod 5 = 0 then
msgTotal = 5 '''''变量 msgTotal 表示当前页应该显示的留言数量
else
msgTotal = num mod 5
end if
else
thispage = page '''''类似于http://…/include.asp?page=1时的情况
if StrComp(thispage,(num-1)\5+1,1)=0 then
msgTotal = num mod 5
else
msgTotal = 5
end if
end if
msgNum = (thisPage-1)*5+msgTotal ''''msgNum表示当前页显示的留言是总条数的第N条
''''因为是倒序显示，所以第一条留言应该是(thisPage-1)*5+msgTotal
%>

<%for i=1 to msgTotal%>
<%
set xmlNode = root.childNodes.item(msgNum-1).childNodes ''定位到要读取的留言
name = xmlNode.item(0).text '''''name变量表示留言人的姓名.
pic = xmlNode.item(1).text '''''pic变量表示头像的地址。
add = xmlNode.item(2).text '''''add变量表示留言人的地址。
thistime = xmlNode.item(3).text '''''this变量表示留言时间。
''''不显示留言人的EMAIL。
msg = xmlNode.item(5).text ''''msg变量表示留言内容。
%>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="100%" height="106" bgcolor="#FFFFFF">
<tr>
<td width="14%" rowspan="3" height="106" align="center">
<img border="0"
src=<%=pic%> width="100" height="143"></td>
<td width="9%" height="10" align="center" bgcolor="#99CCFF">姓名</td>
<td width="31%" height="10" align="center" bgcolor="#CCCCFF"><%=name%></td>
<td width="10%" height="10" align="center" bgcolor="#99CCFF">来自</td>
<td width="36%" height="10" align="center" bgcolor="#CCCCFF"><%=add%></td>
</tr>
<tr>
<td width="86%" height="83" colspan="4" align="center"
bgcolor="#9933FF"
style="line-height: 150%; margin-left: 50; margin-right: 50">
<TEXTAREA name="textmsg" class="input1" rows="6" cols="87" readonly><%=msg%></TEXTAREA></td>
</tr>
<tr>
<td width="86%" height="11" colspan="4" align=right bgcolor="#CCCCFF">第<%=thispage%>页 第<%=msgTotal-i+1%>条 <%=thistime%> </td>
</tr>
</table>
<br>
<%
msgNum = msgNum-1 ''''倒序显示，所以下一条留言的下标应是当前下标-1
next ''''循环。
%>
</center>
</body>
</html>

-------------------------------------------------------------------------
◆ 4 ◆ certain.asp 该文件用于向XML文件中添加记录，并确认留言。
-------------------------------------------------------------------------
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html;

charset=gb2312">
<title>【殷亮的留言本】留言确认</title>
</head>
<script language=vbscript>
sub btn1_onclick '''''当按下"查看留言"时，将网页导至留言页面
window.location="guest.asp"
end sub

sub btn2_onclick
window.close
end sub
</script>

<body>

<% '定义一个函数，用于检取留言内容。
function htmlencode(str)
dim result
dim l
if isNULL(str) then
htmlencode=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"&lt"
case ">"
result=result+"&gt"
case else
result=result+mid(str,i,1)
end select
next
htmlencode=result
end function

set guestXml = Server.CreateObject("MSXML.DOMDocument")
guestXml.load(Server.MapPath("guest.xml"))
set root = guestXml.documentelement

name = Request.Form("textname") '''''检取表单的各项提交。
pic = Request.Form("list")
add = Request.Form("textadd")
email = Request.Form("textmail")
thistime = now()
msg = Request.Form("textmsg")

set newTag = guestXml.createelement("留言")
root.appendchild newTag

set currentTag = root.lastChild

set nameTag = guestXml.createelement("姓名")
nameTag.text=htmlencode(name)
currentTag.appendchild nameTag

set picTag = guestXml.createelement("头像")
picTag.text=pic
currentTag.appendchild picTag

set addTag = guestXml.createelement("来自")
addTag.text=htmlencode(add)
currentTag.appendchild addTag

set timeTag = guestXml.createelement("时间")
timeTag.text=thistime
currentTag.appendchild timeTag

set emailTag = guestXml.createelement("信箱")
emailTag.text=htmlencode(email)
currentTag.appendchild emailTag

set msgTag = guestXml.createelement("内容")
msgTag.text=htmlencode(msg)
currentTag.appendchild msgTag

guestXml.save(Server.MapPath("guest.xml"))
%>
<embed width="350" height="200" src="http://www.okasp.com/techinfo/pic/certain.swf" style="position: absolute; left: 214; top: 86">'''''一个FLASH文件。
<input type="button" value="查看留言" name="btn1"
style="position: absolute; left: 282; top: 313; border-style: solid; border-width: 1; background-color: #ABB52F">
<input type="button" value="关闭此页" name="btn2"
style="position: absolute; left: 414; top: 313; border-style: solid; border-width: 1; background-color: #ABB52F">
</body>
</html>

---------------------------------------------------------------------------------
备注：

由于我们是用XML文件保存数据，所以在添加数据时的HTML过滤是很重要的。在基于数据库的
留言本中不小心留下一个HTML标签也许不会造成什么太大的问题，但在XML中，后果是严重的
随便的一个标记，甚至随便的一个"<"都可以让你的留言本瘫痪。
如“<姓名>约翰<列浓</姓名>”………………………

上面四个文件源代码都已经过测试，复制后便可使用。
如果你想看示例演示，可以点击后面的链接 示例

你也可以从/article/UploadPic/2006-1/200617201115914.rar处
下载所有脚本文件与图像文件的压缩包。

旨在探讨，如有错漏，欢迎指正与讨论。

感谢站长miles这些日子来不倦的帮助，无以回报，唯有灌上此文。


标签：第3种途径---基于XML的ASP留言板 

推荐资讯 总人气榜

最新教程 本月人气

联系我们|版权声明|下载帮助|关于我们|网站地图|手机站
Copyright © 2015-2020 www.22122511.com AllRights Reserved

本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除，敬请见谅!