www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\ask\script\delcache.asp
<!--#include file="const.asp"--> <!--#include file="../inc/md5.asp"--> <% Dim Rs,AskedKey,iAskedKey,cName AskedKey = NewAsp.CheckBadstr(Request("key")) cName = NewAsp.CheckBadstr(Request("name")) Set Rs = NewAsp.Execute("SELECT id,AskedKey FROM [NC_Ask_Setup]") If Not (Rs.BOF And Rs.EOF) Then iAskedKey = md5(Rs("AskedKey"),16) If AskedKey = iAskedKey Then If cName <> "all" And cName <> "0" And cName <> "" Then NewAsp.DelCahe(cName) Else Application.Contents.RemoveAll End If End If End If Set Rs = Nothing NewAsp.CloseConn() %>