各位程序高手,再帮我看看这个问题吧,再次感谢了!!!

sdlxm88 2004-08-03 04:11:18
下面是两个下拉列表,我想把S1中的内容作为S2中SELECT 语句中的条件。就是S1是个大类,当选择了一个S1中的大类时,要从S2中列出S1中大类中的小类。该如何实现。谢谢谢谢!
<select name="s1">
<option value="0">顶级类</option>
<%
dim rootIDRs
dim tempName
dim i
set rootIDRs=server.createobject("adodb.recordset")
sql="select * from productSort where fatherID=0 order by id" '在productSort表中,fatherID是0表示是大类,该表就有三个字段项,ID,fatherID,name.
rootIDRs.open sql,conn,1,1
i=0
do while not (rootIDRs.eof or err)
tempName=rootIDRs("name")
response.write "<option value='"&rootIDRs("id")&"'>"&tempName&"</option>"
if i>100 then exit do
i=i+1
rootIDRs.movenext
loop
%>
</select>
<select name="s2">
<option value="0">子类</option>
<%
dim root
dim temp
dim j
set root=server.createobject("adodb.recordset")
sql="select * from productSort where ???????????????"
root.open sql,conn,1,1
j=0
do while not (root.eof or err)
temp=root("name")
response.write "<option value='"&root("id")&"'>"&temp&"</option>"
if i>100 then exit do
j=j+1
root.movenext
loop
%>
</select>
...全文
90 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
19az 2004-08-03
<!--#include file="../conn.asp"-->
<!--#include FILE="../upload_5xsoft.inc"-->

<%
On Error Resume Next
Dim sqlQy,rsQy
sqlQy="select * from qyhyb"
set rsQy=conn.execute(sqlQy)
Dim obj
set obj=new upload_5xSoft

Dim floorName
floorName=obj.form("Name")
if floorName<>"" then

floorName=trim(floorName)
end if

'response.write(floorName)
Dim rs,sql
sql="select * from lpb where lpssqyid='"&floorName&"'"
set rs=conn.execute(sql)
'response.write(sql)
%>
<html>
<head>
<title>视频</title>
<link href="../css.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript>
<!--

function sub()
{
form1.action="shipinNew.asp"
form1.submit()

}
-->
</SCRIPT>
</head>
<body>
<form name="form1" method=post action="shiPinNewHaddle.asp" enctype="multipart/form-data">
<div align="center"><b>视频文件上传</b></div>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="519" id="AutoNumber1" align="center">
<tr>
<td><b>企业名称:</b></td>
<td>
<select name="Name" onChange="return sub()" >
<option value="0">-请选择-</option>
<%

while not rsQy.eof
if cint(floorName)=cint(rsQy("qyid")) then
%>
<option value="<%=rsQy("qyid")%>" selected><%=rsQy("qymc")%></option>
<%
else
%>
<option value="<%=rsQy("qyid")%>" ><%=rsQy("qymc")%></option>
<%
end if
rsQy.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td><b>楼盘名称:</b></td>
<td>
<select name="floor">
<option value="0">-请选择-</option>
<%

while not rs.eof
%>
<option value="<%=rs("lpid")%>"><%=rs("lpmc")%></option>
<%
rs.movenext
wend

%>
</select>
</td>
</tr>
<tr>
<td><b>视频文件:</b></td>
<td>

<input name="photo1" type=file>

</td>
</tr>


<tr align=center>
<td colspan=2><div align="center"><input name=submit1 value="提交" type=submit>   
<input name="Submit2" type="reset" value="重置"></div></td>
</tr>

</table>
</form>
</body>


</html>
回复
sdlxm88 2004-08-03
太难了,我看不懂呀,有没有简单些的,谢谢!
回复
xiaowenand 2004-08-03
up
回复
阿_浩 2004-08-03
<!--#include file="CreatSelList.asp"-->
<!--#include file="iif.asp"-->

<%Call CreatSelList("select id,Tag,ParentCode,E_tag from ProductType where parentCode=0","tag","id","var_bmname","onChange='changeLocation(document.form1.var_bmname.options[document.form1.var_bmname.selectedIndex].value)'","","请选择商品类别","")%>
<select name="var_name" style="FONT-SIZE: 9pt">

<option selected >请选择商品子类</option>
</select>
CreatSelList.asp文件
<%
'------------------------------------------------------------
'功能:从数据库中得到数据并生成一个Select Web控件
'
'参数:
' SQL SQL语句,用于从数据库中取数据
' fldText 用于Select中显示出来的数据库字段
' fldValue 用于Select中值的数据库字段
' selName 生成的SelectWeb控件名称(ID号)
' selEvent 生成的SelectWeb控件的javascript事件(onChange时)
' defValue 默认值
' defText 默认显示的文本
' strValue 选定此值
'
'用法:使用时请包含有IIf函数和数据库链接objConnSQL的文件
'
'作者:lyt
'日期:2003年6月18日 于北京
'------------------------------------------------------------
Sub CreatSelList(SQL, fldText, fldValue, selName, selEvent, defValue, defText, strValue)
On Error Resume Next
Response.Write (vbNewLine & "<!--Sub CreatSelList() Written by KIM-->" & vbNewLine)
Response.Write ("<select name='" & selName & "' id='" & selName & "' " & selEvent & ">" & vbNewLine)
If defText <> "" Then
Response.Write (" <option value='" & defValue & "'>" & defText & "</option>" & vbNewLine)
End If
Dim objRsSel
Set objRsSel = Server.CreateObject("ADODB.Recordset")
Set objRsSel = objconn.Execute(SQL)
While Not objRsSel.EOF
If Not (IsNull(objRsSel(fldValue)) Or IsNull(objRsSel(fldText))) Then
Response.Write (" <option value='" & Trim(objRsSel(fldValue)) & "'" & IIf(CStr(strValue) = CStr(Trim(objRsSel(fldValue))), " selected", "") & ">" & Trim(objRsSel(fldText)) & "</option>" & vbNewLine)
End If
objRsSel.MoveNext
Wend
Response.Write ("</select>")
objRsSel.Close()
Set objRsSel = Nothing
If Err.Number Then
Response.Write(Err.Description)
Exit Sub
End If
End Sub
%>
<%
'------------------------------------------------------------
'
'作用:根据表达式的值,来返回两部分中的其中一个。
'
'描述:
'   expr 必要参数,用来判断真伪的表达式。
'   truepart 必要参数。
'     如果 expr 为 True,则返回这部分的值或表达式。
'   falsepart 必要参数。
'     如果 expr 为 False,则返回这部分的值或表达式。
'
'整理:
'日期:2003年3月25日 于北京
'------------------------------------------------------------
'如果expr为真,返回truepart,否则返回falsepart
'------------------------------------------------------------
Function IIf(expr, truepart, falsepart)
If expr Then
IIf = truepart
Else
IIf = falsepart
End If
End Function

'------------------------------------------------------------
'如果expr1>expr2,返回truepart,否则返回falsepart
'------------------------------------------------------------
Function IIfBig(expr1, expr2, truepart, falsepart)
If expr1 > expr2 Then
IIfBig = truepart
Else
IIfBig = falsepart
End If
End Function


iif.asp文件
'------------------------------------------------------------
'如果expr长度为0或为空,返回truepart,否则返回falsepart
'------------------------------------------------------------
Function IIfNull(expr, truepart, falsepart)
If expr = "" Or IsNull(expr) Then
IIfNull = truepart
Else
IIfNull = falsepart
End If
End Function
%>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 04:11
社区公告
暂无公告