帮我看看代码？在线！

mrrdh007 2003-08-23 12:28:48

***vote.htm
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<div align="center"><BR><BR><BR><BR>
<form name="voteform" action="vote.asp" method="get">
<INPUT TYPE="checkbox" NAME="option" value="1">论坛<BR><BR>
<INPUT TYPE="checkbox" NAME="option" value="2">快讯<BR><BR>
<INPUT TYPE="checkbox" NAME="option" value="1">人文<BR><BR>
<INPUT TYPE="submit" value="提交">
</form>
</div>
</BODY>
</HTML>
********************************************************
***vote.xml
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<vote>
<option>
<id>1</id>
<content>论坛</content>
<votenum>5</votenum>
</option>
<option>
<id>2</id>
<content>快讯</content>
<votenum>1</votenum>
</option>
<option>
<id>3</id>
<content>人文</content>
<votenum>1</votenum>
</option>
</vote>
******************************************************
***vote.asp
<%
dim A
dim rootelement
A=split(request.querystring("option"),",",-1,1)
Set xmldom = Server.CreateObject("Microsoft.XMLDOM")
xmldom.async=false
xmldom.load(server.mappath("vote.xml"))
set rootelement=xmldom.documentelement
set optionlist=xmldom.getElementsByTagName("option")
for each aa in A /**从这开始有问题
for each cc in optionlist
if aa=cc.childnodes.item(0).text then
cc.childnodes.item(2).text=cc.childnodes.item(2).text+1
exit for
end if
next
next
xmldom.save(server.mappath("vote.xml"))
%>
**************************************************
就是用XML和ASP做一个简单的投票功能。
投票页面有3个复选框，处理页面接受request，在xml文件中找到相应的节点，然后将
投票数加上1，可是我的代码无论用户选了几项，只能给第一项加上1，其余的都没有变。
大家帮我看看！！！

...全文

24 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

Geniusth 2003-08-24

打赏
举报

将
for each aa in A /**从这开始有问题
for each cc in optionlist
if aa=cc.childnodes.item(0).text then
cc.childnodes.item(2).text=cc.childnodes.item(2).text+1
exit for
end if
next
next
改为下面的试试：
for each aa in A ' 从这开始有问题
for i = 0 to 2
if aa=optionlist.item(i).childNodes.item(0).text then
optionlist.item(i).childNodes.item(2).text =
optionlist.item(0).childNodes.item(2).text+1
exit for
end if
next
next

mrrdh007 2003-08-23