小熏的编程日记

<% 
  'dim Conn
  Const AccessFile="list.mdb"
  set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessFile)
  'On Error Resume Next
  Conn.Open
  'If Err Then
  '   err.Clear
  '   Set Conn = Nothing
  '   Response.Write "数据库连接出错，请检查连接字串。"
  '   Response.End
  'End If
  set rs=Server.CreateObject("ADODB.Recordset")
  set rs.ActiveConnection=Conn
  rs.CursorType=3
  'rs.open"select * from List order by ID_bbs"

  'dim ID_bbs
  'dim str_md5
  'rs.movefirst
  'for i=1 to rs.recordcount
	' ID_bbs=rs.fields("ID_bbs").value
	' str_md5=md5(ID_bbs)
	' conn.execute("update List SET md5='"&str_md5&"' where ID_bbs='"&ID_bbs&"'")
    ' rs.movenext
  'next
  'rs.close
  
  rs.open"select * from List order By md5"
  rs.movefirst
  for i=1 to rs.recordcount
     if (i mod 4)=0 then
	     group_char="A"
	 elseif (i mod 4) =1 then
	     group_char="B"
	 elseif (i mod 4) =2 then
	     group_char="C"
	 elseif (i mod 4) =3 then
	     group_char="D"
	 End if
	 str_md5=rs.fields("md5").value
     conn.execute("update List SET ID_sortbyMD5="&i&",group_byMD5='"&group_char&"' where md5='"&str_md5&"'")
	 rs.movenext
  Next
  rs.close
  conn.close
  set rs=nothing
  set conn=nothing
  response.write("done!")
%>

相关文章:

测试一下表情