Question

ASP取下拉菜单值问题

程序如下：
index.asp
<select name="selecttyp" class="STYLE29" id="selecttyp">
<option value="教师">教师</option>
<option value="管理员">管理员</option>
<option value="学生">学生</option>
</select>

conn.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<!-- #include file="Connections/conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
dim username
dim pwd
dim typ
username=request.Form("textfield1")
pwd=request.Form("textfield2")
typ=request.Form("selecttyp") 这里没有取到菜单项内的值，不知道是为什么？
if typ<>"" then
sql = "select * from userinfo where 用户名='"&username&"' and 密码='"&pwd&"' and 用户类别='"&typ&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write (sql)
response.write typ
response.write "用户名或密码错误请重新出入！"
response.write "<a href='index.asp'>返回登陆页面</a>"
else if typ="学生" then
response.write "用户名正确！"
response.Redirect"xs.asp"
else if typ="教师" then
response.Redirect"js.asp"
else
response.Redirect"gly.asp"
end if
end if
session("xxname")=username
end if
end if
set rs=nothing
conn.close
set conn=nothing
%>

数据库绝对没有问题，因为我没有用户类型时测试通过！
用session("xxname")=request.Form("selecttyp") 这个也没有用
测试的时候总是显示：select * from userinfo where 用户名='admin' and 密码='admin' and 用户类别='Ա'Ա用户名或密码错误请重新出入！返回登陆页面
就是用户类型没有取到值，总是空格？请高手解决！

Answer 1

你好,你的问题已修正! index.asp这个文件没有问题,而是你的 check.asp这个验证登陆的页面有错误,修正后的代码如下:

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<!-- #include file="Connections/conn.asp" -->

<%

dim username
dim pwd
dim typ

username=request.Form("textfield1")
pwd=request.Form("textfield2")
typ=request.Form("selecttyp")

set rs=server.createobject("adodb.recordset")
sql = "select * from userinfo where username='"&username&"' and password='"&pwd&"' and usersort='"&typ&"'"
rs.open sql,conn,1,1

if rs.eof then
response.write "用户名或密码错误请重新出入!"
response.write "<a href='index.asp'>返回登陆页面</a>"
else

if typ="学生" then
response.Redirect"xs.asp"
elseif typ="教师" then
response.Redirect"js.asp"
elseif typ="管理员" then
response.Redirect"gly.asp"
end if

session("xxname")=username

end if

rs.close
set rs=nothing

conn.close
set conn=nothing
%>

Answer 2

username=request("textfield1")
pwd=request("textfield2")
typ=request("selecttyp")

不用Form试试！有时候是会出现现怪事的！

Answer 3

总是空格就说明你提交的表单没有值，检查你添加的那个列表菜单是否在你提交的<form></form>之内。应该就是你没有把列表放进你提交的表单内，提交后当然接收不到值。小问题，应该检查清楚。

Answer 4

你的FORM表单是什么方法啊？是不是POST方法，而且ACTION动作指定页面是不是执行数据操作的这个页面的？

Answer 5

typ=request.Form("selecttyp") 这里没有取到菜单项内的值，不知道是为什么？
response.write typ
看那个有输出
设TT=request.Form("selecttyp")
response.write TT
看那个有输出
设UU=request("selecttyp")
response.write UU
看那个有输出
那个有，用那个