pjblog中清空引用的小程序

!--#include file="const.asp" -->
!--#include file="common/function.asp" -->
%
dim connstr,conn123,rsabc
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.mappath(AccessFile)
   SET Conn123=Server.CreateObject("ADODB.Connection")
   Conn123.Open connstr
   set rsabc=server.createobject("adodb.recordset")
   rsabc.open "select * from blog_Trackback",conn123,1,3
   response.write rsabc.recordcount
   rsabc.close
   rsabc.open "delete * from blog_Trackback",conn123,1,3
   set rsabc=nothing
   conn123.close
   set conn123=nothing
%>