更新数据库的几次错误

用asp做一东东,要求能够控制一端帐号不可使用  ``

第一次:

<%
kainian=request("kaishinj")
jienian=request("jieshunj")

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select zhanghao from guanli "
rs.open sql,conn,1,1
ts=cint(rs.RecordCount)

for i=1 to ts

zhangh=rs(0)

response.write zhangh & "<br>"

if   cint(mid(zhangh,1,2))<cint(kainian) or cint(mid(zhangh,1,2))>cint(jienian) then

gm="update guanli set zhuangtai='0' where zhanghao='"  & zhangh &"'"
conn.Execute gm
response.write gm & cint(mid(zhangh,1,2)) & "<br>" & cint(kainian) & "<br>" & cint(guanniannian)
else gm="cuowu"
end if
rs.movenext
next
rs.close
set rs=nothing

    一条更新一次  ``  代价  大大大 啊

 

 

2次  要分段  用like  可要必须前位加零`

<%
kainian=request("kaishinj")
jienian=request("jieshunj")

for t=cint(kainian) to cint(jienian)
str=right("0"&t,2)
gm="update guanli set zhuangtai='0' where zhanghao not like '"  & str &"______"&"'" //加零
conn.Execute gm
response.write gm &"<br>" & str & "<br>" & t & "<br>"

next
%>

做到最后在加``

 

 

%> 

 

3.

又发现是一次次的if覆盖错误  最后数据库全成状态为0了  所以变变变:::::

if kainian<>"" and jienian<>""  then

gg="update guanli set zhuangtai='0' where zhanghao not  like '["&left(kainian,1)&"-"&left(jienian,1)&"]["&mid(kainian,2,1)&"-"&mid(jienian,2,1)&"]______' and jibie>'2'"
conn.Execute gg

kg="update guanli set zhuangtai='1' where zhanghao like '["&left(kainian,1)&"-"&left(jienian,1)&"]["&mid(kainian,2,1)&"-"&mid(jienian,2,1)&"]______' and jibie>'2'"
conn.Execute kg
gm="update jigou set zhuangtai='0' where guanlizh not like '["&left(kainian,1)&"-"&left(jienian,1)&"]["&mid(kainian,2,1)&"-"&mid(jienian,2,1)&"]______' and jibie>'2'"
conn.Execute gm

km="update jigou set zhuangtai='0' where guanlizh  like '["&left(kainian,1)&"-"&left(jienian,1)&"]["&mid(kainian,2,1)&"-"&mid(jienian,2,1)&"]______' and jibie>'2'"
conn.Execute km
'response.write gg &"<br>" & str & "<br>" & t & "<br>"
end if
这样就ok了```