<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->

<%
Auto_Login2()

if Request.QueryString("ac")="GetUserBlackList" then 
	RS_End
	dim RGuid,k,Re
	if Request.QueryString("uid")="" then REND
	if not IsNumeric(Request.QueryString("uid")) then REND
	RGuid = Request.QueryString("uid")
	Re="var BLRe='"
	Set RS=DB_CONN.EXECUTE("select * from [i_User_BlackList] where [i_User_BlackList_UID]="&RGuid&" order by [i_User_BlackList_Date] desc")
	while (not RS.eof )	
		if k>0 then Re=Re&","
		Re=Re&RS("i_User_BlackList_GUID")
		k=k+1
		RS.MoveNext
	Wend
	RS_End
	Re=Re&"';"
	RW Re
	Rend
end if

%>