在线等帮助!

张三大胖 2006-08-15 09:02:46
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script language="javascript">
function openurl(url)
{
window.open(url,"", "height=530, width=600, toolbar =no, menubar=no, scrollbars=yes, resizable=no, location=no, status=no");
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>选择要显示的科目代码</title>
<style type="text/css">
<!--
body {
background-color: #66CCFF;
}
-->
</style></head>

<body>
<div align="center"><strong>选择要显示的科目代码:</strong></div>
<form id="form1" name="form1" method="post" action="balance.asp" target="_blank">

<p align="center"><span class="BGrayBG1"><a href="meiyong.asp" target="_self">分类选择科目代码</a>
<select name="select2" onChange="if (this.selectedIndex!=0) window.location.replace("xuanze.asp?select2="this.value)">
<option>qingxuanze</option>
<option value="1">111111</option>
<option value="2">222222</option>
<option value="3">333333</option>
<option value="4">444444</option>
<option value="5">555555</option>
</select>
时间戳:
<select name="select1" class="BGrayBG1">
<%sql1="select distinct 时间戳 from t_nbwl2006 order by 时间戳 asc"
set rs=conn.execute(sql1)
do while not rs.eof
%>
<option value="<%=rs("时间戳")%>" selected="selected" ><%=rs("时间戳")%></option>
<%
rs.movenext
loop
set rs=nothing
%>
</select>
公司名称:
<input name="key1" type="text" class="RedColor" size="10" />
<input name="Submit3" type="submit" class="BGrayBG1" value="确定" />
</span>
<input type="reset" name="Submit2" value="重置" />
</p>
<table border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr> <% aaa=request("select2")

sql="select distinct 科目代码 from t_nbwl where 科目代码 like '"&aaa&"%' order by 科目代码"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1

dim i
i=0
Do while not rs.eof
i=i+1
%>

<td>
<input type="checkbox" name="kemu" value="<%=rs("科目代码")%>" /></td>
<td><%=rs("科目代码")%></td><%aaa=rs("科目代码")
sql1="select top 1 科目名称 from t_nbwl where 科目代码='"&aaa&"'"
set rs1 = server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1%><td><%bbb=rs1("科目名称")
ccc=left(bbb,10)
%>
<input name="<%=trim(rs("科目代码"))%>" type="text" value="<%response.write ccc%>" />
<%rs1.close
set rs1=nothing%></td>
<%
if i mod 4 =0 then
response.write "</tr><tr>"
end if
rs.movenext
loop

rs.close
set rs = nothing
conn.close
set conn = nothing%>
<tr> </table>
<p align="center"><br/>
</p>
</form>
</body>
</html>
...全文
80 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
张三大胖 2006-08-15
  • 打赏
  • 举报
回复
没人帮忙啊/?
coldicezhk 2006-08-15
  • 打赏
  • 举报
回复
自己换号顶
money888888 2006-08-15
  • 打赏
  • 举报
回复
帮你顶一个
张三大胖 2006-08-15
  • 打赏
  • 举报
回复
<select name="select2" onChange="if (this.selectedIndex!=0) window.location.replace("xuanze.asp?select2="this.value)">
<option>qingxuanze</option>
<option value="1">111111</option>
<option value="2">222222</option>
<option value="3">333333</option>
<option value="4">444444</option>
<option value="5">555555</option>
</select>
根据这个下拉框的变化传值重新选择数据,但并不是提交数据,改页面有一个提交按钮了,不能互相影响的意思/!
张三大胖 2006-08-15
  • 打赏
  • 举报
回复
正解:
<script language="javascript">
function SelectChanged() {

var select2 = document.all("select2").value;

if (select2!=" "){
window.location.href="xuanze.asp?select2="+select2;
}
}
</script>

我的问题解决了 原来很简单
CreatBird 2006-08-15
  • 打赏
  • 举报
回复
你的问题什么?看不懂你要问什么??
张三大胖 2006-08-15
  • 打赏
  • 举报
回复
没有人会吗

28,390

社区成员

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

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