参考以下:
这个是数据库版的
//page.asp
<%
type1 = Request.QueryString("type1")
type2 = Request.QueryString("type2")
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM [type1]"
Rs1.Open SQL,Conn,3,3
If Rs1.EOF and Rs1.BOF Then
Response.Write "没有一级分类"
Else
Set tid = Rs1("id")
Set ttype1 = Rs1("type1")
Response.Write "<select name='type1' id='type1' onchange=javascript:location.href='page.asp?id=" & tid & "&type1='+type1.value; class='formsize'>"
Response.Write "<option value=''>--------</option>"
Do While NOT Rs1.EOF
Response.Write "<option value='" & tid & "'"
If Int(type1) = Int(Rs1("id")) Then
Response.Write " selected"
sel = True
End If
Response.Write">" & ttype1 & "</option>" & chr(10) & chr(13)
Rs1.MoveNext
Loop
Response.Write "</select>"
End If
Rs1.Close
Response.Write "<font color='red'>/</font>"
If sel <> True Then
Response.Write "请选择上级分类"
Else
SQL = "SELECT * FROM [type2] WHERE [type1]=" & type1
Rs1.Open SQL,Conn,3,3
If Rs1.EOF and Rs1.BOF Then
Response.Write "没有二级分类"
Response.Write "<input type='hidden' name='type2' value=''>"
Else
Set tid = Rs1("id")
Set ttype2 = Rs1("type2")
Response.Write "<select name='type2' id='type2' class='formsize'>"
Response.Write "<option value=''>--------</option>"
Do While NOT Rs1.EOF
Response.Write "<option value='" & tid & "'"
If Int(type2) = Int(Rs1("id")) Then
Response.Write " selected"
selok = True
End If
Response.Write">" & ttype2 & "</option>" & chr(10) & chr(13)
Rs1.MoveNext
Loop
Response.Write "</select>"
End If
Rs1.Close
End If
Set Rs1 = Nothing
%>
/////////////////
<script language="JavaScript">
function TableShow(){
var url1,DeName
DeName=document.form1.Type1.value;
url1="ErrorList.jsp?DeName="+DeName;
form1.action =url1;
form1.submit()
}
</script>
...
<%
s=request.form("选择框名")
sql="select distinc 型号 from 表名"
rs.open sql,conn,3,3
%>
选择型号:<select>
<%
while not rs.eof
if rs("型号")=s then
%>
<option selected><%=rs("型号")<option>
<%
else
%>
<option><%=rs("型号")<option>
<%
rs.movenext
wend
sql2="select 型号 from 表名 where 型号='"&s&"'"
rs2.open sql2,conn,3,3
%>
相应的产品:
<select>
<%
for i=0 to rs2.field.count-1
%>
<option><%=rs2(i)%></option>
<%
rs.movenext
next
%>
</select>
<%
set rs=nothing
set rs2=nothing
rs.close
rs2.close
set conn=nothing
conn.close
...
%>
...