0
<html>
<title>Test</title>
<body bgcolor="FFFFFF">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=123;Data Source=1234"
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from 1234"
rs.open SQL, conn
response.write("<table border='1'>")
While Not rs.EOF
response.write("<tr><td>" & rs("Name") & "</td><td>" & rs("PID") & "</td><td>" &     rs("Coords") & "</td><td>" & rs("Items") & "<select size='3' name='itemlist'>Array through option tags here????</select></td></tr>")
rs.MoveNext
Wend
response.write("</table>")
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
%>
</body>
</html>

私のrs( "Items")には多くのコンマ区切り値が含まれているので、各アイテムをリストボックスに追加したいと思います。誰かが私を正しい方向に向けることができますか?ありがとう!

4

1 に答える 1

1

while / wendループのresponse.write行をこれに変更できます。これにより、rs( "Items")からコンマで区切られた値を含む選択ボックスが作成されます。

response.write("<tr><td>" & rs("Name") & "</td><td>" & rs("PID") & "</td><td>" & rs("Coords") & "</td><td><select size='3' name='itemlist'>")
Dim opts, i
opts = Split(rs("Items"), ",")
For i = 0 To UBound(opts)
    response.write("<option>" & opts(i) & "</option>")
Next
response.write("</select></td></tr>")

オプションの値/テキストを個別に選択するなど、より複雑なことを行う必要がある場合、またはオプションを事前に選択する必要がある場合は、これを拡張する必要があります。

于 2012-08-22T05:25:13.363 に答える