白开心
IT博客
::
首页
:: ::
联系
::
聚合
::
管理
::
9 随笔 :: 76 文章 :: 28 评论 :: 0 Trackbacks
<
2024年12月
>
日
一
二
三
四
五
六
24
25
26
27
28
29
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
公告
独坐在路边街角,冷风吹醒,默默地伴着我的孤影。
常用链接
我的随笔
我的评论
我参与的随笔
留言簿
(12)
给我留言
查看公开留言
查看私人留言
文章分类
.Net(学习ing...)(39)
(rss)
Asp+vbScript(14)
(rss)
JavaScript(14)
(rss)
T-SQL(8)
(rss)
经典收藏(8)
(rss)
设计模式
(rss)
文章档案
2013年4月 (1)
2013年3月 (1)
2012年7月 (1)
2012年4月 (1)
2011年10月 (1)
2011年8月 (1)
2011年3月 (1)
2011年2月 (1)
2011年1月 (1)
2010年9月 (1)
2010年6月 (1)
2010年4月 (2)
2010年1月 (1)
2009年11月 (1)
2009年10月 (6)
2009年9月 (3)
2009年8月 (2)
2009年5月 (1)
2008年10月 (2)
2008年9月 (2)
2008年7月 (2)
2008年6月 (1)
2008年3月 (1)
2008年2月 (1)
2008年1月 (1)
2007年12月 (5)
2007年11月 (4)
2007年10月 (2)
2007年9月 (2)
2007年7月 (1)
2007年6月 (2)
2007年4月 (2)
2007年1月 (1)
2006年12月 (1)
2006年11月 (2)
2006年8月 (1)
2006年7月 (1)
2006年5月 (2)
2006年4月 (1)
2006年2月 (1)
2006年1月 (1)
2005年12月 (10)
相册
PhotoShop Study For HuangHuaXiang
我的相册
收藏夹
.NET(1)
(rss)
其他类别
(rss)
搜索
最新评论
1. re: JQUERY的表单异步提交[未登录]
1111111
--111
2. re: JQUERY的表单异步提交
eqedqedasd
--123
3. re: 委托和匿名函数
评论内容较长,点击标题查看
--bracelet shopping
4. re: 递归查询
您好!你的在我这里怎么执行不了啊!
--小陈
5. re: JS操作Xml的相关方法[未登录]
不能保丰到服务器上?
--11
阅读排行榜
1. 窦房折返性心动过速(928)
2. ∷∷∷∷男人感悟一百条∷∷∷∷(710)
3. 人生致命的八个经典问题(657)
4. 秋天不回来(570)
5. 圣诞(467)
评论排行榜
1. 圣诞(0)
2. 人生致命的八个经典问题(0)
3. ∷∷∷∷男人感悟一百条∷∷∷∷(0)
4. 窦房折返性心动过速(0)
5. 秋天不回来(0)
新闻发布,使用xml
<
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
),
"
"
)
%>
<
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
>
posted on 2005-12-11 21:39
白开心
阅读(529)
评论(1)
编辑
收藏
引用
所属分类:
Asp+vbScript
评论
#
re: 简单的新闻发布,使用xml
2005-12-11 22:29
白开心
News.xml
--------------------------
<?xml version="1.0" encoding="gb2312"?>
<webNews>
<news/>
</webNews>
回复
更多评论
刷新评论列表
只有注册用户
登录
后才能发表评论。
Powered by:
IT博客
Copyright © 白开心