0

嗨,我正在创建一个将条目写入数据库的表单。此表格可以打开和编辑。我希望用以前的答案打开表单。表单中的某些字段是选项列表。我创建了一个数组来显示选项列表选项。当表单被提交时,选定的选项被插入到数据库中。但是,当我再次打开表单时,该选择不会出现在选项列表框中,而是出现在数组中的第一项。

这是我正在使用的代码:

dim options, ar1, selectedvalue1, val1

selectedvalue1=Request.Form("pref")

ar1=array("Phone","Email","Trial","Employee","Beta")

for each val1 in ar1
options=options & "<option value=""" & val1 & """"
if val1=selectedvalue1 then options=options & " selected"
options=options & ">" & val1
next

<BR><BR>Preference: <form method="post"><select name="pref">
 <%=options%>
</select><br>
4

2 回答 2

0

谢谢卢克。我不得不做出一些改变。我正在数据库中查询“dboptions”。此代码有效:

dim options, ar1, val1

ar1=array("Phone","Email","Trial","Employee","Beta")

for each val1 in ar1
options=options & "<option value=""" & val1 & """"
if val1=dboptions then 
options=options & " selected"
End If
options=options & ">" & val1
next

<BR><BR>Preference: <select name="pref">
 <%=options%>
</select><br>
于 2015-03-02T16:53:45.067 回答
0

在您的 For Each 循环中,您使用了一个名为“val1”的变量,但随后您只引用了循环内的“val”变量。因此,未在选项上设置该值。

将循环更改为:

for each val1 in ar1
options=options & "<option value=""" & val1 & """"
if val1=selectedvalue1 then options=options & " selected"
options=options & ">" & val1
next
于 2015-02-27T20:21:10.970 回答