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

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>
...全文
123 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
%>
********************************** 程序名称 : 韩国商城购物系统 Cnc MALL 当前版本 : 单用户简体中文 v1.6版 更新日期 : 2006年 4月 23日 官方地址 : http://www.morningspecial.com/ 中文支持 : http://bbs.cncbbs.cn/ 翻译支持 : http://www.GOFASHION.net/ 演示支持 : http://www.cncbbs.cn/ *********************************** 欢迎PHP编程高手以及美工高手一起组成团队,共同是这个程序完整化,并且永远的免费下去 MORNING MALL中文支持站 : http://bbs.cncbbs.cn/ ********************************** 韩国商城购物系统(中国社区CNC版)使用许可说明. 只同意许可才能使用本产品. 使用前请务必读完以下内容. ******************************************* 1. 您可以自由使用. 2. 作者不承担用户使用中的数据损失及其他损失. 3. 作者没有维持/保证的义务. 4. 没有得到作者允许的情况下,任何人不得以任何方式将本系统以商业为目的发售. 5. [如果你想被人臭骂,你就拿程序去卖钱呵!我们程序永远免费提供并且在论坛慢慢修改程序BUG,欢迎常来论坛看看] 7. 其他疑问事项,请访问中文支持论坛 http://bbs.cncbbs.cn/. 8. 只有对上面的事项认同才能使用 Cnc MALL ------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------ 安 装: ------------------------------------------------------------------------------------------ 1. 解压缩.上传文件到服务器(二进制). 1) 什么是二进制(BINARY)上传?如何设置并使用二进制上传? 所有的 FTP 服务器端和客户端软件均支持两种方式的文件上传,其一为文本(ASCII)上传,其二为二进制(BINARY)上传。 您可以在所有的 FTP 客户端软件中找到有关二进制上传的选项,例如 LeapFTP, CuteFTP 等。以下举例说明这两种客户端 软件设置 *PHP 文件二进制上传的方法。 LeapFTP:在 Options(选项)菜单中选择 Parameters(参数设置),选择其中的(ASCII 扩展名),出现列表后,选中其 中的“*.PHP”,点右边的(删除),再点右边的(确定)即可。如果“*.PHP”项目不存在的话,可直接使用,不需另行设置。 CuteFTP:进入软件后按 ALT+F7 进入 Global Options(全局选项),选择(传输)下面的(ASCII 类型),在右边列表框中 找到名为“PHP”的项目,选定后点右边的(删除),再点下面的(确定)即可。如果“PHP”项目不存在的话,可直接使用, 不需另行设置。 2) 如何更改文件属性? 您只有在服务器使用 Linux/Unix 类操作系统时,才需要在安装时对文件属性进行更改,Windows 系统的服务器不需要更改属性 您可以在 FTP 软件中,选定需要更改属性的文件或目录,然后点右键选择 CHMOD(更改文件属性),输入属性值(如 777), 再确定即可。如果您的 FTP 软件提示无权更改属性,而您又没有办法通过 Shell 的方式登入主机,请与空间服务商联系,要求 其授予您 CHMOD 的权限。 3) 为什么通过访问所有 .php 页面都会出现类似程序代码一样的信息 这种情况是因为您的服务器上 PHP 语言支持环境没有被安装,或配置不正确。请自行安装,或向空间提供商寻求解决。 4) 如果数据库不存在,安装程序可以自动建立数据库吗? 安装程序不提供这个功能,您只能使用已有的数据库。 2. 将所有.php的文件属性设置为755. 3. 运行install.php 开始安装. 4. 输入DB ID/PASSWORD等. 5. 设置管理员ID及口令. 6. 设置完成后以管理员身份登录. admin.php. 7. 安装成功后系统自动生成 config_db.php. 8. 安装完成后请将:install.php、install1.php、install2.php、install_ok.php 四个文件删除 !!!!!! ************************************ SKIN 制 作 1. SKIN在skin/文件夹中. 2. 现在默认SKIN是 default. 3. 对PHP不是很熟悉的情况下对SKIN做修改请慎重. 4. 注:本程序完全开源,欢迎对编程有兴趣,美工有基础的朋友加入 ************************************** 再次感谢各位站长的支持,谢谢! 版本更新和修正地址:http://bbs.cncbbs.cn/viewthread.php?tid=10755&extra=page%3D1
一、启用guest来宾帐户; 二、控制面板→管理工具→本地安全策略→本地策略→用户权利指派里,“从网络访问此计算机”中加入guest帐户,而“拒绝从网络访问这台计算机”中删除guest帐户; 三、我的电脑→工具→文件夹选项→查看→去掉“使用简单文件共享(推荐)”前的勾; 四、设置共享文件夹; 五、控制面板→管理工具→本地安全策略→本地策略→安全选项里,把“网络访问:本地帐户的共享和安全模式”设为“仅来宾-本地用户以来宾的身份验证”(可选,此项设置可去除访问时要求输入密码的对话框,也可视情况设为“经典-本地用户以自己的身份验证”); 六、右击“我的电脑”→“属性”→“计算机名”,该选项卡中有没有出现你的局域网工作组名称,如“work”等。然后单击“网络 ID”按钮,开始“网络标识向导”:单击“下一步”,选择“本机是商业网络的一部分,用它连接到其他工作着的计算机”;单击“下一步”,选择“公司使用没有域的网络”;单击“下一步”按钮,然后输入你的局域网的工作组名,如“work”,再次单击“下一步”按钮,最后单击“完成”按钮完成设置。 访问网上邻居时显示:" windows xp系统访问局域网时显示 "WORKGROUP无法访问.您可能没有权限使用网络资源.请与这台服务器的管理员联系以查明您是否有访问权限.此工作组的服务器的列表当前无法使用." 我用的是xp系统 我也遇到过这样的情况,当时也是着急得不轻,后来看到了以下的内容,照着一步步的做了做,真的好了。内容不少,但是仍然希望你能耐住性子,仔细的看看自己属于那种情况,应该会有所收获。 局域网互访 - [ 网络 ] 我也是类似问题。 以前一个局域网10多台机子互访问。安了蕃茄花园v2.3,感觉主题漂亮,桌面壁纸自动换,很爽。访问局域网计算机没问题。可网内其它机子在工作组内能看到我的机子,但打不开。说什么“没有权限”。所有设置都作了如下改动(网上找的),依然无效,何故?但求高手指点。 “网上邻居”无法互访问题解决方法大全 “网上邻居”无法互访的问题实在是太常见了,无论在学校,网吧还是家里多台电脑联机,都有可能遇到网上邻居无法互访的故展。“网上邻居”无法访问的故障多种多样,总结起来基本上有下面的几个: 1,没有共享资源/共享服务未启用。 症状:电脑与电脑间可以Ping通,但无法访问共享资源,在“计算机管理”中查看“本地共享”后会弹出“没有启动服务器服务”的错误对话框。 解决:在控制面板-管理工具-服务中启动Server服务。并设置“启动类型”为“自动”。 2,IP设置有误。 症状:双机之间无法互Ping,连接用的双绞线经过测试没有问题,没有安装防火墙。 解决:检查两台电脑的IP是否处在同一网段,还有子掩码是否相同。 3,WINXP默认设置不正确。 症状:从WIN98/2000/2003上无法访问另一台WINXP的机器。 解决:在“控制面板”中的“用户帐户”启用Guest帐号。然后在运行中输入secpol.msc启动“本地安全策略”。 本地策略 -> 用户权利指派,打开“从网络访问此计算机”,添加Guest帐户 本地策略 -> 安全选项,禁止"帐户:使用空白密码的本地帐户只允许进行控制台登陆"。 另外有时还会遇到另外一种情况:访问XP的时候,登录对话框中的用户名是灰的,始终是Guest用户,不能输入别的用户帐号。 解决:本地策略 -> 安全选项 -> "网络访问:本地帐户的共享和安全模式",修改为"经典-本地用户以自己的身份验证" 4,系统漏洞修补软件修改了安全策略。 症状:在“网上邻居”中可以看到对方的计算机,但是访问共享时却提示“没有权限访问网络” 解决:在开始菜单运行中输入secpol.msc启动“本地安全策略”,本地策略 -> 用户权利分配,打开“拒绝从网络访问这台计算机”,删除guest用户。 5,防火墙规则。 症状:安装了防火墙(包括WINXP系统自带的防火墙),出现无法Ping通,或者是访问共享资源的时候提示"XXX无法访问"、"您可能没有权限使用网络资源"、"请与这台服务器的管理员联系以查明您是否有访问权限"、"找不到网络路径"等类似的提示。 解决:停止防火墙或者添加局域网的访问规则。 WINXP自带的防火墙:打开控制面板 -> 网络和Internet连接 -> Windows防火墙 -> 例外,勾选“文件和打印机共享”。 6,Win2000/XP与Win98互访 症状:Ping命令可以通过,但无法在“网上邻居”中实现互访。 解决:在WIN2000/XP系统中:控制面板 -> 管理工具 -> 计算机管理 -> 本地用户和组 -> 用户,在Guest帐户上点击鼠标右键,选择属性,在常规项里取消

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