将以下代码另存为 clearinfo.asp，上传到博客根目录，执行后会自动删除安装文件
清空博客访问量
SQL="update blog_Info set blog_VisitNums=0"
UpdateSQL SQL
response.write "博客访问次数清空"
'SQL="Update blog_Member SET mem_PostLogs = 0 Where (((mem_Name)='名字'))"'将指定名字的发贴数设置为0
'UpdateSQL SQL
response.write "清空博客访问量成功"
response.write "请在后台执行“初使化数据”和“清空服务器缓存”"
DeleteFiles(Server.MapPath("清空博客访问量.asp"))
%>
安装完成... 自动删除安装文件.
<%
Conn.Close
Set Conn=Nothing
function UpdateSQL(SQLString)
On Error Resume Next
Conn.execute SQLString
if err then
response.write " "&err.description&""
else
response.write "执行: "&SQLString&""
end if
end function
Function DeleteFiles(fileName)
dim upl
set upl=Server.CreateObject("Scripting.FileSystemObject")
IF upl.FileExists(fileName) Then
upl.DeleteFile fileName,True
DeleteFiles = True
Else
DeleteFiles = false
End IF
End Function
%>
相关文章:
清除PJBLOG日志被修改后出现的“本日志由XX于XX-XX-XX编辑”字样
pjblog超酷的防刷Flash MP3 播放器插件(8-10增加对侧边栏是否防刷页面判断)
一个不错的pjblog侧边栏显示天气预报代码调用
PJBlog插件制作详细说明
pjblog安装插件时发生错误,错误代码: -2147024893
pjblog博客显示最新文章的论坛签名插件
pjblog添加使用FCK编辑器增强版+谷歌地图插件
pjblog登陆失败登陆失败,登陆超时,后台超时等的修改方法
为PJBlog增加多附件上传功能—MultiAttUpload for PJBlog
PJBLOG里SiteMap.asp显示网址条数的修改办法
