<%  


sid=Request.querystring("sid")

saytk=Request.querystring("saytk")

dim rsqq,KEYid,keyuser
set rsqq=server.createobject("adodb.recordset")
'conn.Execute"Update twapp set ads6='"&sid_url()&"'"  
Sqlqq="select * from [adminguli] where sid='"&sid&"'"
rsqq.open sqlqq,conn,1,1
if rsqq.eof then 
response.redirect "login.asp"
end if
if rsqq("sid")<>sid then 
response.redirect "login.asp"
end if
KEYid=rsqq("ID")
keyuser=rsqq("username")
key=rsqq("key")
rsqq.close
set rsqq=Nothing

'过滤字符写入数据库USBB
function usbb(str)
str=trim(str)
	if IsNull(str) then exit Function
	str=replace(str,"[标识]","saytk=[saytk]&sid=[sid]")
	str=replace(str,"","")
	str=replace(str," ","")
	str=replace(str,"Λ","")
	str=replace(str,"<","＜")
	str=replace(str,">","＞")
	str=replace(str,"无界浏览器","*")
	str=replace(str,"特码","*")
	str=replace(str,"法轮功","*")
	str=replace(str,"法轮大法","*")
	str=replace(str,"李洪志","*")
	str=replace(str,"大法弟子","*")
	str=replace(str,"大纪元","*")
	str=replace(str,"六合","*")
	str=replace(str,"真善忍","*")
	str=replace(str,"修炼大法","*")
	str=replace(str,"反共","*")
	str=replace(str,"台独","*")
	str=replace(str,"反革命","*")
	str=replace(str,"疆独","*")
	str=replace(str,"藏独","*")
	str=replace(str,"多党执政","*")
	str=replace(str,"江泽民","*")
	str=replace(str,"胡锦涛","*")
	str=replace(str,"罗干","*")
	str=replace(str,"镕基","*")
	str=replace(str,"李鹏","*")
	str=replace(str,"温家宝","*")
	str=replace(str,"温家堡","*")
	str=replace(str,"六四","*")
	str=replace(str,"玉蒲团","*")
	str=replace(str,"素女自拍","*")
	str=replace(str,"成人片","*")
	str=replace(str,"成人电影","*")
	str=replace(str,"激情图片","*")
	str=replace(str,"激情电影","*")
	str=replace(str,"成人小说","*")
	str=replace(str,"肉棍","*")
	str=replace(str,"淫水","*")
	str=replace(str,"乱伦","*")
	str=replace(str,"嫖鸡","*")
	str=replace(str,"小穴","*")
	str=replace(str,"换妻","*")
	str=replace(str,"淫魔","*")
	str=replace(str,"淫女","*")
	str=replace(str,"淫靡","*")
	str=replace(str,"口交","*")
	str=replace(str,"迷药","*")
	str=replace(str,"迷昏药","*")
	str=replace(str,"窃听器","*")
	str=replace(str,"六合彩","*")
	str=replace(str,"买卖枪支","*")
	str=replace(str,"退党","*")
	str=replace(str,"麻醉药","*")
	str=replace(str,"短信群发器","*")
	str=replace(str,"色情服务","*")
	str=replace(str,"出售枪支","*")
	str=replace(str,"摇头丸","*")
	str=replace(str,"出售假币","*")
	str=replace(str,"监听王","*")
	str=replace(str,"蒙汗","*")
	str=replace(str,"迷奸药","*")
	str=replace(str,"催情药","*")
	str=replace(str,"办理证件","*")
	str=replace(str,"反政府","*")
	str=replace(str,"乱伦","*")
	str=replace(str,"待开发票","*")
	str=replace(str,"代开发票","*")
	str=replace(str,"老虎机","*")
	str=replace(str,"换妻","*")
	str=replace(str,"曾道人","*")
	str=replace(str,"仿真假钞","*")
	str=replace(str,"裸聊","*")
	str=replace(str,"Ψ","")
	str=replace(str,"","")
    str=replace(str,Chr(13),"\\")
    str=replace(str,"\\\\","\\")
	str=replace(str,"&","@@")
	str=replace(str,"@@","&amp;")

	usbb=str
end function
%>





