检查有日文片假名的新闻

这是在网上摘抄的,太多,看了还是不晓得解决,后来又继续翻了一把,发现一个工具,让我跌了一下眼镜,代码如下:

<%
'检查有日文片假名的新闻

Server.ScriptTimeout=300
dim conn,str,rs, sql
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
str="provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath("data/xsjnews.asa")
conn.open str
sql="select newsid from news"

rs.open sql,conn,1,1
on error resume next
do until rs.eof
 sql="select newsid from news where (title like 'a' or content like 'a') and newsid = "& rs("newsid")
 Err=0
 conn.execute(sql)
 if not Err=0 then
  Response.Write "错误新闻ID："
  Response.Write rs("newsid")
  Response.Write "<br>"
  Err=0
  'sql = "delete * from news where newsid ="& rs("newsid")
  'conn.execute(sql)
 end if
 rs.movenext
loop

rs.close
conn.close
response.write "查找完成"
%>