?? 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 + -