求写个简单程序

taylermail 2003-08-01 09:13:43
怎样写个函数才能使我选择了部门名称后 可以在员工姓名框中加载该部门的员工姓名？？？？？？？
<body>
<form method=post id=jb action="asp_submit.asp">
<table border="0" width="100%">
<tr>
<td class="class6"><label for="bumen">部门名称:</label>
<% set res=server.CreateObject ("adodb.recordset")
sql="select bumen from bs_bumen"
res.open sql,session("Connection_String"),3,3
%><select name="bumen" size="1">
<option><%=request("bumen")%></option>
< % do while not res.eof%>
<option value="<%=res("bumen")%>" class="class6"> <%=res ("bumen")% > </option>
<%
res.movenext
loop
res.close
%>
</select>
</td>
</tr>

////////////////////////////////////////
下面这段该怎么改？
<tr>
<td class="class6"><label for="name">员工姓名:</label>
<%dim strDepart
strDepart=Request.querystring("bumen")
set res=server.CreateObject ("adodb.recordset")
sql="select name from bs_name where bumen='" & strDepart & "'"
res.open sql,session("Connection_String"),3,3
%>
<select name="name" size="1">
<% do while not res.eof%>
<option value="<%=res("name")%>" class="class6"><%=res("name")%></option>
<%
res.movenext
loop
res.close
%></select>
</td>
</tr>
//////////////////////////////////////////////////////////////
<p align="center">
<input TYPE="submit" VALUE="提交数据" NAME="B1">
<input TYPE="reset" VALUE="重置数据" NAME="B2"> </p>
</form>
</body>


<script language="vbscript">
sub ok1_onclick()
这里应该怎么写？？？？？？？？？？？？？？//
end sub
</script>

...全文
26 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
还不行吗?
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
其实想实现上面的 只是为了方便 在选择部门时 能够塞选名字 不然全例出来太多了
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
我知道了，是这样子的，你递交的页面是asp_submit.asp
但我做的是让本页面刷新，
你把<select>改成这样的
onchange="document.forms[0].action='本程序的文件名';document.forms[0].submit();"
就是你其它的数据照原来提交,只有选择部门后的数据,返回本页面.
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
怎么回事 我下面有个提交按钮 怎么一选择其他部门后 名字没出来
反到执行了我的另一个提交页面asp_submit.asp 把数据提交到了数据库 我要按提交按钮才执行啊？？
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
按你的要求 选择部门时出错：：：：

Please try the following:

If you typed the page address in the Address bar, make sure that it is spelled correctly.

Open the query.pipewest.cdwater.com.cn home page, and then look for links to the information you want.
Click the Back button to try another link.
HTTP 404 - File not found
Internet Information Services
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
如果不要session("bumen")=response.form("bumen") 还能显示第一个部门的名称和员工
要了后出现楼上的错误
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
Session("bumen")=request.form("bumen")
<td class="class6"><label for="bumen">部门名称:</label>

是request，不是response，不好意思，打错了，加在<td>前面
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
去掉id后

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'form'
/manager/ASP Page1.asp, line 15

我加在
set res=server.CreateObject ("adodb.recordset")
sql="select bumen from bs_bumen"
res.open sql,session("Connection_String"),3,3
session("bumen")=response.form("bumen")


空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
把<form>的id去掉，还是出错的话，把错误信息贴出来看看。
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
session("bumen")=response.form("bumen")我 不知道加在什么地方
随便加一个地方 报错：
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'form'
/manager/ASP Page1.asp, line 12


taylermail 2003-08-01
  • 打赏
  • 举报
 回复
