蛮荒记事txt下载:有关处理大量access数据库问题

我要处理数据量有20多万条的数据库 用asp写了运行代码
少部分的数据库表测试代码完全正确
用整个数据表运行整理的时候 CPU和内存全部耗用光了
而且 长时间之后 提示脚本运行超时 查看数据库后发现只有7000多条做了运行且有了结果
现在 我要问的是 有没有什么办法完成这样的工作
最好能在页面上有类似进度条的显示 (不知道是不是用js,但不知道怎么写)
麻烦那个达人帮帮我~~
(积分本来就很少 所以没有多少能效劳您的~~)
部分代码如下:(rr和ss表都有上万条的记录)

do
if rs.eof then exit Do
dv_country = rs("country")
ss.MoveFirst

Do
if ss.eof Then
rs("未修改标记") = "□□□□"
Response.Write (rs("country")&"========<font color=blue>匹配失败</font><br>")
Exit Do
End If
ss_city = ss("city")
i = Instr(dv_country,ss_city) '查找匹配
If i > 0 Then '找到位置
rs("省") = ss("sheng")
rs("市") = ss("city")
rs("未修改标记") = "■■■■"
Response.Write (rs("country")&"========<font color=red>匹配成功</font>----<font color=#009100>"&ss("sheng")&"</font>---<font color=#C35A00>"&ss("city")&"</font><br>")
Exit Do '退出省市循环
End If
ss.movenext
Loop
rs.movenext
Loop

rs.update

补充:我是对整个表用指针进行运行的所以全部打开,有没有好的方法呢?