<select name="Down_type" id="Down_type"> 壹個下列列表
<option value="0" selected="selected">不指定任何分類</option>
<%
Call DBConnBegin()
Sql="select * from Type Where Type_type=5" 查詢類型為5的數據
oRs.open Sql,oConn,1,1 執行SQL語句
Do while Not oRs.Eof 循環語句開始
Response.Write "<option value="""&oRs("Type_ID")&""">"&oRs("Type_Name")&"</option>" 輸出數據
' <option value="1">單頁</option>
' <option value="2">新聞</option>
' <option value="3">產品</option>
oRs.movenext 指針下移
loop
Call DBConnEnd() 關閉數據庫連接
%>
</select> </td>