DW制做动态二级关联菜单
一。在head里放入下面的代码
父表：id, 厂区，厂区代号 子表，ID， 部门，厂区代号
1 A厂 1 1 PMC 1
父表：id, 厂区，厂区代号 子表，ID， 部门，厂区代号
1 A厂 1 1 PMC 1
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
二，查找父级数据
<%
Dim changqu
Dim changqu_cmd
Dim changqu_numRows
<%
Dim changqu
Dim changqu_cmd
Dim changqu_numRows
Set changqu_cmd = Server.CreateObject ("ADODB.Command")
changqu_cmd.ActiveConnection = MM_conn_STRING
changqu_cmd.CommandText = "SELECT * FROM dbo.itsm_changqu"
changqu_cmd.Prepared = true
changqu_cmd.ActiveConnection = MM_conn_STRING
changqu_cmd.CommandText = "SELECT * FROM dbo.itsm_changqu"
changqu_cmd.Prepared = true
Set changqu = changqu_cmd.Execute
changqu_numRows = 0
%>
三，显示父表记录
四查找部门及显示部门
部门:
changqu_numRows = 0
%>
三，显示父表记录
四查找部门及显示部门
部门:
Dim department
Dim department_cmd
Dim department_numRows
Dim department_cmd
Dim department_numRows
Set department_cmd = Server.CreateObject ("ADODB.Command")
department_cmd.ActiveConnection = MM_conn_STRING
department_cmd.CommandText = "SELECT * FROM dbo.itsm_department where changqu_id="&temp&""
department_cmd.Prepared = true
department_cmd.ActiveConnection = MM_conn_STRING
department_cmd.CommandText = "SELECT * FROM dbo.itsm_department where changqu_id="&temp&""
department_cmd.Prepared = true
Set department = department_cmd.Execute
department_numRows = 0
department_numRows = 0
if department.eof or department.bof then
response.write ("")
'如果没有记录，则在这个列表中显示"-----"
else
while not(department.eof or department.bof)'否则就用循环列出一切符合条件的记录。
response.write ("")
department.movenext
wend
end if
end if
%>
response.write ("")
'如果没有记录，则在这个列表中显示"-----"
else
while not(department.eof or department.bof)'否则就用循环列出一切符合条件的记录。
response.write ("")
department.movenext
wend
end if
end if
%>
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12819884/viewspace-558251/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
DW中用session设置访问权限
下一篇：
计算两个时间字段的时间差
请登录后发表评论
登录
全部评论
