急急急！！！页面分条件显示

wertasdf2001 2009-06-11 05:19:01
我有一个页面：paigong.asp里面的内容是我从数据库中查询出来的，默认是全部显示。我现在想做4个checkbox，点击不同的checkbox，页面的内容也将随之变化。我的sql语句如下：


set rs_user=server.createobject("adodb.recordset")

sql="select *  from baoxiu "

rs_user.open sql,conn,3,2	



if checkbox.value="1" then

sql="select *  from baoxiu order by baoxiu_id desc"

elseif checkbox.value="2" then

sql="select *  from baoxiu  where mission_n is null or mission_n = '' order by baoxiu_id desc"

elseif checkbox.value="3" then

sql="select *  from baoxiu  where (not mission_n is null or mission_n<>'') and (weixiu_zhuangtai is null or weixiu_zhuangtai ='') order by baoxiu_id desc"

elseif checkbox.value="4" then

sql="select *  from baoxiu  where (not mission_n is null or mission_n<>'') and (not weixiu_zhuangtai is null or weixiu_zhuangtai <>'') order by baoxiu_id desc"

end if
...全文
81 29 打赏 收藏 转发到动态 举报
写回复
用AI写文章
29 条回复
切换为时间正序
请发表友善的回复…
发表回复
wertasdf2001 2009-06-19
  • 打赏
  • 举报
 回复
不好意思 这几天比较忙，现在就结啊
Msxindl_Com 2009-06-18
  • 打赏
  • 举报
 回复
结贴率太低...
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
我刚才的描述有点错误。应该是鼠标放到那4个选项上，IE左下角就会出现javascript:，而当点击它时，就没反应。

麻烦你再帮我看看，怎么样？
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
我注释掉了conn.asp中的on error resume next 还是不行，好像是没有调用
function gourl(obj){
document.form1.what.value=obj;
document.form1.submit();
}

我在点击那些选项的时候，在IE的左下角就只出现了javascript:
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
好的 我再调试下
Msxindl_Com 2009-06-16
  • 打赏
  • 举报
 回复
在调试的时候把conn.asp中的on error resume next注释掉就会有错误提示了。
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
就是 点击下面的字段
<a href="javascript:" onclick="gourl('1')">全部显示</a> <span class="STYLE2">|</span>
<a href="javascript:" onclick="gourl('2')">未派送</a> <span class="STYLE2">|</span>
<a href="javascript:" onclick="gourl('3')">维修中</a> <span class="STYLE2">|</span>
<a href="javascript:" onclick="gourl('4')">已维修</a>
没有去读取SQL字段
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
是啊 也没错误提示 就是没有取到数据
wertasdf2001 2009-06-16
  • 打赏
  • 举报
 回复
邮件已发送，多谢帮忙啊。
Msxindl_Com 2009-06-16
  • 打赏
  • 举报
 回复
挣点分还真不容易，将数据库及文件发到935026806@qq.com再看看。
wertasdf2001 2009-06-15
  • 打赏
  • 举报
 回复
好的 多谢了 我先调试下
Msxindl_Com 2009-06-15
  • 打赏
  • 举报
 回复
1、如果涉及对数据库进行添加、修改或删除操作，用rs.open sql,conn,1,3

2、试试将10楼代码中的sql全部改成 sqlr或别的变量名，只要不是sql就行。

3、rs用完后要及时关闭（rs.close)。

请对照检查。
wertasdf2001 2009-06-15
  • 打赏
  • 举报
 回复
怎么跟我另外的一个head.asp发生了冲突，
错误原因：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/20090224/head.asp, 第 55 行（rsa.open sql,conn,1,1）


head.asp：
set rsa=server.createobject("adodb.recordset")
sql="select top "&ggshu&" afficheid,affichename,affichecontent,affichetime from affiche order by afficheid DESC"
rsa.open sql,conn,1,1


请你帮我解决下哦 ，多谢了！
Msxindl_Com 2009-06-15
  • 打赏
  • 举报
 回复
还没改好？？？我没语言了~~~
wertasdf2001 2009-06-15
  • 打赏
  • 举报
 回复
还是不行哦，哎，谁能再帮帮我啊
seed123456789 2009-06-15
  • 打赏
  • 举报
 回复
感觉越弄越混乱了。。
Msxindl_Com 2009-06-15
  • 打赏
  • 举报
 回复
将14楼中的：
_________________________________________________________________________

'数据库以只读模式打开。
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/net.mdb") '连接你的数据库
conn.Open connstr

sqlr="select * from details order by baoxiu_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sqlr,conn,1,3

set rs=nothing
conn.close
set conn=nothing
_________________________________________________________________________

改为：

rs.open sqlr,conn,1,3 '如果不涉及改写数据库，用1,1就行了。

下面的两句加到最末尾。
<%
conn.close
set conn=nothing
%>

