如何判断表单里面元素值？

[weblogical]

<form action="S_kaoqin.asp" method="post" name="frm" onSubmit="return checkform();">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="left" class="tdsahng">姓名：
<select name="xingming">
<%Set rss=conn.Execute("Select [Uname] From Member")
Do while not rss.Eof
%>
<option value="<%=rss("Uname")%>"><%=rss("Uname")%></option>
<%rss.Movenext
Loop
Set rss=Nothing
%>
</select>
<input type="hidden" name="hiddenField" value="del"> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50%" class="tdzhongl">
<input name="RadioGroup1" type="radio" value="Normal" checked/>
正常上班

<input type="radio" name="RadioGroup1" value="later" />
迟到
<input type="radio" name="RadioGroup1" value="shijia" />
事假
<input type="radio" name="RadioGroup1" value="bingjia" />
病假
<input type="radio" name="RadioGroup1" value="gongxiujia"/>
公休假
<input type="radio" name="RadioGroup1" value="jiaban" />
加班
<input type="radio" name="RadioGroup1" value="huanxiu" />
换休
<input type="radio" name="RadioGroup1" value="kuanggong" />
旷工(事假、病假须注明原因)</td>
</tr> </table></td> </tr>

<tr>
<td colspan="2" align="center" class="tdrboder"> 原因如下：
<textarea name="yuanyin" cols="100" rows="5"></textarea></td>
</tr>

<tr><td colspan="2" align="center" class="tdrboder"><input type="submit" name="Submit2" value="提交" onclick="return mychange();"/>
<input type="reset" name="Submit3" value="重置" /></td>
</tr>
</table></form>

在接收页面里面

<%
Dim xingming,Normal,shijia,bingjia,gongxiujia,jiaban,huanxiu,kuanggong,yuanyin
Soft="xingming|Normal|shijia|bingjia|gongxiujia|jiaban|huanxiu|kuanggong|yuanyin"
hiddenField=Request.Form("hiddenField")
For Each StateMent in Request.Form
if StateMent="" then StateMent=1
Response.Write StateMent&"|"&"<br>"
Next
%>

我的意思是单选按钮的value如果等于Normal,shijia,bingjia,gongxiujia,jiaban,huanxiu,kuanggong的其中一个，就把其余的值设置为0，而把等于的那个设置为1，用我上面的办法不能解决，请大家帮助我，谢谢！

[zz95469]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim xingming,Normal,shijia,bingjia,gongxiujia,jiaban,huanxiu,kuanggong,yuanyin

hiddenField=Request.Form("hiddenField")


if Request.Form("RadioGroup1")="Normal" then
Normal=1
shijia=0
bingjia=0
gongxiujia=0
jiaban=0
huanxiu=0
kuanggong=0
end if


if Request.Form("RadioGroup1")="shijia" then
Normal=0
shijia=1
bingjia=0
gongxiujia=0
jiaban=0
huanxiu=0
kuanggong=0
end if

if Request.Form("RadioGroup1")="bingjia" then
Normal=0
shijia=0
bingjia=1
gongxiujia=0
jiaban=0
huanxiu=0
kuanggong=0
end if

if Request.Form("RadioGroup1")="gongxiujia" then
Normal=0
shijia=0
bingjia=0
gongxiujia=1
jiaban=0
huanxiu=0
kuanggong=0
end if

if Request.Form("RadioGroup1")="jiaban" then
Normal=0
shijia=0
bingjia=0
gongxiujia=0
jiaban=1
huanxiu=0
kuanggong=0
end if

if Request.Form("RadioGroup1")="huanxiu" then
Normal=0
shijia=0
bingjia=0
gongxiujia=0
jiaban=0
huanxiu=1
kuanggong=0
end if


if Request.Form("RadioGroup1")="kuanggong" then
Normal=0
shijia=0
bingjia=0
gongxiujia=0
jiaban=0
huanxiu=0
kuanggong=1
end if


response.Write "Normal值："&Normal&"<BR>"
response.Write "shijia值："&shijia&"<BR>"
response.Write "bingjia值："&bingjia&"<BR>"
response.Write "gongxiujia值："&gongxiujia&"<BR>"
response.Write "jiaban值："&jiaban&"<BR>"
response.Write "huanxiu值："&huanxiu&"<BR>"
response.Write "kuanggong值："&kuanggong&"<BR>"
%>

[slayerbb]

楼上写得太多了。。初始的时候定义
Normal=0
shijia=0
bingjia=0
gongxiujia=0
jiaban=0
huanxiu=0
kuanggong=0
然后。。。

呵呵

[zz95469]

对啊，