***********问题可能很简单,但是我真的不会!*****************

[fafafq3w]

谁能给我一个下拉菜单中的内容是从数据库中读取的例子!
各位大虾,先谢谢了!

[awaysrain]

<select name="select1" onChange="changeGroup()">
<%
Dim Sql
Sql = "SELECT DISTINCT A.GROUPNAME,A.CHNGROUPNAME FROM PUBGATHERPROF A,PUBGATHERUSERCENT B WHERE A.CHNGROUPNAME=B.CHNGROUPNAME AND B.USERNAME ='" &Username&"' ORDER BY A.GROUPNAME"
Set Rs = Conn.Execute(Sql)
Do while not Rs.Eof
%>
<option value="<%=Rs("GROUPNAME")%>"><%=Rs("CHNGROUPNAME")%></option>
<%
Rs.MoveNext
Loop
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
%>
</select>

[fafafq3w]

能不能给个简单的.最好有数据库介绍.有源码就更好了.我发了两条信息,都是这个问题,总共200分,能给的200分都给了,呵呵!
我的信箱:[e-mail]

[逍遥小贼]

<%
connstr="DBQ="+server.mappath(dbase)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};UID="&uid&";PWD="&pwd
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
<select name="select">
<%sql="select * from tablename"
rs.open sql,conn,1,3
do while not rs.eof
%><option value=<%=rs("ID")%>><%=rs("SNAME")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>

[zhusuhao]

楼上的最后加上：</select>

呵呵

[qiong1121]

<select name="Software" size="1">
<option selected value="">请选择软件</option>
<%
set rs8=server.CreateObject("ADODB.RecordSet")
rs8.Source="select * from software " //生成一个数据记录
rs8.Open rs8.Source,conn,1,1
do while not rs8.eof
%>
<option value="<%=rs8("softwareid")%>"><%=rs8("softwarename")%></option>
<%
rs8.movenext
loop
rs8.close
set rs8=nothing
%>
</select>

[zhangguagua]

这样的问题你应该试着自己解决，才有提高。

[Reker熊]

<select>
<%
Set Conn=Server.CreateObject("ADODB.Connection") '建立數據庫連接
Set Rs=Server.CreateObject("ADODB.RecordSet") '建立記錄集
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("數據庫相對路徑")

'例子;Server.MapPath("Db/forum.mdb"),數據庫在當前目錄的DB子目錄中
'如果是MSSQL數據庫,可以使用下列連接方式:
'Conn.Open "Provider=SQLOledb.1;Database=數據庫名;UID=登陸名;PWD=登陸密碼;Data Source=數據庫服務器名或IP"
Rs.Source="Select id,title from tablename"
Rs.Open Rs.Source,Conn,1,1
While Not Rs.EOF
%>
<option value="<%=Rs("id")%>"><%=Rs("title")%></option>
<%
Rs.MoveNext
Wend
%>
</select>
<%
Conn.Close
Set Conn=Nothing
Rs.Close
Set Rs=Nothing
%>

[zhuyngjie]

'从数据库中提取内容生成下拉菜单
'conn为数据库联接 tabel为表名 style下拉菜单样式
public function OutOption(conn,tabel,style,value)
dim re,sql,selected
set re=server.CreateObject("ADODB.RECORDSET")
sql="SELECT * FROM" & tabel & "ORDER BY value"
re.Open sql,conn
Response.Write ("<select " & style & ">" & vbCrLf)
while re.EOF <> true
if trim(re("value"))=trim(value) then
selected=" selected"
else
selected=""
end if
response.write(vbTab & "<option" & selected & "value=""" & re("value") & """>" & re("text") & "</option>" & vbCrLf)
re.MoveNext
wend
Response.Write("</selected>" & vbCrLf)
set re = nothing
end function

[lxxlily]

<select>
<%
Set Conn=Server.CreateObject("ADODB.Connection") '建立數據庫連接
Set Rs=Server.CreateObject("ADODB.RecordSet") '建立記錄集
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("數據庫相對路徑")

'例子;Server.MapPath("Db/forum.mdb"),數據庫在當前目錄的DB子目錄中
'如果是MS-SQL Server數據庫,可以使用下列連接方式:
'Conn.Open "driver=sql server;Database=server;UID=sa;PWD=;Database=test"
sql="Select id,title from table1"
Rs.Open sql,Conn
Do while Not Rs.EOF
%>
<option value="<%=Rs("id")%>"><%=Rs("title")%></option>
<%
Rs.MoveNext
Loop
%>
</select>
<%
Conn.Close
Set Conn=Nothing
Rs.Close
Set Rs=Nothing
%>