下拉列表如何接收表单的传值

openminder 2010-03-01 09:31:47

表中有一项是类型，我现在在做修改页面，从表单接收传过来的值后，我想让类型一栏以下拉列表的形式给出。下拉后显示表中所有类型项，但不下拉时只显示与表单传过来的值对应的类型，不知怎么写？最好给个例子学习下啊！

...全文

341 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yan11cn 2010-03-01

打赏
举报

你也可以用jquery

<script type="text/javascript" src="jquery-1.2.6.pack.js"></script>

</head>

<body>

<select name="bao_type" id="bao_type" class="BladeSelect1">

<option value='-1'>请选</option>

<option value='1'>年度报告</option>

<option value='2'>季度报告</option>

<option value='3'>月度报告</option>

</select>

<script>$("#bao_type").val("2");</script>

yangcookie 2010-03-01

打赏
举报

<%
currentType=request("类别参数")
set rs=conn.execute("select * from 类别表")

%>
<select name="type">

<%while not rs.eof%>
<option value=" <%=rs("类别值")%>" <%if currentType=rs("类别值") then%> selected="selected" <%end if%>> <%=rs("类别名称")%> </option>
<%
rs.movenext
wend
%>
</select>
<%
rs.close
set rs=nothing
%>

yangcookie 2010-03-01

打赏
举报

1楼方法可以参考

<%
currentType=request("类别参数")
set rs=conn.execute("select * from 类别表")

%>
<select name="type">

<%while not rs.eof%>
<option value=" <%=rs("类别值")%>" <%if currentType=rs("类别值") then%> selected="selected" <%end if%>> <%=rs("类别名称")%> </option>
<%
rs.movenext
wend
%>
</select>

rs.close
set rs=nothing

简若的学习窝 2010-03-01

打赏
举报

建议您做一个绑定的服务器端程序，不用Set来Set 去的，给你看看我写的，请指教：
引用时可写为：
<select name="CRSKINDID" id="CRSKINDID">
<%SelBind("此处为SQL语句，第一个字段为Value，第二个字段为显示值","默认值")%>
</select>

具体函数参考如下：

function SelBind()
{
var tmpobj = arguments[0];
var defValue = arguments.length==1?"":arguments[1];
switch(typeof(tmpobj))
{
case "object": //selBind(tmpJson,defValue)
Response.Write(SelBindArr(SelBindJson,defValue));
break;
case "string": //SelBindRst(tmpsqlStr,defValue)
Response.Write(SelBindRst(tmpobj,defValue));
break;
default:
Response.Write("<script>alert('请检查 Sql 语句');</script>");
break;
}
return;
}

function SelBindJson(tmpJson,defValue)
{
var retStr="";
if(tmpJson.length ==0) return;

var tmpArr = new Array(2);
for(var i in tmpJson[0])
{
tmpArr.push(i);
}

for(var i=0;i<tmpJson.length;i++)
{
var tmpStr = "<option value='" + tmpJson[i][tmpArr[0]] + "'";
if( tmpJson[i][tmpArr[0]]==defValue) tmpStr += " selected='selected'";
tmpStr += ">" + tmpJson[i][tmpArr[tmpArr.length-1]] + "</option>";
retStr += tmpStr;
}

return retStr;
}

function SelBindRst(tmpsqlStr,defValue)
{
var retStr = "";
var tmpRst = new ActiveXObject("Adodb.RecordSet");
tmpRst.Open(tmpsqlStr,connStr,1,1);
if (tmpRst.EOF) return;
var tcol = tmpRst.Fields.Count==1?0:1;

while(!tmpRst.EOF)
{
var tmpStr = "<option value='" + tmpRst.Fields(0).Value + "'";
if (tmpRst.Fields(0).Value == defValue) tmpStr += " selected=selected ";
tmpStr += ">" + tmpRst.Fields(tcol).Value + "</option>";
tmpRst.MoveNext();
retStr += tmpStr;
}

tmpRst.Close();
tmpRst=null;
return retStr;
}

您的连接（红色字体部分）请自己设置。
不对之处请斧正

woshimaikou 2010-03-01

打赏
举报

<%
currentType=request("类别参数")
set rs=conn.execute("select * from 类别表")

%>
<select name="type">

<%while not rs.eof%>
<option value="<%=rs("类别值")%>" <%if currentType=rs("类别值") then%> selected="selected"<%end if%>><%=rs("类别名称")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>

gukuang78 2010-03-01

打赏
举报

currentType与字段的数据格式不同，使用currentType=clng(request.QueryString("typeid") )

openminder 2010-03-01

打赏
举报

有人帮帮我吗，很急啊！~

openminder 2010-03-01

打赏
举报

我这样写，还是不能达到预期的效果，请高手帮我看看问题出在哪！急急急
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<title>物业管理系统</title>
<style type="text/css">

</style>
</head>
<%
Dim id,name,allname,note,mainperson,contactperson,phone,memo
id=request.QueryString("id")
sql="select * from AreaKK where id="&id
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<body>
<form action="savaupdate.asp?id=<%=rs("id")%>" method="post">
<table width="100%" border="1">
<tr>
<td width="18%"> </td>
<td width="35%"> </td>
<td width="7%"> </td>
<td width="40%"> </td>
</tr>
<tr>
<td>设施名称</td>
<td><input type="text" name="name" id="textfield" value="<%=rs("Name")%>" />
<span class="STYLE1">*</span></td>
<td>类别</td>
<td>
<%
currentType=request.QueryString("typeid")
Set rs1=conn.execute("select * from bm_PlaceType")
%>
<select name="leixing">
<%while not rs1.eof%>
<option value="<%=rs1("typeid")%>" <%if currentType=rs1("typeid") then%>
selected="selected"
<%end if%>><%=rs1("Name")%>
</option>
<%
rs1.movenext
wend
%>
</select>
<%
rs1.close
set rs1=nothing
%>
<span class="STYLE1">*</span></td>
</tr>
<tr>
<td height="38">全称</td>
<td><input type="text" name="allname" id="textfield2" value="<%=rs("AllName")%>" /></td>
<td> </td>
<td rowspan="5">
<textarea name="memo" cols="45" rows="4" id="textarea" value="<%=rs("Memo")%>"><%=rs("Memo")%></textarea> </td>
</tr>
<tr>
<td>设施说明</td>
<td><input type="text" name="note" id="textfield7" value="<%=rs("note")%>" /></td>
<td> </td>
</tr>
<tr>
<td>负责人</td>
<td><input type="text" name="mainperson" id="textfield4" value="<%=rs("MainPerson")%>" /></td>
<td>备注</td>
</tr>
<tr>
<td>联系人</td>
<td><input type="text" name="contactperson" id="textfield5" value="<%=rs("contactPerson")%>" /></td>
<td> </td>
</tr>
<tr>
<td>联系电话</td>
<td><input type="text" name="phone" id="textfield6" value="<%=rs("phone")%>" /></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><div align="center">
<input type="submit" name="button" id="button" value="保存" />
</div></td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>