| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → [求助]当查询条件为空的时候，弹出MsgBox警告该怎么呀？
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 2692 人关注过本帖
标题：[求助]当查询条件为空的时候，弹出MsgBox警告该怎么呀？
取消只看楼主 加入收藏
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
楼主
收藏
 问题点数：0 回复次数：14 
[求助]当查询条件为空的时候，弹出MsgBox警告该怎么呀？
界面上有好的查询条件的输入框，至少要输入一个，当什么查询条件都没有的时候，弹出MsgBox该怎么写呢？
诚心请教
搜索更多相关主题的帖子: MsgBox　条件　警告　查询　
2007-07-12 14:49
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 2 楼
收藏
 得分:0 
不好意思，我刚发完我就搞定了^_^，不好意思～

学习ASP中.....难啊......
2007-07-12 14:54
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 3 楼
收藏
 得分:0 
再问下哦，就是那个我输入完查询条件，查询完，我原来输入的查询的条件会消失，要怎么让它保留住呢
就是说

比如，一个文本框，是请输入图书的名称：
我输入 “论坛”

当我点查询，符合条件的记录就查出来了，可是 “论坛”两个字确没有了，因为我查询出来的记录是在本页显示的

怎么才能把“论坛”留住了？？

学习ASP中.....难啊......
2007-07-12 14:58
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 4 楼
收藏
 得分:0 
“放任一切”告诉我，问问题要有针对性，贴一大段代码没有人看的

学习ASP中.....难啊......
2007-07-12 15:04
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 5 楼
收藏
 得分:0 
udbyygy



非常非常感谢

学习ASP中.....难啊......
2007-07-12 15:08
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 6 楼
收藏
 得分:0 

现在有个非常奇怪的问题，就是，当我点击查询完，查询条件留在了页面上，达到了要求，但是点击重置，却重置不了；
但是我在查询条件上输入，但是没有点击“查询”，点击“重置”可以实现重置的功能，不知道咋回事？

那如果要实现查询完，再查询另个，需要重置查询条件该咋办呢？


学习ASP中.....难啊......
2007-07-12 15:53
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 7 楼
收藏
 得分:0 

<%response.Buffer=true%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>需求单系统查询</title>
</head>
<!--#include file="conn.asp"-->
<script type="text/javascript" src="calendar.js"></script>
<%
dim MAJOR_IDEA,APPLY_TIME_start,APPLY_TIME_END,WISH_FINISH_TIME_start,WISH_FINISH_TIME_END,IT_UNDERTAKER,PHASE

MAJOR_IDEA=Trim(request.form("MAJOR_IDEA"))
APPLY_TIME_start=Trim(request.form("APPLY_TIME_start"))
APPLY_TIME_end=Trim(request.form("APPLY_TIME_end"))
WISH_FINISH_TIME_start=Trim(request.form("WISH_FINISH_TIME_start"))
WISH_FINISH_TIME_end=Trim(request.form("WISH_FINISH_TIME_end"))
IT_UNDERTAKER=Trim(request.form("IT_UNDERTAKER"))
PHASE=Trim(request.form("PHASE"))


sql="select APPLY_DEPARTMENT,APPLIER,MAJOR_IDEA,IT_UNDERTAKER,APPLY_TIME,WISH_FINISH_TIME,TOTESTTIME,REQUIRE_ESTI.PHASE from songzw.REQUIRE_BILL inner join REQUIRE_ESTI on songzw.REQUIRE_BILL.IT_NO=REQUIRE_ESTI.IT_NO where 1=1"

if len(MAJOR_IDEA)>1 then
sql=sql &" and MAJOR_IDEA like '%"& MAJOR_IDEA &"%'"
end if

if len(APPLY_TIME_start)>1 then
sql=sql &" and APPLY_TIME >='"& APPLY_TIME_start &"'"
end if

