主题:  ASP程序请教高手修改!

33221165

职务:普通成员
等级:1
金币:0.0
发贴:5
#12005/10/7 0:58:31
大家好!
以下是俺用ASP写的一段程序,数据库为ACCESS。
俺的设计目的是用多种条件检索LOA数据库的内容,然后将检索出的记录追加到LOA_BAOBIAO数据库中。
对于LOA_BAOBIAO数据库每次追加前均需清空记录。但追加记录成了问题:如果追加语句后不加入条件的话,LOA数据库所有记录均加了进来;如果加了条件,又存在一个检索结果为空的问题。俺实在想不出该怎样实现这个要求,请高手指点,谢谢啦!(在线等待回复)
sqlt="select * from LOA"
sqlg=" where (1=1)"
sqle=" order by yezhu,shengxiaoriqi desc"

if contractno="" then
contractno=""
else
sqlg=sqlg & " and contractno like '%"&contractno&"%'"
end if

if subject="" then
subject=""
else
sqlg=sqlg & " and subject like '%"&subject&"%'"
end if

if yezhu="" or yezhu="CHOOSE" then
yezhu=""
else
sqlg=sqlg & " and yezhu='"&yezhu&"'"
end if

sql=sqlt+sqlg+sqle
Set rs= Server.CreateObject("ADODB.Recordset"
rs.open sql,conn,1,1

if rs.eof and rs.bof then
%>
<script> alert('没有此项目!');history.back();</script>
<%
else
if request("go"="查询" then
Set rsm= Server.CreateObject("ADODB.Recordset"
sqlm="Select * from LOA_BAOBIAO"
rsm.open sqlm,conn,3,3

if not rsm.eof then
sqlm="delete from LOA_BAOBIAO"
set rsm=conn.execute(sqlm)
end if

sqlm="insert into loa_baobiao select * from LOA"
set rsm=conn.execute(sqlm)
end if

后接程序为前面多个条件检索结果的显示程序,略。。



33221165

职务:普通成员
等级:1
金币:0.0
发贴:5
#22005/10/8 16:48:17
很难吗?



icerain

职务:普通成员
等级:1
金币:1.0
发贴:249
#32005/10/9 1:01:36
你的要求和代码给我看的有点迷糊,
是不是如下意思:
在数据表LOA中搜索后得到一些符合条件的数据行

然后将这行符合条件的数据行写入表LOA_BAOBIAO中,
在写入前先清空LOA_BAOBIAO表

你的问题是:
如果没有搜索条件的话,所有LOA表中所有数据行都符合要求,都写到了LOA_BAOBIAO中?



33221165

职务:普通成员
等级:1
金币:0.0
发贴:5
#42005/10/9 2:09:18
谢谢回复!
很抱歉,估计我楼上的意思没有表达清楚。对,我就是这个意思。我就是想问,怎样才能实现我的这个想法,需要怎样改动或添加语句。



icerain

职务:普通成员
等级:1
金币:1.0
发贴:249
#52005/10/10 16:03:59
取得符合条件的数据行数是不是与全部数据的行数相等就行了呗