| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1201 人关注过本帖
标题:[求助]查询结果显示的问题的程序看~看~为什么不能实现??
只看楼主 加入收藏
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
 问题点数:0 回复次数:15 
[求助]查询结果显示的问题的程序看~看~为什么不能实现??


查询用的SQL
dim MAJOR_IFEA,APPLY_TIME,APPLY_TIME_END,WISH_FINISH_TIME,WISH_FINISH_TIME_END,IT_UNDERTAKER,ACTMCONT,time,time1,time2,time3

MAJOR_IDEA=Trim(request.form("MAJOR_IDEA"))
APPLY_TIME=Trim(request.form("APPLY_TIME"))
APPLY_TIME_end=Trim(request.form("APPLY_TIME"))
WISH_FINISH_TIME=Trim(request.form("WISH_FINISH_TIME"))
WISH_FINISH_TIME_end=Trim(request.form("WISH_FINISH_TIME"))
IT_UNDERTAKER=Trim(request.form("IT_UNDERTAKER"))
ACTMCONT=Trim(request.form("ACTMCONT"))

sql="select * from REQUIRE_BILL where 1=1"

if MAJOR_IDEA <>"" then
sql=sql&"and MAJOR_IDEA like '%"& MAJOR_IDEA &"%'"
end if

if APPLY_TIME <>"" then
time=cint(APPLY_TIME)
else
time=0
end if
if APPLY_TIME_end <>"" then
time1=cint(APPLY_TIME_end)
else
time1=0
end if
if time<>0 and time1<>0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))>="&cstr(time)&" and CONVERT(int,MONTH(date))<="&cstr(time1)&""
end if

if time<>0 and time1=0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))>="&cstr(time)&""
end if
if time=0 and time1<>0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))<="&cstr(time1)&""
end if

if WISH_FINISH_TIME <>"" then
time2=cint( WISH_FINISH_TIME)
else
time2=0
end if
if WISH_FINISH_TIME_end <>"" then
time3=cint(APPLY_TIME_end)
else
time3=0
end if
if time2<>0 and time3<>0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))>="&cstr(time2)&" and CONVERT(int,MONTH(date))<="&cstr(time3)&""
end if

if time2<>0 and time3=0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))>="&cstr(time2)&""
end if
if time=0 and time3<>0 then
sql=sql&"select * from REQUIRE_BILL where CONVERT(int,MONTH(date))<="&cstr(time3)&""
end if

if IT_UNDERTAKER <>"" then
sql=sql&"and IT_UNDERTAKER = '"& IT_UNDERTAKER &"'"
end if

sqlstr="select * from REQUIRE_LOG where 1=1"
if ACTMCONT<>"" then
sqlstr=sqlstr&"and ACTMCONT ='"& ACTMCONT &"'"

搜索更多相关主题的帖子: FINISH WISH TIME form 
2007-07-10 14:08
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
得分:0 
html

<body>
<table width="852" border="1" align="center">
<tr>
<td height="41" colspan="4">查询条件选择
<label>
<input type="submit" name="Submit" value="查询" />
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
<tr>
<td width="115" height="48">需求主旨:</td>
<td colspan="3"><label>
<input type="text" class="txtClass" id="MAJOR_IDEA" name="MAJOR_IDEA" size="65" maxlength="65" />
</label></td>
</tr>
<tr>
<td height="43">需求单提出日期:</td>
<td width="305"><label>
<input type="text" class="txtClass" id="APPLY_TIME" name="APPLY_TIME" size=17 maxlength=17 />
</label></td>
<td width="87">至:</td>
<td width="317"><label>
<input name="APPLY_TIME1" type="text" size="30" />
</label></td>
</tr>
<tr>
<td height="35">希望上线时间:</td>
<td><label>
<input type="text" class="txtClass" id="WISH_FINISH_TIME" name="WISH_FINISH_TIME" size="17" maxlength="17" readonly="readonly" />
</label></td>
<td>至:</td>
<td><label>
<input name="WISH_FINISH_TIME1" type="text" size="30" />
</label></td>
</tr>
<tr>
<td height="42">资讯主办:</td>
<td><label>
<input name="IT_UNDERTAKER" type="text" size="30" onclick="txtITMEMBER_OnClick();" />
</label></td>
<td>需求状态:</td>
<td><label>
<select name="ACTMCONT">
<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>
</table>
</tr>
</table>

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

查询结果显示

<table cellpadding=1 align="center" cellspacing=1 border=1 width="800" 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></tr>"

SQL = "select * from REQUIRE_BILL ,REQUIRE_LOG where REQUIRE_BILL.IT_NO = REQUIRE_LOG.IT_NO "
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"))
nACTMCONT=trim(rs.fields("ACTMCONT"))

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>" & nACTMCONT & "</td></tr>"
Rs.MoveNext
Loop
%>
</table>
<%
set Rs=nothing
Conn.close
Set Conn=nothing
%>
</form>


学习ASP中.....难啊......
2007-07-10 14:10
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
得分:0 
错误类型:
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/lj/dispose_demand.asp, 第 216 行

加上end if以后网页打开就空白的一片? 谁能告诉我why?

[此贴子已经被作者于2007-7-10 14:14:11编辑过]


学习ASP中.....难啊......
2007-07-10 14:12
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
得分:0 
程序要学会自己慢慢调试。
你一下给出这么多代码,谁会有时间去一点一点看啊。
问的问题要有针对性!
2007-07-10 14:17
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
得分:0 
其实最上面的两个,我估计是没有问题就是最后一个的问题~~

学习ASP中.....难啊......
2007-07-10 14:22
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
得分:0 
if Not rs.Eof then Rs.MoveFirst
把这句去掉试试
2007-07-10 14:24
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
得分:0 
还是一样的错误

学习ASP中.....难啊......
2007-07-10 14:26
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
得分:0 
dispose_demand.asp
上面的哪段代码是这个页面的啊?
2007-07-10 14:28
ASP汽车
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2007-7-4
收藏
得分:0 

全部都是,我全都写在一个页面上了,因为要求是把查询的结果就显示在查询框的下面


学习ASP中.....难啊......
2007-07-10 14:31
快速回复:[求助]查询结果显示的问题的程序看~看~为什么不能实现??
数据加载中...
 
   



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

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