高分请教：页面上两个combox，一个combox的内容变化，另外一个combox可选项也发生变化，如何实现？

2002-07-24 09:02:32 181 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

开源TMS系统cortex-tms私有化部署与二次开发实战指南运输管理系统（TMS）是现代物流数字化的核心组件，它通过将线下零散的物流操作转化为线上标准化、可追溯的数据流，实现订单、调度、跟踪与结算的全流程管理。其技术原理通常基于微服务架构，采用Spring Boot、Vue.js等成熟技术栈构建，确保系统的稳定性和可扩展性。TMS的技术价值在于显著提升物流企业的运营效率、降低成本并增强过程可控性，尤其适用于中小型物流企业实现从手工管理到系统化管理的跨越。在应用场景上，TMS广泛应用于车队管理、订单跟踪和财务结算等环节。本文聚焦于开源TMS项目cortex-tms，深阅读详情

两个combox的内容都从数据库里取得。
我看了combox内容的变化可以从onchange这里控制，但小弟对网页编程实在不熟，一直没有什么思路，希望各位指教，最好能附上代码，谢谢！

...全文

tree_sitter多语言解析器配置实战指南本文是一份详细的Tree-sitter多语言解析器配置实战指南。文章从零开始，手把手指导如何搭建Python环境、安装指定版本的tree-sitter库、下载并编译多种语言的语法规则，最终构建一个统一的解析器库。通过实战代码演示了如何初始化解析器、解析代码并遍历语法树，旨在帮助开发者高效处理多语言代码分析任务，并分享了高级技巧与常见问题排坑经验。阅读详情

duckcn

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

yonghengdizhen 2002-07-24

打赏
举报

yonghengdizhen 2002-07-24

打赏
举报

<%
HTMLTitle=strHtmlTitlePrefix&" (Change-Reporting party)"
Response.Write GenHtmlHeader(HTMLTitle,strCSSPath & "pagestyle.css")
%>

<script language=javascript src="../../functions/functions.js"></script>
<script language=javascript src="../includes/common.js"></script>
<form name="CENavigite" method="POST" action="../REVIEW/CAPTIAL_EXPENDITURE_VIEW_REPORTING_PARTY.ASP">
<%
Dim oConn,oRs,strSQL
strSQL="(SELECT report_gp_record_no,reporting_group.report_group,0 AS groupid,''"
strSQL=strSQL & " FROM reporting_group WHERE show_to_user=1)"
strSQL=strSQL& " UNION (SELECT report_entity_record_no,reporting_entity,report_group AS groupid,lco"
strSQL=strSQL & " FROM reporting_entity WHERE show_to_user=1"
strSQL=strSQL & " AND report_group IN"
strSQL=strSQL & "(SELECT report_gp_record_no FROM reporting_group WHERE show_to_user=1))"
strSQL=strSQL & "ORDER BY groupid ASC"
'Response.Write strSQL
'Response.End
If ConnectDB("[Master DSN Name]",oConn,false) Then
set oRs=Server.CreateObject("ADODB.Recordset")
oRs.Open strSQL,oConn
if Err.number<>0 then
Set oRs=Nothing
On Error Goto 0
bOOCLIsErr=true
strOOCLErrMsg=strOOCLErrMsg & "Load Reporting Entity failure" 'arrUnknowErr(1)
else
%>
<table width="100%" cellspacing="2" cellpadding="1">
<tr>
<td width="40%">Company:</td>
<td width="60%"><%=Request.Form("CompanyName")%>
</td>
</tr>
<tr>
<td width="40%">Last Updating Party:</td>
<td width="60%"><%=Request.Form("LastUpdateBy")%></td>
</tr>
<tr>
<td width="40%">Last Updating on:</td>
<td width="60%"><%=dfFormatDateTimeForClient(Request.Form("LastUpdateOn"))%></td>
</tr>
<tr>
<td colspan=2>

<input type=hidden name=companyname value="<%=Request.Form("CompanyName")%>">

<input type=hidden name=PeriodFrom value=<%=Request.Form("PeriodFrom")%>>
<input type=hidden name=PeriodTo value=<%=Request.Form("PeriodTo")%>>

<input type=hidden name=CapitalId value=<%=Request.Form("CapitalId")%>>
<input type=hidden name=ReportEntityId value=<%=Request.Form("ReportEntityId")%>>
<input type=hidden name=ReportingParty value="<%=Request.Form("ReportingParty")%>">
<input type=hidden name=Remarks value="<%=Request.Form("Remarks")%>">
<input type=hidden name=LastUpdateBy value=<%=Request.Form("LastUpdateBy")%>>
<input type=hidden name=LastUpdateOn value="<%=Request.Form("LastUpdateOn")%>">

