Asp中使用Xml作为数据存储方式的新闻发布

ASP 专栏收录该内容
2 篇文章 0 订阅

<link href="css.css" rel="stylesheet" type="text/css">

<html>
<style type="text/css">
<!--
body {
 background-color: #CECECE;
}
-->
</style><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻管理</title>
<script language="javascript">
function CheckDel(str)
{
 if(!confirm("确认删除此条新闻吗?"))
  return false;
 myform.txtCmd.value = "Del";
 myform.txtID.value = str;
 myform.submit();
}

function CheckShow(str)
{
 myform.txtCmd.value = "Show";
 myform.txtID.value = str;
 myform.submit();
}

function CheckAdd()
{
 if(myform.txtNewsTitle.value=="")
 {
  alert("新闻标题不可以空");
  myform.txtNewsTitle.focus();
  return(false);
 }
 
 myform.txtCmd.value="Add";
 myform.submit();
}

function CheckEdit()
{
 if(myform.txtNewsTitle.value=="")
 {
  alert("新闻标题不可以空");
  myform.txtNewsTitle.focus();
  return(false);
 }

 myform.txtCmd.value="Edit";
 myform.submit();
}
</script>
</head>

<body>
<br>
<%
cmd = Request("txtCmd")
id = Request("txtID")
NewsTitle = Request("txtNewsTitle")
NewsContent = Request("txtNewsContent")

Dim ShowNewsTitle,ShowNewsContent

Select Case cmd
 case "Del"
  Call Del
 case "Show"
  Call Show
 case "Add"
  Call Add
 case "Edit"
  Call Edit
End Select

Sub Del
 strSourceFile = Server.MapPath("News.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 objXML.load(strSourceFile)
 Set objRootsite = objXML.documentElement.selectSingleNode("news")

 objRootsite.removeChild(objRootsite.childNodes.item(id))   '删除节点
 
 objXML.save(strSourceFile)   '保存结果
 Set objXML=nothing
End Sub

Sub Show
 strSourceFile = Server.MapPath("News.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 objXML.load(strSourceFile)
 
 Set objRootsite = objXML.documentElement.selectSingleNode("news")
      
  ShowNewsTitle    = objRootsite.childNodes.item(id).childNodes.item(0).text
  ShowNewsContent  = objRootsite.childNodes.item(id).childNodes.item(2).text
  
 Set objXML=nothing
End Sub

Sub Add
  strSourceFile = Server.MapPath("news.xml")
  Set objXML = Server.CreateObject("Microsoft.XMLDOM")  
  objXML.load(strSourceFile)  
  If objXML.parseError.ErrorCode <> 0 Then
       objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?><news/>"
    End If

  Set oListNode = objXML.documentElement.selectSingleNode("news").AppendChild(objXML.createElement("new"))  
  Set oDetailsNode = oListNode.appendChild(objXML.createElement("NewsTitle"))
    oDetailsNode.Text = NewsTitle
    Set oDetailsNode = oListNode.appendChild(objXML.createElement("NewsDate"))
    oDetailsNode.Text = Date()    
    Set oDetailsNode = oListNode.appendChild(objXML.createElement("NewsContent"))
    oDetailsNode.Text = NewsContent
 
    objXML.save(strSourceFile)   
  Set objXML=nothing
End Sub

Sub Edit
 strSourceFile = Server.MapPath("News.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 objXML.load(strSourceFile)
 Set objRootsite = objXML.documentElement.selectSingleNode("news")
 
 objRootsite.childNodes.item(id).childNodes.item(0).text = NewsTitle     '修改该接点下的值
 objRootsite.childNodes.item(id).childNodes.item(1).text = Date()
 objRootsite.childNodes.item(id).childNodes.item(2).text = NewsContent
 
 objXML.save(strSourceFile)   '保存结果
 Set objXML=nothing
End Sub
%>

<form name="myform" action="NewsAdmin.Asp" method="post">
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="right"><a href="News.xml" target="_blank"><img src="images/xml.gif" width="36" height="14" border="0"></a></div></td>
  </tr>
</table>

<table border="1" style="border-collapse:collapse" width="80%" align="center">
 <tr>
  <td align="Right">新闻标题:</td>
  <td align="left"><input type="text" name="txtNewsTitle" value="<%=ShowNewsTitle%>"></td>
 </tr>
 <tr>
  <td align="Right">新闻内容:</td>
  <td align="left"><textarea name="txtNewsContent" rows="9" cols="60"><%=ShowNewsContent%></textarea></td>
 </tr>
 <tr>
   <td align="center" colspan="2">
   <input type="button" name="BtAdd" value="新增" onClick="CheckAdd();" <% if Cmd="Show" then Response.Write("disabled")%>>
  <input type="button" name="BtEdit" value="修改" onClick="CheckEdit();" <% If Cmd<>"Show" then Response.Write("disabled") %>>
  <input type="button" name="BtRet" value="取消" onClick="myform.submit();">
  </td>
 </tr>
</table>
<br>
<% 

 strSourceFile = Server.MapPath("News.xml")
 Set objXML = Server.CreateObject("Microsoft.XMLDOM")
 'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 objXML.load(strSourceFile)
 Set objRootsite = objXML.documentElement.selectSingleNode("news")
 
   pagesize = 20
   '每页显示5篇日记
   AllNodesNum = objRootsite.childNodes.length
   '获取子节点数据
   pagenum = AllNodesNum/Pagesize +1  
   '算出总页数
   pageno = request.querystring("pageno") 
   ' 定位到所要的页
   if request("pageno") = "" then
   pageno = pagenum
   else
   pageno=request("pageno")
   end if
   starnodes = pageno*pagesize - 1 
   '获得取始结点
   endnodes   = (pageno-1)*pagesize
    '获得结束结点
   if endnodes<0 then
      endnodes = 0
   end if
'判断起始节点数是否超过总的节点数
 if starNodes > AllNodesNum-1 then
  '如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
  EndNodes  = StartNodes - 19
  StarNodes = AllNodesNum - 1
 end if
 
 if endNodes < 0 then
  endNodes=0
 end if
 %>

<table width="764" border="1" style="border-collapse:collapse" align="center" cellpadding="0" cellspacing="0">
<tr>
 <td width="545" height="21" align="Center">新闻标题</td>
 <td width="154" align="Center">发布时间</td>
 <td width="51" align="center">删除</td>
</tr> 
<%
 
 
 while starNodes >= endNodes 
        NewsTitle    = objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
     NewsDate  = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text

                '替代回车
  content = Replace(content,Chr(10),"<br>")  
  '替代空格
  content = Replace(content,Chr(32),"&nbsp;")
  %>
  <tr>
   <td width="545" height="21" align="Left"><a href="#" onClick="CheckShow(<%=StarNodes%>);"><%=NewsTitle%></a></td>
   <td width="154" align="Center"><%=NewsDate%></td>
   <td align="center"><a href="#" onClick="return CheckDel(<%=StarNodes%>)">删除</a></td>
  </tr>
  <%   starNodes = StarNodes - 1
 wend
 set objXML = nothing  %>
</table><br>

<table width="750" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td><div align="right"><font size="2"><strong>|共有 <%=AllNodesNum%>篇/<%=pagenum%> 页|当前为第 <%=pageno%> 页|
<%  if cint(pageno)<=pagenum and cint(pageno)>1  then'分页
 response.write "<a href='NewsAdmin.asp?pageno="&(pageno-1)&"'>上一页</a>|"
 end if
 if cint(pageno)<cint(pagenum) then
 response.write "<a href='NewsAdmin.asp?PageNo="&(PageNo+1)&"'>下一页</a>|"
 end if 
  %>
       
        <% if PageNum>1 then  
   for num=1 to PageNum
 response.write "<a href='NewsAdmin.asp?PageNo="&(num)&"'>"&(num)&"</a>|"
 next
 end if
 %>
        </strong></font></div></td>
  </tr>
</table>
<input type="hidden" name="txtCmd" value="">
<input type="hidden" name="txtID" value="<%=id%>">
</form>
</body>
</html>
 

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

hj3793

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值