加在什么地方啊？
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
<body>
<form method=post id=jb action="asp_submit.asp">
<table border="0" width="100%">
<tr>
<td class="class6"><label for="bumen">部门名称:</label>
<% set res=server.CreateObject ("adodb.recordset")
sql="select bumen from bs_bumen"
res.open sql,session("Connection_String"),3,3
%><select name="bumen" size="1" onchange="document.forms[0].submit();">
<%
If Session("bumen")="" Then Session("bumen")=res("bumen")
Do While Not res.eof
Response.Write("<OPTION VALUE=" & res("bumen"))
If res("bumen") = Session("bumen") Then Response.Write(" Selected")
Response.Write(">" & res("bumen"))
Response.Write(VbNewLine)
res.MoveNext
Loop
res.close
%>
</select>

</td>
</tr>
<tr>
<td class="class6"><label for="name">员工姓名:</label>
<%
set res=server.CreateObject ("adodb.recordset")
sql="select name from bs_name where bumen='" & Session("bumen") & "'"
res.open sql,session("Connection_String"),3,3
%>
<select name="name" size="1">
<% do while not res.eof%>
<option value="<%=res("name")%>" class="class6"><%=res("name")%></option>
<%
res.movenext
loop
res.close
%></select>
</td>
</tr>
</table>
</body>
我改成这样了 能进入界面 但不能选择部门 一选择就出错
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
Response.Write("<OPTION VALUE=" & res("bumen"))
这一句少了一个")"
还有你要加上
session("bumen")=response.form("bumen")
不然你的员工永远取的都是第一个部门的。
zhuxiaong 2003-08-01
  • 打赏
  • 举报
 回复
