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()
%>