XML+JAVASCRIPT+ASP在线短信息功能(1)

作者:不详 来源: 日期:2002-8-30
使用XML.而无须不断刷新*.ASP.也不用隔一段时间就刷新XML数据.而是在用户把全部新信息看完之后才刷新XML数据,如果一直没有新信息到达,就每3000号秒刷新一次XML数据.有新信息到达的话,刷新就会停止.除非全部新信息已经被用户看完.大大减少服务器负担.

无刷新实现在线信息的更新.一切都在用户不知道的情况下刷新.有新信息到达就用声音/动画提示.
(我后面使用的是OICQ的声音文件,当然你也可以自定义)

带来的问题.因为着重考虑减少服务器的负担.没有使用SESSION,而使用COOKIES代替(因此没有时间限制),因为刷新和数据显示都用JAVASCRIPT,所以某些不怀好意的用户能分析代码并且能自己重新构造一个类市的页面,看到/冒名/删除你的信息.


------------下面只列举一些文件.直接使用的话可能回产生错误-------------
------------因为代码直接在俺那COPY下来,所以如果要使用的话,
请恰当修改一下.后面的所有代码在IIS5+IE5上运行没问题,必须要安装IE5或则以上版本.
因为冲忙贴上的缘故,或许会有些错误.不过应该是没有的了.呵呵!


好了,废话少说,首先来看看我们需要准备的文件:

用户注册页面:.这里要说说注册问题.先看看存放用户注册信息的表:

表的部分字段内容 ID(自动编号) 名字 密码


需要注意的是.在用户注册以后,要在你的服务器硬盘上生成一个属于该用户自己
的,用来存储该用户以后在线信息的XML文件.来,我们看看这个XML文件的内容.

很简单的一个XML
(作为一个模板使用.生成每个用户的XML文件都直接COPY这个XML,
假设名为ROOT1.XML,放在BATCH目录下):
--------------------------------------------

<农村娃娃-出品-必属精品>

---------------------------------------------
呵.生成该XML文件的ASP代码(记得要在用户注册时生成,用表里的用户ID来做该用户的XML文件的文件名)

Function CreateXmlFile( ID ) '参数ID就是代表用户的XML文件名,就是用户信息表里面的自动编号字段数据
Dim Dom
Set Dom = Server.CreateObject("Microsoft.XMLDOM")
Dom.Async = False
Dom.Load(Server.MapPath("Batch/ROOT1.xml"))
If Dom.parseError.errorCode <> 0 Then
CreateXmlFile = True ' 发生错误,生成失败,函数返回TRUE
Else
Dom.Save(Server.MapPath("User/Xml) & "\" & ID & ".xml")
'上面的参数就是生成该用户的XML文件到服务器硬盘上的文件夹里
'(当然你也可以自定义路径,不过每个用户的XML的文件都要放在同一个文件夹)
If Err.number <> 0 Then
Err.Clear
CreateXmlFile = True ' 发生错误,生成失败,函数返回TRUE
End If
End Function


--------------------好了,完成了基本的步骤.等等再看登陆页面-----------------------
相关文章