Question

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

以下是我正在使用的代码：

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>

Answer 1

在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

Answer 2

谢谢卢克。我不得不做出一些改变。我正在查询＆＃34; dboptions＆＃34;的数据库。这段代码正在运行：

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>

在表单编辑上保留选项列表选择

2 个答案: