请问这段代码是什么呢？？

qq876529930 2009-11-14 03:53:48

是asp代码来的！
大家帮我分析下，这段代码是什么啊？？
我觉得应该是分析后台管理员的，是嘛？
这段代码是后台的！
而这个【["&lx_sql&"_admin】其实是数据库里的“btx_wap_98cn_0309_admin” 表！
而这个表是存放后台管理员的信息！

<%

http_ary=split(Request.ServerVariables("SCRIPT_NAME"),"/")

http_url=http_ary(ubound(http_ary))

http_memu=Replace(Request.ServerVariables("PATH_INFO"),http_url,"")

function uan(str)

	str=trim(str)

	if IsNull(str) then exit function

	str=replace(str,"%20","")

	str=replace(str," ","")

	str=replace(str,"?","")

	str=replace(str," ","")

	str=replace(str,"execute","")

	str=replace(str,"and","")

	str=replace(str,"=","")

	str=replace(str,"select","")

	str=replace(str,"where","")

        str=replace(str,"union","")

        str=replace(str,"from","")

        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(255),"")

        str=replace(str,Chr(13),"")

	uan=str

end function



dim sb

sid=uan(request("sid"))

if sid="" then response.Redirect"ebotx_login.asp"

if sid<>"" then

set rs06=Server.CreateObject("ADODB.Recordset")

sql06="select mysb,fyid,id,gljb,fyname from ["&lx_sql&"_admin] where [mysb]='"&sid&"'"

rs06.open sql06,conn,1,2

if rs06.eof then

response.Redirect lx_admin&"ebotx_login.asp"

else

myid=rs06("fyid")

admin_id=rs06("id")

admin_jb=rs06("gljb")

fyname=rs06("fyname")

if admin_jb="0" then jbtxt="超级管理员"

if admin_jb="1" then jbtxt="网站管理员"

if admin_jb="2" then jbtxt="资源更新员"



end if

rs06.close

set rs06=nothing

end if

%>