商家网的审核每天的量非常大，成了一个头痛的问题，最近花了点时间研究了asp和access，因为这个信息系统是asp+access的，很老的，所以必须了解点，还好sql是一样的，上手容易点。

以前审核是选择几个 就可以审核几个， 现在由于一天有几百条信息，审核时间太长了，必须想办法。研究了才发现，批量审核原来是如此的简单。

信息验证网页地址：admin/xinxi_yz.asp.

以前验证代码：

%
dim rs,sql,id,i,str2
id=trim(request("selectedid"))
str2=split(id,",")
for i=0 to ubound(str2)
set rs=server.createobject("adodb.recordset")
sql="select yz,fbsj from [FOX_xinxi] where id="&trim(str2(i))
rs.open sql,conn,1,3
if rs("yz")=0 then
rs("yz")=1
rs("fbsj")=now()
rs.update
end if
next
response.write "<script language=JavaScript>" & chr(13) & "alert('记录已经通过验证！');" &"window.location='xinxi.asp'" & "</script>"
%>

 

 

 

 

 

 

 

 

 

 

 

 

只要修改一下即可以实现：修改后的代码：

<%
dim rs,sql,id,i,str2
id=trim(request("selectedid"))
str2=split(id,",")
for i=0 to ubound(str2)
set rs=server.createobject("adodb.recordset")
sql="select yz,fbsj from [FOX_xinxi]
rs.open sql,conn,1,3
if rs("yz")=0 then
rs("yz")=1
rs("fbsj")=now()
rs.update
end if
next
response.write "<script language=JavaScript>" & chr(13) & "alert('记录已经通过验证！');" &"window.location='xinxi.asp'" & "</script>"
%>

这样就可以实现批量审核了，以前几天完不成的任务，现在 几分钟就搞定了，原来懒人是这么好做啊。