再试试。
wertasdf2001 2009-06-15
  • 打赏
  • 举报
 回复
conn.asp


<!--#include file="admin/config.asp"-->

<!--#include file="admin/sql.asp"-->

<%

on error resume next

dim conn

dim connstr

'db="../data/#net.mdb"      '数据库文件的位置

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/net.mdb") 



conn.Open connstr

If Err Then

		err.Clear

		Set Conn = Nothing

		Response.Write "数据库连接出错，请检查连接字串。"

		Response.End

	End If

sub CloseConn()

On Error Resume Next

	Conn.close

	set Conn=nothing

end sub



%>
wertasdf2001 2009-06-15
  • 打赏
  • 举报
 回复
我更改后的代码如下：没有数据出来，麻烦你再帮我看看。


<!--#include file ="conn.asp"-->



<script type="text/javascript">

function mission(strID,Mis,mission_b,strType){

var id;

if (confirm("你确定派发任务给"+Mis+"吗？")){

	document.location.href="mission.asp?strID="+strID+"&Mis="+Mis+"&mission_b="+mission_b;

		}

}



function gourl(obj){

document.form1.what.value=obj;

document.form1.submit();

}



</script> 



<style type="text/css">

<!--

.STYLE1 {color: #ECE9D8}

.STYLE2 {color: #000000}

-->

</style>



<%

if session("baoxiuuser_name") = "admin" then

	sql="select * from baoxiu order by baoxiu_id desc"

	else 

	Response.Write "<script>alert('你不能查看此项，请联系管理员！');window.location.href='index.asp';</script>"

		Response.end

	

end if

%>

<form action="paigong.asp" method="post" name="form1" class="STYLE1" style="margin:0px">



  <input type="hidden" name="what" />

 <a href="javascript:" onclick="gourl('1')">全部显示</a> <span class="STYLE2">|</span> 

 <a href="javascript:" onclick="gourl('2')">未派送</a> <span class="STYLE2">|</span> 

 <a href="javascript:" onclick="gourl('3')">维修中</a> <span class="STYLE2">|</span> 

 <a href="javascript:" onclick="gourl('4')">已维修</a> 

</form>

<%



dim xx,sqlr

xx=trim(request.form("what"))

if xx="" then

xx="1"   '设置默认的查询条件.

end if



set rs=server.createobject("adodb.recordset")

select case xx

       case "1"

       sqlr="select *  from details order by baoxiu_id desc"

       case "2"

       sqlr="select *  from details where mission_n is null or mission_n = '' order by baoxiu_id desc"

       case "3"

       sqlr="select *  from details  where (not mission_n is null or mission_n<>'') and (weixiu_zhuangtai is null or weixiu_zhuangtai ='') order by baoxiu_id desc"

       case "4"

       sqlr="select *  from details  where (not mission_n is null or mission_n<>'') and (not weixiu_zhuangtai is null or weixiu_zhuangtai <>'') order by baoxiu_id desc"

end select 

  '数据库以只读模式打开。

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/net.mdb")  '连接你的数据库

conn.Open connstr



sqlr="select *  from details order by baoxiu_id desc"

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open sqlr,conn,1,3



set rs=nothing

conn.close

set conn=nothing

%>

<table width="919" border="0" align="center" cellpadding="0" cellspacing="0">

      <tr>

        <td><table  width="100%" height="71" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder5">

          <tr>

            <td width="84" align="center" class="TableTitle1" style="font-weight: bold" >报修编号</td>

            <td width="79" align="center" class="TableTitle1" style="font-weight: bold" >报修部门</td>

			<td width="78" align="center" class="TableTitle1" ><strong>报修类别</strong></td>

			<td width="70" align="center" class="TableTitle1" ><strong>故障明细</strong></td>

			<td width="74" height="30" align="center" class="TableTitle1" ><strong> 维修人员ID</strong></td>

            <td width="81" height="30" align="center" class="TableTitle1" ><strong> 维修人员姓名</strong></td>

            <td width="63" height="30" align="center" class="TableTitle1" ><strong>分配时间</strong></td>

            <td width="86" align="center" class="TableTitle1" style="font-weight: bold" >任务状态</td>

            <td width="60" height="30" align="center" class="TableTitle1" ><strong>接收时间</strong></td>

            <td width="72" height="30" align="center" class="TableTitle1" ><strong>分配人</strong></td>

          </tr>

          <%

		      If(rs.Eof)Then

		      %>

          

          <%

				Response.End()

				End If

				repeat_rows = 0

				While(repeat_rows < rs.PageSize and Not rs.Eof)

			  %>

          

          <tr>

		  <script type="text/javascript">

		  function test(str) {

		  alert (str);

		  }

		  </script>

           <td width="84" height="36" align="center" class="TableBody1" ><font color="#0099FF"><%=rs("bx_id")%></font></a></td>

		    

            <td width="79" height="36" align="center" class="TableBody1" ><span class="style2"><%=rs("baoxiu_bm")%></span></td>

            <td width="78" height="36" align="center" class="TableBody1" ><span class="style2"><%=rs("baoxiu_lb")%></span></td>

			<td width="70" height="36" align="center" class="TableBody1" ><span class="style2"><%=rs("baoxiu_wp")%></span></td>

			<td width="74" height="36" align="center" valign="middle" class="TableBody1" ><form name="form" method="post" action=""> 

    <select name="mission_b" onChange="mission( <%=rs("baoxiu_ID")%>,this.value,mission_b)"  > 

   			    <%

				dim pg

				pg =rs("mission_n")

				if rs("mission_n") = "" or isnull(rs("mission_n")) then

				%>

				<option selected>未派送</option>

				<option value="xinxi01">xinxi01</option>

				<option value="xinxi02">xinxi02</option>

				<option value="xinxi03">xinxi03</option>

				<%else%>

				<option selected>已派送</option>

                <%end if%>

              </select>

            </form> 

		    </td>

		    <td width="81" height="36" align="center" class="TableBody1" ><%=rs("mission_n")%></td>

            <td width="63" height="36" align="center" class="TableBody1" ><%=rs("fenpei_time")%></td>

            <td width="86" height="36" align="center" class="TableBody1" ><%if rs("renwu_zhuangtai")="1" then%>

          已接收

          <%else%>

          <font color=red>未接收</font>

          <%end if%>

         </td>

            <td width="60" align="center" class="TableBody1" ><%=rs("jieshou_time")%></td>

			<td width="72" align="center" class="TableBody1" ><span class="style2" style="color: #000000; font-family: "宋体"">管理员</span></td>

			

          </tr>

          

          

          <%

	          repeat_rows = repeat_rows + 1

	          rs.MoveNext

	          Wend

	          %>

        </table>

          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

            <tr>

              <td width="40%" height="30">[<font color="red"><%=pageno1%></font>/<%=rs.PageCount%>] 每页<font color="red"><%=rs.PageSize%></font>条 共<font color="red"><%=rs_total1%></font>条记录 </td>

              <td width="60%" align="right">

               

                    <%for i=1 to maxpage%>[<a href="index.asp?pageno=<%=i%>"><%=i%></a>]<%next%>              </td>

            </tr>

        </table></td>

  </tr>

</table>



<% 



rs.close

Set rs = Nothing

%>
wertasdf2001 2009-06-14
  • 打赏
  • 举报
 回复
大家再多发表意见啊
加载更多回复（9）
深入浅出java高级编程【2011-12-3】
有bland enterprise server5.1的license吗!!! 用cactus测试j2ee EJB技术介绍 关于apache与tomcat的整合问题，急急！！！ [请教]对一篇文章进行分页的思路？ 一个问题！(如何在HTML table上加滚动条，显示所有数据？) 关于EJB与JABBAR通信 使用 PreparedStatement如何将null值插入到数据库中
[二]在jsp中使用foreach用于"显示复选框"，初始化下拉框、复选框、下拉复选框，获取复选框勾选的值【$.ajax$.post$.each$().each、form的值没传至后台问题、去除字符】
JDK1.7+Tomcat7.0+Eclipse+SSM+Bootstrap（含Bootstrap Table） 【心情很复杂，来一首“预谋”——专为“bug与我的相互伤害”做的歌——"反正它都不难受它只要自由，它都不会理会我的感受，退到无路可走不如就放开手，我也想要自由"，可是想放手都由不得我呀~~~】 参考: 两个forEach数据遍历相同的数据在复选框打钩jsp页面复选框更...
JVM之总结篇
Java发展至今，已经远不是一种语言，而是一个标准。只要能够写出满足JVM规范的class文件，就可以丢到JVM虚拟机执行。通过JVM虚拟机，屏蔽了上层各种开发语言的差距，同时也屏蔽了下层各种操作系统的区别。一次编写，多次执行。JDK体系结构​你有没有试过在一个项目里同时用Java和Scala进行开发？
软件测试加法运算器测试用例,简易计算器加法功能的测试用例写作
功能点：计算器 加法功能测试点：1)是否可以正常输入数据2)是否可以修改输入的数据3)是否数字相加结果正确4)是否可以多个数相加，并且数据正确测试计算器的加法功能,请考虑你讲如何让进行,写出你能想到的测试点!急急急~~~~作为软件质量控制中的重要一环，软件测试工程师应运而生。软件测试工程师的工作就是利用测试工具按照测试方案和流程对产品进行功能测试和性能测试，甚至根据需要编写不同的测试工具，设计和维...
webmagic采集CSDN的Java_WebDevelop页面
使用webmagic采集博客类的网站示例
ASP

28,406

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章