查看内容

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

  • 2020-01-27 18:56
  • 新浦京编程
  • Views

来看看登陆页面LOGIN.ASP,代码比较长,也可以修改一下页面,使它更美观:

------下面这个文件就是查看信息的GetInformation.htm文件,代码比较长.慢慢看看---------------

<%option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title></title>
<!--#include Virtual="/turbo/Inc/checkUsers_inc.asp"-->
<!--上面加载的是一个验证用户登陆的密码和用户名的文件,这里就不列举了.重要的是,
这个文件,如果用户登陆成功,会生成2个COOKIES,一个叫MyID,保存的是用户的ID,
一个叫MyName,保存的是用户的用户名.这2个COOKIES很重要,将在以后用到.
-->

<html>
<head>
<title>回复信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style/style.css" type="text/css">
<link rel="stylesheet" href="../style/onlineInformation.css" type="text/css">
<script LANGUAGE="Javascript" SRC="../script/XmlCode.js"></script>
<!--上面加载了一个Code函数,用来替换回复的信息里的特殊字符-->
<script LANGUAGE="Javascript" SRC="../script/XmlHttp.js"></script>
<!--上面加载了一个XMLHTTP函数,是发送信息/取回发送返回值的函数-->
<script LANGUAGE="Javascript" SRC="../script/Pace.js"></script>
<!--上面加载了一个PACE函数,用来检查回复信息时,回复的内容是否为空,是就返回TRUE-->
<SCRIPT LANGUAGE=Javascript>
<!--
window.focus()

<!--下面的JAVASCRIPT代码应该把它存为一个JS文件,那样以后用户再次访问.速度会加快-->

var Cursor = window.opener //上一层窗口对象
var NN = false
Cursor.parent.document.body.onunload = Close //首页关闭,本窗口就关闭,因为本窗口需要取得上层窗口的信息

<SCRIPT LANGUAGE=Javascript>
<!--
function SendInformation() // 如果有新信息,点击ID为INFORMATION的DIV,就弹出查看信息的窗口
{

if(Cursor.XmlDom.documentElement.childNodes.length == 0)
{
window.location = "NewInformation.htm" //如果用户按下刷新(F5),会导致数据无法取得并显示,转向发送新信息页面
NN = true
}
else
{
var XmlDom = Cursor.XmlDom.documentElement.childNodes.item(Cursor.Count-1)
var Name = XmlDom.attributes.getNamedItem("NAME").nodeValue
var Date = XmlDom.attributes.getNamedItem("DATE").nodeValue
var NodeText = XmlDom.text
var MissYou = XmlDom.attributes.getNamedItem("ID").nodeValue
}

if( Count < (XmlDom_Length-1))
{
playmusic('music1','play()')
Count = Count + 1
}
else
{
Count = Count + 1
eChang(false)
}
OpenWin("../onlineInformation/GetInformation.htm","GetInformation")
}

function Close()
{
window.close()
}

function OpenWin(Url,WinName) //打开新窗口的函数
{
window.open(Url,WinName,"width=324,height=214,resizable=no,scrollbars=no,left=" 
+((screen.availWidth/2)-200) + ",top=" + ((screen.availHeight/2)-150))
}

function Init()
{
if(NN)
{
return
}

function ReMove() //这个函数是删除用户已经看过的信息.删除完再重新刷新XML数据.
{
XmlDomHttp.open("POST","../onlineInformation/eChangXml.asp",false)
XmlDomHttp.send(XmlDom)
Dom.loadXML(XmlDomHttp.responseText)
if(Dom.parseError.errorCode != 0)
{
alert("Sorry.b出现了错误.在线信息功能已经停止.你可以按b"刷新"b再试一次!!.")
}
else
{
if(eval(Dom.documentElement.childNodes.item(0).text))
{
alert("Sorry.b出现了错误.在线信息功能已经停止.你可以按b"刷新"b再试一次.")
}
else
{
GetXmlData()
}
}
}

Format(Name,Date,NodeText)

function eChang(Bool) //改变DIV的值
{
var Str
if(Bool)
{
Str = "<a href="javascript:SendInformation()"><img src="../onlineInformation/image/yes.gif" border="0"></a>"
}
else
{
Str = "..<b><font size="3">Welcome</font></b>.."
}
document.all["Information"].innerHTML = Str
}

if(Cursor.Count == Cursor.XmlDom_Length)
{
Cursor.ReMove()
}

var XmlDom = new ActiveXObject("Microsoft.XMLDOM")
XmlDom.async=false
var Dom = new ActiveXObject("Microsoft.XMLDOM")
Dom.async=false
var Path = "../onlineInformation/Xml/<%=Request.Cookies("MyID")%>.xml"

}

//上面这个Path变量就是用户的个人XML数据文件地址,还记得刚刚登陆时生成的存放用户ID的COOKIES吗?

function Format(To,Dates,Text)
{
document.all["to"].innerHTML = To
document.all["dates"].innerHTML = Dates
document.all["text"].value = Text
}

上一篇:XML+JAVASCRIPT+ASP在线短信息功能(4) 下一篇:没有了