用。NET可能简单一下吧，用JS可能要先读出所有的内容，放入数组才行
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
是哪一句，贴出来看一下
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
<body>
<form method=post id=jb action="asp_submit.asp">
<table border="0" width="100%">
<tr>
<td class="class6"><label for="bumen">部门名称:</label>
<% set res=server.CreateObject ("adodb.recordset")
sql="select bumen from bs_bumen"
res.open sql,session("Connection_String"),3,3
%><select name="bumen" size="1" onchange="document.forms[0].submit();">
<%
If Session("bumen")="" Then Session("bumen")=res("bumen")
Do While Not res.eof
Response.Write("<OPTION VALUE=" & res("bumen")
If res("bumen") = Session("bumen") Then Response.Write(" Selected")
Response.Write(">" & res("bumen"))
Response.Write(VbNewLine)
res.MoveNext
Loop
res.close
%>
</select>

</td>
</tr>
<tr>
<td class="class6"><label for="name">员工姓名:</label>
<%
<%set res=server.CreateObject ("adodb.recordset")
sql="select name from bs_name where bumen='" & Session("bumen") & "'"
res.open sql,session("Connection_String"),3,3
%>
<select name="name" size="1">
<% do while not res.eof%>
<option value="<%=res("name")%>" class="class6"><%=res("name")%></option>
<%
res.movenext
loop
res.close
%></select>
</td>
</tr>
</table>
</body>


这样改对了嘛？
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/manager/ASP Page1.asp, line 22, column 46


怎么改啊 yokenhou(风ノ影)
空闲独处 2003-08-01
  • 打赏
  • 举报
 回复
首先你用一个session保存你的bumen
session("bumen")=response.form("bumen")
然后把bumen的select改成下面这样
<select name="bumen" size="1" onchange="document.forms[0].submit();">
<%
If Session("bumen")="" Then Session("bumen")=res("bumen")
Do While Not res.eof
Response.Write("<OPTION VALUE=" & res("bumen")
If res("bumen") = Session("bumen") Then Response.Write(" Selected")
Response.Write(">" & res("bumen"))
Response.Write(VbNewLine)
res.MoveNext
Loop
res.close
%>
</select>

而员工的写法原理同上,用自动提交后返回的bumen来取值,因为如果是第一次进入页面的时候,session("bumen")是空的,所以bumen的<select>是数据表里的第一条记录,因此你的员工的<select>在session("bumen")是空的情况下,要取部门的第一条记录(在上面循环进入前已赋值),程序改为如下就可以了,不用再用什么按钮的Click()

<%set res=server.CreateObject ("adodb.recordset")
sql="select name from bs_name where bumen='" & Session("bumen") & "'"
res.open sql,session("Connection_String"),3,3
%>
taylermail 2003-08-01
  • 打赏
  • 举报
 回复
我不怎么搞的懂数组使用方法？ 请写一下啊 各位大虾
hzqq 2003-08-01
  • 打赏
  • 举报
 回复
你先把所有的内容都从数据库里取出来
放到数组里，然后onChange时放到select中的
加载更多回复（1）
DirectX修复工具 V3.3增强 绿色版
DirectX修复工具(DirectX Repair)是一款系统级工具软件，简便易用。本程序为绿色版，无需安装，可直接运行。 本程序的主要功能是检测当前系统的DirectX状态，如果发现异常则进行修复。程序主要针对0xc000007b问题设计，可以完美修复该问题。本程序中包含了最新版的DirectX redist(Jun2010)，并且全部DX文件都有Microsoft的数字签名，安全放心。 本程序为了应对一般电脑用户的使用，采用了傻瓜式一键设计，只要点击主界面上的“检测并修复”按钮，程序就会自动完成校验、检测、下载、修复以及注册的全部功能，无需用户的介入，大大降低了使用难度。 本程序适用于多个操作系统，如Windows XP（需先安装.NET 2.0，详情请参阅“致Windows XP用户.txt”文件）、Windows Vista、Windows 7、Windows 8、Windows 8.1、Windows 8.1 Update、Windows 10，同时兼容32位操作系统和64位操作系统。本程序会根据系统的不同，自动调整任务模式，无需用户进行设置。 本程序的V3.3版分为标准版、增强版以及在线修复版。其中的标准版以及增强版都包含完整的DirectX组件。除此之外，增强版中还额外包含了c++ Redistributable Package，因此增强版不但能解决DirectX组件的问题，而且还能解决c++组件异常产生的问题。增强版适合无法自行解决c++相关问题的用户使用。在线修复版的功能与标准版相同，只是其所需的文件将通过Internet下载，因此大大减小了程序的体积。本程序的各个版本之间，主程序完全相同，只是配套使用的数据包不同。因此，当您使用标准版数据包时，程序将进行标准修复；当您使用增强版的数据包时，程序将进行增强修复；当数据包不全或没有数据包（即只有DirectX Repair.exe程序）时，程序将进行在线修复。在线修复、离线修复可自由灵活组合，充分满足不同用户的需要。 本程序自V2.0版起采用全新的底层程序架构，使用了异步多线程编程技术，使得检测、下载、修复单独进行，互不干扰，快速如飞。新程序更改了自我校验方式，因此使用新版本的程序时不会再出现自我校验失败的错误；但并非取消自我校验，因此程序安全性与之前版本相同，并未降低。 程序有自动更新c++功能。由于绝大多数软件运行时需要c++的支持，并且c++的异常也会导致0xc000007b错误，因此程序在检测修复的同时，也会根据需要更新系统中的c++组件。自V3.2版本开始使用了全新的c++扩展包，可以大幅提高工业软件修复成功的概率。修复c++的功能仅限于增强版，标准版及在线修复版在系统c++异常时（非丢失时）会提示用户使用增强版进行修复。 程序有两种窗口样式。正常模式即默认样式，适合绝大多数用户使用。另有一种简约模式，此时窗口将只显示最基本的内容，修复会自动进行，修复完成10秒钟后会自动退出。该窗口样式可以使修复工作变得更加简单快速，同时方便其他软件、游戏将本程序内嵌，即可进行无需人工参与的快速修复。开启简约模式的方法是：打开程序所在目录下的“Settings.ini”文件（如果没有可以自己创建），将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能，开启该功能后用户可以自主选择要修复的文件，避免了其他不必要的修复工作。同时，也支持通过文件进行辅助筛选，只要在程序目录下建立“Filter.dat”文件，其中的每一行写一个需要修复文件的序号即可。该功能仅针对高级用户使用，并且必须在正常窗口模式下才有效（简约模式时无效）。 本程序有自动记录日志功能，可以记录每一次检测修复结果，方便在出现问题时，及时分析和查找原因，以便找到解决办法。 程序的“选项”对话框中包含了4项高级功能。点击其中的“注册系统文件夹中所有dll文件”按钮可以自动注册系统文件夹下的所有dll文件。该项功能不仅能修复DirectX的问题，还可以修复系统中很多其他由于dll未注册而产生的问题，颇为实用。点击该按钮旁边的小箭头，还可以注册任意指定文件夹下的dll文件，方便用户对绿色版、硬盘版的程序组件进行注册。点击第二个按钮可以为dll文件的右键菜单添加“注册”和“卸载”项，方便对单独的dll文件进行注册。请注意，并不是所有的dll文件都可以通过这种方式注册。点击“DirectX版本”选项卡可以自行修改系统中DirectX的版本信息。点击“DirectX加速”选项卡可以控制系统中DirectX加速的开启与关闭。 新版程序集成了用户反馈程序，可以在用户允许的前提下发送检测修复结果。用户也可以在出现问题时通过反馈程序和软件作者进行交流，共同查找问题。反馈是完全自愿和匿名（如果不填写E-mail地址）的。 本程序的通用版基于Microsoft .NET Framework 2.0开发，对于Windows 2000、Windows XP、Windows 2003的用户需要首先安装.NET Framework 2.0或更高版本方可运行本程序。有关下载和安装的详细信息请参阅“致Windows XP用户.txt”文件。对于Windows Vista、Windows 7及后续用户，可以直接运行本程序。 同时鉴于Windows 8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中默认未包含.NET Framework 2.0，因此新版的程序文件夹内将包含一个DirectX_Repair_win8的特别版程序，该程序功能与通用版相同，基于.NET Framework 4.0开发，可以在Windows8（Windows 8.1、Windows 8.1 Update）、Windows 10系统中直接运行（其他系统如果安装了.NET Framework 4.0也可以运行这个特别版的程序）。 本程序的官方博客地址为：http://blog.csdn.net/vbcom/article/details/6962388 所有的更新以及技术支持都可以到该博客上找到。
C#做的编辑器源代码
一份H.Prasad写的Editor的C#代码，skm发现了四、五个BUG，做了一 些修改与笔记（见代码中注释），希望大家来一起把这个简单的文本编辑器做得更好。C#完整应用程序代码
核心Java程序设计技术
更重要的是，这个程序应该学生独立思考后设想出的一个软件，每天坚持逐步把它做出来。当这个软件达到特定规模时，设计者才会真正领悟到程序设计的核心价值、各种技术的科学理性意义乃至程序设计的乐趣。   最后...
Java入门知识，写一个最简单java程序
刚开始学习java的时候，可能是一头雾水，不知道从何学起，这里跟大家分享一下的我的Java学习入门文章，大佬勿喷。主要包括的内容Java语言的简介与JRE、JDK、JVM的关系和作用、写一个最简单Java程序、Java环境变量的配置、Notepad配置、最简单的Java程序、代码分析、编译与编译常见错误、执行java程序的方法。
如何写一个简单的爬虫程序
1.首先给爬虫程序找到储存路径 2.按住shift和右键，选择在此处打开Powershell窗口(s) 3.在窗口内输入scrapy（杀毒软件可能会阻止程序运行，不要选择阻止！！！如果不小心选择了阻止，把杀毒软件退掉，重新从第二步开始） 4.在窗口内输入scrapy startproject movie 其中movie是文件的名字，可以自己取 如下图所示即表示成功 5.同时也可以看到第一步打开的储存路径下多了movie这个文件夹 6.打开pycharm，点击左上角，打开刚刚新建的项目（就是mov
ASP

28,391

社区成员

357,060

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章