📄 editnews.asp
字号:
<!--使用VBScript语言编写脚本-->
<%@ language=VBScript %>
<%
'首先中request对象中获得用于确定新闻的时间值
str=Request.QueryString("datatag")
'创建用于访问XML文档的DOM对象
set xmldoc=Server.createObject("Microsoft.XMLDOM")
'使用load方法将XML文档装入DOM对象
xmldoc.load(Server.MapPath("newsbase.xml"))
'设置查询新闻使用的字符串，字符串的形式如：//new[time="01-11-10//2:48:22"]
'其作用是获得有“new”子元素，
'并且“time”子元素内容为01-11-10//2:48:22的“new”元素
str2="//new[time='"+str+"']"
'使用selectSingleNode方法获得满足条件的“new”元素节点
set node=xmldoc.selectSingleNode(str2)
'获得新闻的标题、作者、摘要、内容、时间等信息
titlestr=node.childNodes(0).text
writerstr=node.childNodes(1).text
briefstr=node.childNodes(2).text
contentstr=node.childNodes(3).text
timestr=node.childNodes(4).text
%>
<html>
<head>
<title>阿当新闻网</title>
<meta content="text/html" http-equiv="charset=gb2312">
<!--编写脚本使用的是JavaScript语言-->
<script language="JavaScript">
function save()
{
//首先判断作者是否输入新闻内容，避免保存空白的新闻信息
//在获得新闻信息之后，将信息以XML文档格式封装
//将客户输入的留言以XML格式发送给服务器
if (title.value=="")
{ alert("请输入新闻标题");return;}
else
{ var titlestr="<title>"+title.value+"</title>" }
if (writer.value=="")
{ alert("请输入新闻作者");return;}
else
{ var writerstr="<writer>"+writer.value+"</writer>" }
if (brief.value=="")
{ alert("请输入新闻摘要");return; }
else
{var briefstr="<brief>"+brief.value+"</brief>"}
if (content.value=="")
{ alert("请输入新闻内容");return; }
else
{var contentstr="<content>"+content.value+"</content>"}
var sendstr=titlestr+writerstr+briefstr+contentstr
sendstr=sendstr+"<time>"+time.value+"</time>"
//创建用于发送信息的XMLHTTP对象的实例
var xhttp=new ActiveXObject("Microsoft.XMLHTTP");
//创建HTTP链接
var url="http://localhost/news/sureedit.asp?"
xhttp.open("POST",url,false);
//发送消息
xhttp.send("<new>"+sendstr+"</new>");
//判断消息发送是否发生错误，出错则输出错误信息
if (xhttp.status!=200)
{
document.write("发生错误："+xhttp.statusText);
document.write("<br>出错原因："+xhttp.responseText);
}
//接收服务器返回的信息
var root=xhttp.responseXML;
//从接收的返回信息中提取消息
//返回的消息被封装在DOM对象中，所以使用DOM对象的方法来提取消息
var str=root.selectSingleNode("//response").text;
//利用警告框显示成功保存留言后的确认信息
alert(str);
return;
}
</script>
</head>
<body>
<center>
<font size="5">阿当新闻网———修改新闻</font>
<hr>
<TABLE>
<TR>
<TD>
<b>标题：</b>
</TD>
<TD>
<input type="text" name="title" SIZE="26" ID="Text1" value="<%=titlestr%>">
</TD>
<TD align="right">
<b>作者：</b>
</TD>
<TD>
<input type="text" name="writer" SIZE="17" ID="Text2" value="<%=writerstr%>">
</TD>
</TR>
<TR>
<TD>
<b>摘要：</b>
</TD>
<TD colspan="3">
<input type="text" name="brief" SIZE="60" ID="Text3" value="<%=briefstr%>">
</TD>
</TR>
<TR>
<TD>
</TD>
</TR>
<TR>
<TD colSpan="4" align="middle">
<STRONG>新 闻 内 容</STRONG>
<BR>
<TEXTAREA id="textarea1" name="content" rows="7" cols="62">
<%=contentstr%>
</TEXTAREA>
</TD>
</TR>
<TR>
<td colspan="4" align="middle">
<BUTTON id="Button1" onclick="save()" type="button">保存</BUTTON>
</td>
</TR>
<TR>
<TD colspan="4">
<input name="time" type="hidden" value="<%=timestr%>" ID="Hidden1">
</TD>
</TR>
</TABLE>
<BR>
<BR>
<HR>
</center>
<!--在页面的底端显示相关的链接-->
<center>
<a href="newshome.htm" title="返回首页">返回首页 </a> <----> <a href='manage.asp'>
管理新闻 </a> <----> <a href='publish.htm'>发布新闻</a>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -