Asp classic 在表单编辑时保留拾取列表选择

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

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

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>

dim选项，ar1，selectedvalue1，val1
selectedvalue1=Request.Form（“pref”）
ar1=数组（“电话”、“电子邮件”、“试用”、“员工”、“测试版”）
对于ar1中的每个val1
选项=选项&&&val1
下一个

首选项：

在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

ar1中每个val1的

选项=选项&&&val1
下一个

谢谢卢克。 我不得不做一些改变。我正在查询数据库中的“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>

dim选项、ar1、val1
ar1=数组（“电话”、“电子邮件”、“试用”、“员工”、“测试版”）
对于ar1中的每个val1
选项=选项&&&val1
下一个

首选项：

我确实更正了，谢谢，但尽管我选择的数据（“Beta”）在数据库中，但当我再次打开表单进行编辑时，“Phone”作为我的选择出现在选择列表中。我希望它显示“Beta”。@user2051481您是否正在查询数据库以获取值“Beta”并将其设置为您的“selectedvalue1”值？如果你是的话，请用这个代码更新你原来的帖子。