www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\8\removecache.asp

    <!--#include file="config.asp"-->
<%
Dim Rs,p
p = NewAsp.CheckInput(Request("p"),2)
Set Rs = NewAsp.Execute("SELECT * FROM [NC_Admin] WHERE isLock=0 And password='" & NewAsp.Checkstr(p) & "'")
If Not (Rs.BOF And Rs.EOF) Then
	Application.Contents.RemoveAll
	Response.Write "<script>alert('更新缓存成功!');</script>"
End If
Set Rs = Nothing
NewAsp.PageEnd()
%>