updata2.asp

来自「流溪网络办公系统：管理员： 用户名:admin 密码：」· ASP 代码 · 共 36 行

<!--#include file="connsf.asp" -->
<!--#include file="md5.inc" -->
<%
  str="update woa set 跟贴数=0"
  conn.execute(str)

  str="select * from woa"
  set rs=conn.execute(str)

  do while not rs.eof
    ojs=rs("接收者")
    njs="|"&replace(ojs," ","")

    qc=rs("已清除者")
    qc=replace(qc,"0","|")
    if left(qc,1)<>"|" then qc="|"&qc

    fj=mid(rs("附件"),8,16)
    if fj="" then fj="　"

    if rs("附件")<>"　" then fj=1 else fj=0 end if

    ykz=rs("已看者")
    ykz=replace(ykz,"0","|",1,1)

    up_id=rs("id")

    str="update woa set 接收者='"&njs&"',已清除者='"&qc&"',附件='"&fj&"',附件数="&fj&",已看者='"&ykz&"' where id="&up_id&""
    conn.execute(str)
    
    rs.movenext
  loop

  rs.close
  conn.close
%>