简单修改点代码（有关数据库）

[mysite365]

   set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select  * from corporation "
   rsexd.open sqlexd,conn,1,3
   if not rsexd.eof then 
   do while not rsexd.eof 
   if rsexd("EndDate")<>"" then
   if rsexd("EndDate")>date() then
   rsexd("exd")=0            '修改表exd字段的值
   else
   rsexd("exd")=1            '修改表exd字段的值
   end if
   else
   rsexd("exd")=0             '修改表exd字段的值
   end if
   rsexd.movenext
   loop
   rsexd.close
   end if

说明：
exd 为int 类型，上面应该没错
以上代码，在access没错，现在我用sql server数据库出问题，提示“服务部不可用”
请大家帮忙改为在sql server下可以使用的代码。

我如下修改

   set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select  * from corporation "
   rsexd.open sqlexd,conn,1,3
   if not rsexd.eof then 
   do while not rsexd.eof 
   if rsexd("EndDate")<>"" then
   if rsexd("EndDate")>date() then
   rsexd("exd")=0            '修改表exd字段的值
   else
   rsexd("exd")=1            '修改表exd字段的值
   end if
   else
   rsexd("exd")=0             '修改表exd字段的值
   end if
   rsexd.update            ’这里修改了，还是不可以
   rsexd.movenext
   loop
   rsexd.close
   end if

[shenymce]

ACCESS与SQL的连接语句是不同的，你是不是没有把CONN的字符串改过来啊

[hookee]

sql = "UPDATE corporation SET exd=0 WHERE EndDate='' OR EndDate IS Null;" &_
      "UPDATE corporation SET exd=0 WHERE DateDiff(d,EndDate,getDate())<0;" &_
      "UPDATE corporation SET exd=1 WHERE DateDiff(d,EndDate,getDate())>=0;"
conn.execute sql

[mysite365]

CONN的字符串改过来了，可以忽略这方面。

[mysite365]

  set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select  * from corporation "
   rsexd.open sqlexd,conn,1,3
   if not rsexd.eof then 
   do while not rsexd.eof 
   if rsexd("EndDate")<>"" then
   if rsexd("EndDate")>date() then
   rsexd("exd")=0            '修改表exd字段的值
   else
   rsexd("exd")=1            '修改表exd字段的值
   end if
   else
   rsexd("exd")=0             '修改表exd字段的值
   end if
   rsexd.update            '这里修改了，还是不可以
   rsexd.movenext
   loop
   rsexd.close
   end if

hookee 要改成这种形式，要怎么做？？ 先谢谢了，，

[hookee]

这样效率不高，可以是2条语句完成的，现在要n条语句，n是记录总数。

<%
   set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select * from corporation "
   rsexd.open sqlexd,conn,1,4 '批量递交
   if not (rsexd.eof and rsexd.bof) then 
     do while not rsexd.eof
       if rsexd("EndDate").value<>"" Or IsNull(rsexd("EndDate").value) then
         if DateDiff('d',rsexd("EndDate").value,date())<0 then
            rsexd("exd")=0            '修改表exd字段的值
           else
            rsexd("exd")=1            '修改表exd字段的值
          end if
       else
         rsexd("exd")=0             '修改表exd字段的值
        end if
        rsexd.movenext
     loop
     rsexd.updateBatch            '批量递交
     rsexd.close
   end if
%>

[hookee]

改一下

<%
   set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select * from corporation "
   rsexd.open sqlexd,conn,1,4 '批量递交
   if not (rsexd.eof and rsexd.bof) then 
     do while not rsexd.eof
       if rsexd("EndDate").value<>"" And Not IsNull(rsexd("EndDate").value) then
         if DateDiff('d',rsexd("EndDate").value,date())<0 then
            rsexd("exd")=0            '修改表exd字段的值
           else
            rsexd("exd")=1            '修改表exd字段的值
          end if
       else
         rsexd("exd")=0             '修改表exd字段的值
        end if
        rsexd.movenext
     loop
     rsexd.updateBatch            '批量递交
     rsexd.close
   end if
%>

%>

[hookee]

再改一下

<%
   set rsexd=server.CreateObject("adodb.recordset")
   sqlexd="select * from corporation "
   rsexd.open sqlexd,conn,1,4 '批量递交
   if not (rsexd.eof and rsexd.bof) then 
     do while not rsexd.eof
       if rsexd("EndDate").value<>"" And Not IsNull(rsexd("EndDate").value) then
         if DateDiff("d",rsexd("EndDate").value,date())<0 then
            rsexd("exd")=0            '修改表exd字段的值
           else
            rsexd("exd")=1            '修改表exd字段的值
          end if
       else
         rsexd("exd")=0             '修改表exd字段的值
        end if
        rsexd.movenext
     loop
     rsexd.updateBatch            '批量递交
     rsexd.close
   end if
%>

[一把编程的菜刀]

什么数据库？？？可以用单个语句更新吧

[li1229363]

批量修改使用asp程序不合适。还是使用2楼的方案吧。简单实惠啊

[MR丶CHAN]

mark up

[mysite365]

[Quote=引用 6 楼 hookee 的回复:]
改一下
VBScript code<%set rsexd=server.CreateObject("adodb.recordset")
sqlexd="select * from corporation"
rsexd.open sqlexd,conn,1,4'批量递交ifnot (rsexd.eofand rsexd.bof)thendowhilenot rsexd.eofif rsexd("EndDate").value<>""AndNotIsNull(rsexd("EndDate").value)thenifDateDiff('d',rsexd("EndDate").value,date())<0 then rsexd("exd")=0'修改表exd字段的值else
rsexd("exd")=1'修改表exd字段的值endifelse
rsexd("exd")=0'修改表exd字段的值endif
rsexd.movenextloop
rsexd.updateBatch'批量递交 rsexd.closeendif
%>

%>
[/Quote]

这样不对，提示“服务部不可用”