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

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 程序开发 > Web开发 > Asp > 综合文章

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

作者:未知时间:2001-08-10 12:12 出处:互联网责编:chinaitpower

摘要：暂无

---------下面的文件就是发送新信息的NEWINFORMATION.HTM页,代码比较长,慢慢看看-----------

<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>
<script LANGUAGE="Javascript" SRC="../script/XmlHttp.js"></script>
<script LANGUAGE="Javascript" SRC="../script/Pace.js"></script>
<SCRIPT LANGUAGE=Javascript>
<!--
window.focus()
var Cursor = window.opener //上一层窗口对象
Cursor.parent.document.body.onunload = Close //首页关闭,本窗口就关闭
var text
var name

function Close()
{
window.close()
}

function Init()
{
document.all["name"].focus()
}

function FormSubmit()
{
text = document.all["text"].value
name = document.all["name"].value
if(Pace(name))
{
alert("Sorry.\b收信息人的名字不能为空")
document.all["name"].focus()
document.all["name"].select()
}
else
{
if(Pace(text))
{
alert("Sorry.\b您所要发送的信息内容不能为空")
document.all["text"].focus()
document.all["text"].select()
}
else
{
hidden.style.zIndex = 5
Check(Send("<农村娃娃出品-必属精品><NAME>" + code(name) + "</NAME><BODY>" + code(text) + "</BODY></农村娃娃出品-必属精品>","CreateInformation.asp"))
}
}
}

function Check(MissYou)
{
if(MissYou == false)
{
alert("Sorry.\b找不到该名在线会员.消息未能发出.请检查你所填的名字")
Y(false)
}
else
{
switch(parseInt(MissYou))
{
case 1:
alert("Sorry.\b找不到该名在线会员.消息未能发出.请检查你所填的名字")
Y(false)
break;
case 2:
alert("Sorry.\b信息发送失败.请再试一遍")
Y(false)
break
case 3:
Y(true)
break;
default:
alert("Sorry . 信息发送失败.请再试一遍")
Y(false)
}
}
}

function Y(Bool)
{
hidden.style.zIndex = 0
if(Bool)
{
document.all["text"].value = ""
document.all["text"].focus()
}
else
{
document.all["text"].value = text
}
}
-->
</SCRIPT>
</head>

-----------------等等是用户看完所有新信息就删除这些以看过信息的ECHANGXML.ASP文件-----------------------

关闭本页