<input type=hidden name=category value="<%=Request.Form("category")%>">
</td>
</tr>
</table>
<table width="100%" cellspacing="2" cellpadding="1">
<tr class=blue_bg height=30>
<td width="30%" style="cursor:hand" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_A_N_C.ASP')">Authorized but not contracted for</td>
<td width="30%" style="cursor:hand" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_A_C.ASP')">Authorized and contracted for</td>
<td width="20%" bgcolor=ccccff>Reporting party</td>
<td width="10%" style="cursor:hand" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_REMARKS.ASP')">Remarks</td>
<td width="20%" style="cursor:hand" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_HISTORY_LOG.ASP')">History log</td>
</tr>
</table>
<BR>
<table width="100%" cellspacing="2" cellpadding="1" align=center>
<%
if not oRs.EOF then
dim LCO,strSelect,ResultArray,i,j,k
ResultArray=oRs.GetRows()
oRs.close
FreeDBRes
%>
<tr>
<td nowrap width=30%>Reporting Group:</td>
<td width=70%>
<%
if IsArray(ResultArray) then
%>
<input type=checkbox onclick="ModifyCtrl()"><select style="width:190px" id=NewGroupId name=NewGroupId class=input disabled onchange="SelectGroup()">
<%
for i=Lbound(ResultArray,2) to Ubound(ResultArray,2)
if ResultArray(2,i)>0 then exit for
if ResultArray(0,i)=Cint(Request.Form("groupid")) then strSelect=" selected"
%>
<option value="<%=ResultArray(0,i)%>"<%=strSelect%>><%=ResultArray(1,i)%></option>
<%
strSelect=""
next
%>
</select>
<%
end if
k=i
%>
</td>
</tr>
<tr>
<td nowrap>Reporting Entity:</td>
<td>
<%
if IsArray(ResultArray) then
%>
<input type=checkbox onclick="ModifyCtrl()"><select style="width:190px" class=input disabled id=NewReportEntityId onchange="SelectItem()">
<%
for i=k to Ubound(ResultArray,2)
if ResultArray(2,i)=Cint(Request.Form("groupid")) then
if ResultArray(0,i)=CInt(Request.Form("ReportEntityId")) then
strSelect=" selected"
LCO=ResultArray(3,i)
end if
%>
<option value="<%=ResultArray(0,i)%>"<%=strSelect%>><%=ResultArray(1,i)%></option>
<%
strSelect=""
end if
next
%>
</select>
<SCRIPT>
var JsResultArray=new Array(<%=Ubound(ResultArray,2)%>)
for(i=0;i<JsResultArray.length;i++)
{
JsResultArray[i]=new Array(<%=Ubound(ResultArray,1)+1%>)
}
<%
for i=k to Ubound(ResultArray,2)
for j=1 to Ubound(ResultArray,1)+1
%>
JsResultArray[<%=i-k%>][<%=j-1%>]="<%=ResultArray(j-1,i)%>"
<%
next
next
%>
</SCRIPT>
<%
end if
%>
</td>
</tr>
<tr>
<td nowrap>LCO:</td><td id=LCO><%=LCO%></td>
</tr>
<tr>
<td nowrap>Reporting Party:</td>
<td>
<input type=checkbox onclick="selectbtn.disabled=!selectbtn.disabled;ModifyCtrl()"><input onkeypress="return false;" class=input id=NewReportingParty disabled value="<%=Request.Form("ReportingParty")%>">
<input type=button value="Select" id=selectbtn class=btn disabled
onclick="dfOpenURLToFixed('../SEARCH/CAPTIAL_EXPENDITURE_SELECT_REPORTING_PARTY.ASP?OriginalParty=<%=Request.Form("ReportingParty")%>')">
</td>
</tr>
<%
else
%>
<SCRIPT>
//无记录的情况下,不能进入修改页.
history.go(-1)
</SCRIPT>
<%
end if
%>
</table>
<BR>
<table>
<tr height=30>
<td align=center>
<input class=btn type=button value="Back" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_REPORTING_PARTY.ASP')">
<input class=btn type=submit value="Confirm" onclick="GoPage('../REVIEW/CAPTIAL_EXPENDITURE_VIEW_REPORTING_PARTY.ASP')">
</td>
</tr>
</table>
<%
end if
else
bOOCLIsErr=true
strOOCLErrMsg=strOOCLErrMsg & arrUnknowErr(0)
End If
FreeDBRes
if bOOCLIsErr Then Response.Write strOOCLErrMsg
%>
</form>

freezwy 2002-07-24

打赏
举报

你搜索“下拉连动”就可以搜索到你想要的代码了。

lanying 2002-07-24

打赏
举报

跟vb里没什么两样,没人会给你写程序,自己去看看163同学录的原码

高分请教：页面上两个combox，一个combox的内容变化，另外一个combox可选项也发生变化，如何实现？

相关推荐