UC知道哪位高手能帮我修改一下这个留言本的asp源程序。
来源：百度知道 编辑：UC知道 时间：2024/07/04 12:12:41
哪位高手能帮我修改一下这个留言本的asp源程序。程序存在的问题：性别选择中只出现女，我想把它修改成男女均可出现。本人不胜感激！急等！！！修改的好的可另外加分。
源程序如下：
leavemessage.asp
<%Name=trim(Request.form("Name"))
Sex=trim(Request.form("Sex"))
Email=trim(Request.form("Email"))
Subject=trim(Request.form("Subject"))
Content=trim(Request.form("Content"))
'检查数据项不能为空
If Name="" or Email="" or Subject="" or Content="" Then
Response.write "请将表单填写完整！"
Response.wriet "<a href=LeaveMessForm.htm>[返回]</a>"
Response.end
End If
'性别名称转换
If Sex="Man" then
Sex="男"
Else
Sex="女"
End If
'连接数据库
Dim connObj
Dim connStr
Set connObj=Server.CreateObject("ADODB.Connection")
connStr="DBQ="+server.mappath("MessBook.mdb")+";DefaultDi
源程序如下：
leavemessage.asp
<%Name=trim(Request.form("Name"))
Sex=trim(Request.form("Sex"))
Email=trim(Request.form("Email"))
Subject=trim(Request.form("Subject"))
Content=trim(Request.form("Content"))
'检查数据项不能为空
If Name="" or Email="" or Subject="" or Content="" Then
Response.write "请将表单填写完整！"
Response.wriet "<a href=LeaveMessForm.htm>[返回]</a>"
Response.end
End If
'性别名称转换
If Sex="Man" then
Sex="男"
Else
Sex="女"
End If
'连接数据库
Dim connObj
Dim connStr
Set connObj=Server.CreateObject("ADODB.Connection")
connStr="DBQ="+server.mappath("MessBook.mdb")+";DefaultDi
把留言本地表单html代码发出来，看看Sex 选项是不是 Man 和 Woman
首先要学会测试和排错
If Sex="Man" then
Sex="男"
Else
Sex="女"
End If
这个是根据sex的值来判断是男是女，那就把sex 的值输出来看看就行了，如果他永远都不等于"Man"那性别判断就永远是女的
楼主自己再检查一遍，如果能查出来那就恭喜你了，比直接告诉你哪错了要好的多。
If Name="" or Email="" or Subject="" or Content="" Then
改成
If Name="" or Email="" or Subject="" or Content="" or Sex="" Then
或者
If Sex="Man" then
Sex="男"
Else
Sex="女"
End If
改成
If Sex="Man" then
Sex="男"
Elseif Sex="你自己定义的表单域的值" then
Sex="女"
else
Sex="未透露"
End If
：<input type="radio" name="Sex" value="Man" checked>男
<input type="radi