关于asp下拉框+数据库的问题,. 20
我有个问题`自己想了几天了`还是不能解决,希望在这能得到解决首先是已知user是注册后存入信息的数据库war是提交后存入的user里有username(帐户)passwo...
我有个问题`自己想了几天了`还是不能解决,希望在这能得到解决
首先是已知user是注册后存入信息的数据库
war是提交后存入的
user里有username(帐户)password(密码)grname(帮派)
然后我在页面上做了个挑战系统
帮派不单单只有一种比如有2种一个总部,一个分部,
我方的帐户和帮派密码都是按照cookies自动登陆的
大概这样
用户:小强
帮派:总部
对方用户是用下拉框+数据来实现的.
下拉框有2选择
问题就在这里了
怎么样让2个下拉框能有关系.(指向?)
第一个是用户名
当选定了一个用户后第二个下拉框会自动选出选定了的用户的帮派名称(如果对方没选第一个`那么第二个是请选择,当选定了后第二个只有一个值,那个值就是用户的帮派)
以下是代码
<select size="1" name="username">
<option value="a">挑战人员</option>
<%
sql = "select * from user"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
response.write "<option value="&rs("username")&">"&rs("username")&"</option>"
rs.movenext
wend
rs.close
set rs=nothing
%>
第一个下拉框是读取用户名
第二个下拉框是读取第一个用户名的帮派 展开
首先是已知user是注册后存入信息的数据库
war是提交后存入的
user里有username(帐户)password(密码)grname(帮派)
然后我在页面上做了个挑战系统
帮派不单单只有一种比如有2种一个总部,一个分部,
我方的帐户和帮派密码都是按照cookies自动登陆的
大概这样
用户:小强
帮派:总部
对方用户是用下拉框+数据来实现的.
下拉框有2选择
问题就在这里了
怎么样让2个下拉框能有关系.(指向?)
第一个是用户名
当选定了一个用户后第二个下拉框会自动选出选定了的用户的帮派名称(如果对方没选第一个`那么第二个是请选择,当选定了后第二个只有一个值,那个值就是用户的帮派)
以下是代码
<select size="1" name="username">
<option value="a">挑战人员</option>
<%
sql = "select * from user"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
response.write "<option value="&rs("username")&">"&rs("username")&"</option>"
rs.movenext
wend
rs.close
set rs=nothing
%>
第一个下拉框是读取用户名
第二个下拉框是读取第一个用户名的帮派 展开
1个回答
展开全部
给你个例子,是部分代码,我想会有些提示的.用ASP无法实现的,必须借助javascript.你看看
<html>
<head>
<script LANGUAGE="javascript">
subcity = new Array(); //定义一个数组,存放所有区县信息
<%
'下面输出所有区县信息,其实利用ASP动态输出JavaScript代码,请注意和Select1.htm的内容比较
Dim db
Set db=Server.CreateObject("ADODB.Connection")
strcon="dbq="&server.mappath("city.mdb")&";driver={microsoft access driver (*.mdb)}"
db.open strcon
Dim strSql,rs,I
strSql="Select * From cities"
Set rs=db.Execute(strSql)
I=0
Do While Not rs.Eof
Response.Write "subcity[" & I & "] = new Array(""" & rs("ProID") & """,""" & rs("CityName") & """,""" & rs("CityID") & """);" & Chr(10) '最后输出一个换行符
I=I+1
rs.MoveNext
Loop
%>
//下面函数用来切换区县
function mychange(provalue) { //proValue参数传入客户选中的省份编号
document.myform.dropcity.length = 0; //将city下拉框先清空
document.myform.dropcity.options[0] = new Option('==请选择区县==','');//先添加第0行
var i;
for (i=0;i < subcity.length; i++) // subcity.length表示数组长度,为5
{
if (subcity[i][0] == provalue) //判断是否属于所选省份
{
//下面语句将在city下拉框最下边添加一个新项
document.myform.dropcity.options[document.myform.dropcity.length] = new Option(subcity[i][1],subcity[i][2]);
}
}
}
</script>
</head>
<body>
<form name="myform" method="post">
<select name="droppro" onChange="mychange(this.options[this.selectedIndex].value);">
<option value="">==请选择省份==</option>
<%
'下面读取所有省份信息
strSql="Select * From provinces"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write "<option value='" & rs("ProID") & "'>" & rs("ProName") & "</option>"
rs.MoveNext
Loop
%>
</select>
<select name="dropcity">
<option value="">==请选择区县==</option>
</select>
</form>
</body>
</html>
有空加我QQ:361866086
<html>
<head>
<script LANGUAGE="javascript">
subcity = new Array(); //定义一个数组,存放所有区县信息
<%
'下面输出所有区县信息,其实利用ASP动态输出JavaScript代码,请注意和Select1.htm的内容比较
Dim db
Set db=Server.CreateObject("ADODB.Connection")
strcon="dbq="&server.mappath("city.mdb")&";driver={microsoft access driver (*.mdb)}"
db.open strcon
Dim strSql,rs,I
strSql="Select * From cities"
Set rs=db.Execute(strSql)
I=0
Do While Not rs.Eof
Response.Write "subcity[" & I & "] = new Array(""" & rs("ProID") & """,""" & rs("CityName") & """,""" & rs("CityID") & """);" & Chr(10) '最后输出一个换行符
I=I+1
rs.MoveNext
Loop
%>
//下面函数用来切换区县
function mychange(provalue) { //proValue参数传入客户选中的省份编号
document.myform.dropcity.length = 0; //将city下拉框先清空
document.myform.dropcity.options[0] = new Option('==请选择区县==','');//先添加第0行
var i;
for (i=0;i < subcity.length; i++) // subcity.length表示数组长度,为5
{
if (subcity[i][0] == provalue) //判断是否属于所选省份
{
//下面语句将在city下拉框最下边添加一个新项
document.myform.dropcity.options[document.myform.dropcity.length] = new Option(subcity[i][1],subcity[i][2]);
}
}
}
</script>
</head>
<body>
<form name="myform" method="post">
<select name="droppro" onChange="mychange(this.options[this.selectedIndex].value);">
<option value="">==请选择省份==</option>
<%
'下面读取所有省份信息
strSql="Select * From provinces"
Set rs=db.Execute(strSql)
Do While Not rs.Eof
Response.Write "<option value='" & rs("ProID") & "'>" & rs("ProName") & "</option>"
rs.MoveNext
Loop
%>
</select>
<select name="dropcity">
<option value="">==请选择区县==</option>
</select>
</form>
</body>
</html>
有空加我QQ:361866086
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询