if len(APPLY_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& APPLY_TIME_end &"'"
end if


if len( WISH_FINISH_TIME_start)>1 then
sql=sql&" and WISH_FINISH_TIME >='"& WISH_FINISH_TIME_start &"'"
end if

if len(WISH_FINISH_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& WISH_FINISH_TIME_end &"'"
end if

if len(IT_UNDERTAKER)>1 then
sql=sql&" and IT_UNDERTAKE = '"& IT_UNDERTAKE &"'"
end if

if len(PHASE)>3 then
sql=sql&" and PHASE='"& PHASE &"'"
end if
Set Rs = server.CreateObject("Adodb.Recordset")
Rs.open SQL,CONN,1,1
if not rs.eof and not rs.bof then
nAPPLY_DEPARTMENT=trim(rs.fields("APPLY_DEPARTMENT"))
nAPPLIER=trim(rs.fields("APPLIER"))
nMAJOR_IDEA=trim(rs.fields("MAJOR_IDEA"))
nIT_UNDERTAKER=trim(rs.fields("IT_UNDERTAKER"))
nAPPLY_TIME=trim(rs.fields("APPLY_TIME"))
nWISH_FINISH_TIME=trim(rs.fields("WISH_FINISH_TIME"))
nTOTESTTIME=trim(rs.fields("TOTESTTIME"))
nPHASE=trim(rs.fields("PHASE"))
else
response.Write("需求单不存在")
end if
rs.close
' nAPPLY_DEPARTMENT=""
' nAPPLIER=""
' nMAJOR_IDEA=""
' nIT_UNDERTAKER=""
' nAPPLY_TIME=""
' nWISH_FINISH_TIME=""
' nTOTESTTIME=""
' nPHASE=""
' response.Write sql

%>

<body>
<form action="dispose_demand.asp" method="post" name="dispose_demand">
<table width="852" border="1" align="center">
<tr>
<td width="115" height="48">需求主旨:</td>
<td colspan="3"><label>
<input type="text" id="MAJOR_IDEA" name="MAJOR_IDEA" value='<%=request.form("MAJOR_IDEA")%>' size="65" maxlength="65" />

</label></td>
</tr>
<tr>
<td height="43">需求单提出日期:</td>
<td width="305"><label>
<input onFocus="calendar()" name="APPLY_TIME_start" type="text" id="APPLY_TIME_start" value='<%=request.form("APPLY_TIME_start")%>' />
</label></td>
<td width="87">至: </td>
<td width="317"><label>
<input onFocus="calendar()" name="APPLY_TIME_END" type="text" id="Calendar1" value='<%=request.form("APPLY_TIME_end")%>'/>
</label></td>
</tr>
<tr>
<td height="35">希望上线时间:</td>
<td><label>
<input onFocus="calendar()" name="WISH_FINISH_time_start" type="text" id="Calendar1" value='<%=request.form("WISH_FINISH_time_start")%>' />
</label></td>
<td>至:</td>
<td><label>
<input onFocus="calendar()" name="WISH_FINISH_time_END" type="text" id="Calendar1" value='<%=request.form("WISH_FINISH_time_end")%>' />
</label></td>
</tr>
<tr>
<td height="42">资讯主办:</td>
<td><label>
<input name="IT_UNDERTAKER" type="text" size="30" value='<%=request.form("IT_UNDERTAKER")%>' />
</label></td>
<td>需求状态:</td>
<td><label>
<select name="PHASE" value='<%=request.form("PHASE")%>' >
<option selected="selected">请选择</option>
<option value="提单审核">提单审核</option>
<option value="效益评估">效益评估</option>
<option value＝"需求确认">需求确认</option>
<option value="系统分析">系统分析</option>
<option value="系统开发">系统开发</option>
<option value="系统测试">系统测试</option>
<option value="用户测试">用户测试</option>
<option value="达成目标">达成目标</option>
<option value="正式上线">正式上线</option>
</select>
</label></td>
</tr>
<tr>
<td height="41" colspan="4">查询条件选择
<label>
<input type="submit" name="select1" value="查询" />
<input type="reset" value="重置" />
</label></td>
</tr>
</table>
</tr>
</table>
<tr><td colspan=4 width="600" height="10"><input name=flag type=hidden value=""></td></tr>
<TABLE cellPadding=1 align="center" cellSpacing=1 align=center border=1 width="900" height="1" >
<%
response.write"<tr>"
response.write"<td width=100> 需求单位 </td>"
response.write"<td width=100> 需求提出人 </td>"
response.write"<td width=100> 主旨 </td>"
response.write"<td width=100> 资讯主办 </td>"
response.write"<td width=100> 需求提出日期</td>"
response.write"<td width=100> 希望上线日期 </td>"
response.write"<td width=100> 预估完成日期 </td>"
response.write"<td width=100> 状态</td>"
response.write"<td width=100> 说明</td></tr>"

Set Rs = server.CreateObject("Adodb.Recordset")
'sql="select APPLY_DEPARTMENT,APPLIER,MAJOR_IDEA,IT_UNDERTAKER,APPLY_TIME,WISH_FINISH_TIME,TOTESTTIME,REQUIRE_ESTI.PHASE from songzw.REQUIRE_BILL inner join REQUIRE_ESTI on songzw.REQUIRE_BILL.IT_NO=REQUIRE_ESTI.IT_NO "

sql="select APPLY_DEPARTMENT,APPLIER,MAJOR_IDEA,IT_UNDERTAKER,APPLY_TIME,WISH_FINISH_TIME,TOTESTTIME,REQUIRE_ESTI.PHASE from songzw.REQUIRE_BILL inner join REQUIRE_ESTI on songzw.REQUIRE_BILL.IT_NO=REQUIRE_ESTI.IT_NO where 1=1"

if len(MAJOR_IDEA)>1 then
sql=sql &" and MAJOR_IDEA like '%"& MAJOR_IDEA &"%'"
end if

if len(APPLY_TIME_start)>1 then
sql=sql &" and APPLY_TIME >='"& APPLY_TIME_start &"'"
end if

if len(APPLY_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& APPLY_TIME_end &"'"
end if


if len( WISH_FINISH_TIME_start)>1 then
sql=sql&" and WISH_FINISH_TIME >='"& WISH_FINISH_TIME_start &"'"
end if

if len(WISH_FINISH_TIME_end)>1 then
sql=sql&" and APPLY_TIME <='"& WISH_FINISH_TIME_end &"'"
end if

if len(IT_UNDERTAKER)>1 then
sql=sql&" and IT_UNDERTAKE = '"& IT_UNDERTAKE &"'"
end if

if len(PHASE)>3 then
sql=sql&" and PHASE='"& PHASE &"'"
end if
Rs.open SQL,CONN,1,1
if Not rs.Eof then Rs.MoveFirst

Do while Not rs.Eof
nAPPLY_DEPARTMENT=trim(rs.fields("APPLY_DEPARTMENT"))
nAPPLIER=trim(rs.fields("APPLIER"))
nMAJOR_IDEA=trim(rs.fields("MAJOR_IDEA"))
nIT_UNDERTAKER=trim(rs.fields("IT_UNDERTAKER"))
nAPPLY_TIME=trim(rs.fields("APPLY_TIME"))
nWISH_FINISH_TIME=trim(rs.fields("WISH_FINISH_TIME"))
nTOTESTTIME=trim(rs.fields("TOTESTTIME"))
nPHASE=trim(rs.fields("PHASE"))


response.write"<tr>"
response.write"<td width=100>" & nAPPLY_DEPARTMENT & "</td>"
response.write"<td width=100>" & nAPPLIER & "</td>"
response.write"<td width=100>" & nMAJOR_IDEA & "</td>"
response.write"<td width=100>" & nIT_UNDERTAKER & "</td>"
response.write"<td width=100>" & nAPPLY_TIME & "</td>"
response.write"<td width=100>" & nWISH_FINISH_TIME & "</td>"
response.write"<td width=100>" & nTOTESTTIME & "</td>"
response.write"<td width=100>" & nPHASE & "</td></tr>"
Rs.MoveNext
Loop
%>

</table>
</form>
</body>
</html>
<script language="vbscript">
dispose_demand.nAPPLY_DEPARTMENT.value="<%=nAPPLY_DEPARTMENT%>"
dispose_demand.nAPPLIER.value="<%=nAPPLIER%>"
dispose_demand.nMAJOR_IDEA.value="<%=nMAJOR_IDEA%>"
dispose_demand.nIT_UNDERTAKER.value="<%=nIT_UNDERTAKER%>"
dispose_demand. nAPPLY_TIME.value="<%= nAPPLY_TIME%>"
dispose_demand.nWISH_FINISH_TIME.value="<%=nWISH_FINISH_TIME%>"
dispose_demand.nTOTESTTIME.value="<%=nTOTESTTIME%>"
dispose_demand.nPHASE.value="<%=nPHASE%>"

</script>
<script language="vbscript" >
sub select1_onclick
if dispose_demand.MAJOR_IDEA.value="" and dispose_demand.APPLY_TIME_start.value="" and dispose_demand.APPLY_TIME_end.value="" and dispose_demand.WISH_FINISH_TIME_start.value="" and dispose_demand.WISH_FINISH_TIME_END.value="" and dispose_demand.IT_UNDERTAKER.value="" and dispose_demand.PHASE.value="" then
MsgBox "查询条件不能为空，至少需要输入一个查询条件!",78,"需求单系统查询"
dispose_demand.MAJOR_IDEAE.focus
dispose_demand.APPLY_TIME_start.focus
dispose_demand.APPLY_TIME_end.focus
dispose_demand.WISH_FINISH_TIME_start.focus
dispose_demand.WISH_FINISH_TIME_end.focus
dispose_demand.IT_UNDERTAKER.focus
dispose_demand.PHASE.focus
exit sub
end if
maintenance.flag.value="Q"
dispose_demand.submit
end sub
</script>
<%
set Rs=nothing
Conn.close
Set Conn=nothing
%>


学习ASP中.....难啊......
2007-07-12 16:06
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 8 楼
收藏
 得分:0 


写的很乱


学习ASP中.....难啊......
2007-07-12 16:07
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 9 楼
收藏
 得分:0 
楼上的可爱的人，我明天去公司试试哈，不过看去是应该可以实现滴，好聪明的你哟～～～～～～～～～～

学习ASP中.....难啊......
2007-07-12 20:44
ASP汽车
Rank: 1
等　级：新手上路
帖　子：197
专家分：0
注　册：2007-7-4
第 10 楼
收藏
 得分:0 

<input type="reset" value="重置" onClick="show()" />
<script>
function show()
{
MAJOR_IDEAE.value=""
APPLY_TIME_start.value=""
APPLY_TIME_end.value=""
WISH_FINISH_TIME_start.value=""
WISH_FINISH_TIME_end.value=""
IT_UNDERTAKER.value=""
PHASE.value=""
}
</script>

这样写还是不行哦，网页显示出来，但是在下面会提示网页上有错误～

学习ASP中.....难啊......
2007-07-13 08:12
快速回复：[求助]当查询条件为空的时候，弹出MsgBox警告该怎么呀？
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.052876 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved