Question

ASP 下拉列表框写入两个字段数据怎么写?

例如：添加班级页面的下拉列4个表框分别是学级、专业、学制、班级。
学籍列表的项目标签是2007，2008，2009，值为2007，2008，2009。
专业列表的项目标签是酒管，旅管，导游，值为01，02，03
学制列表的项目标签是本科，大专，中专，值为01，02，03
班级列表的项目标签是一班，二班，三班，值为01，02，03
四个下拉列表框合并后写入表class的classname字段。但是这样写入的数据是值的合并，结果例如2008010101。如果把值改得和标签一样就会是2008酒管本科一班。
我现在的目的是要两个都要写入，“2008010101”作为生成该班学生的学号前10位，而“2008酒管本科一班”作为该学生的所在班级。
也就是说怎么样让“标签”内容和“值”的内容同时写入不同的字段。
表class的字段为classname，classID.
请问该如何写代码。或者使用其他更简单的方法。
谢谢！

Answer 1

<!--#include file="conn.asp"-->
<form name=form1 method="post" action="">
<select name="grade">
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
</select>
<select name="spec">
<option value="01">酒管</option>
<option value="02">旅管</option>
<option value="03">导游</option>
</select>
<select name="eduSys">
<option value="01">本科</option>
<option value="02">大专</option>
<option value="03">中专</option>
</select>
<select name="classes">
<option value="01">一班</option>
<option value="02">二班</option>
<option value="03">三班</option>
</select>
<input type="hidden" name="f" value="f" />
<input type="submit" name="Submit" value="提交" />
</form>
<%
if request.form("f")="f" then
dim grade,spec,eduSys,classes,specNo,eduSysNo,classesNo
grade=request.form("grade")
specNo=request.form("spec")
eduSysNo=request.form("eduSys")
classesNo=request.form("classes")
select case specNo
case "01":spec="酒管"
case "02":spec="旅管"
case "03":spec="导游"
end select
select case eduSysNo
case "01":eduSys="本科"
case "02":eduSys="大专"
case "03":eduSys="中专"
end select
select case classesNo
case "01":classes="一班"
case "02":classes="二班"
case "03":classes="三班"
end select

conn.execute("insert into class (classid,className) values ('"&grade&specNo&eduSysNo&classesNO&"','"&grade&spec&eduSys&classes&"')")

response.write("<script>alert('添加成功')</script>")

end if
%>

Answer 2

<select id="s1">
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
</select>
<select id="s2>
<option value="01">酒管</option>
<option value="02">旅管</option>
<option value="03">导游</option>
</select>
<select id="s3">
<option value="01">本科</option>
<option value="02">大专</option>
<option value="03">中专</option>
</select>
<select id="s4">
<option value="01">一班</option>
<option value="02">二班</option>
<option value="03">三班</option>
</select>

sql="insert class (classname,classid) values ('" & s1.value & s2.value & s3.value & s4.value & "','" & s1.innerText & s2.innerText & s3.innerText & s4.innerText & "')"

Answer 3

lazy67大侠
不行啊。我现在用的是下面的代码，只能添加到一个字段。

<%
Dim schoolname,schoolmaster,schooladress,schooltel,schooladmin,schoolpwd
schoolname=Trim(Request.Form("xueji")&Request.Form("zhuanye")&Request.Form("xuezhi")&Request.Form("banji"))

Answer 4

在提交表单的时候写一段分析语句，将数字还原成文本，然后通过代码将文本写入数据库相应的字段

Answer 5

<%
Dim schoolname,schoolmaster,schooladress,schooltel,schooladmin,schoolpwd
schoolname=Trim(Request.Form("xueji")&Request.Form("zhuanye")&Request.Form("xuezhi")&Request.Form("banji"))
'在你的项目标签不是从数据库取出可用此法
select case zhuanye
case 01
zhuanye1="酒管"
case 02
zhuanye1="旅管"
case 03
zhuanye1="导游"
case else
zhuanye1="酒管"
end select
'其他类型............
schoolx=Trim(Request.Form("xueji")&zhuanye1&xuezhi1&banji1
%>

Answer 6

你不怕麻烦就用隐藏域,试试
<input type="hidden" name="酒管" value="01">
<input type="hidden" name="旅管" value="02">
<input type="hidden" name="导游" value="03">

<select name="ZhuanYe">
<option value="酒管">酒管</option>
<option value="旅管">旅管</option>
<option value="导游">导游</option>
</select>

<%
dim ZhuanYe = request("ZhuanYe")
dim ZhuanYeId = request(ZhuanYe)
%>

我没试，只是给你提供一个思路

或则你改数据库好了
为什么下拉要写死呢？
为什么不把学籍，专业，学制做成数据库里的基础字段表呢？