<% Dim islogin,logintype,TheWeburl,IsMyWeb IsMyWeb = "no" TheWeburl = Request.ServerVariables("HTTP_HOST") if instr(TheWeburl,"any2000.com") or instr(TheWeburl,"any58.com") or instr(TheWeburl,"5uweb.com") then IsMyWeb = "yes" end if islogin = request.form("islogin") logintype = request.form("logintype") objectpage = request.querystring("objectpage") pn=request.querystring("pn") uname=request.cookies("LoginWeb")("perwebadminuser") if (uname<>"") and (islogin="" and islogintype="") then islogin = "yes" : islogintype="网站" end if width1=170 lp=request.querystring("lp") if pn="" then pn=7 select case logintype case "论坛" leftpage="webadmin_bbs.asp?uname="&uname topheight=39 case else if islogin="yes" then leftpage="webadmin.asp?uname="&uname&"&logintype="&logintype topheight=39 else if IsMyWeb = "no" then ' 当不是用户登录,登录其它页面属于非法登录 response.write "" response.end end if if lp<>"" then leftpage=lp&".asp" if lp="left003" then width1=187 if lp="left004" then width1=185 else leftpage="left001.asp?pn="&pn end if topheight=103 end if end select function rightpage(objectpage,islogin1) str=objectpage&".asp" if objectpage="webrequest" then str=str&"?developfrom="&trim(request.querystring("developfrom"))&"&dlname="&trim(request.querystring("dlname"))&"&any_fromweb="&trim(lcase(request.querystring("any_fromweb"))) elseif objectpage="" then if islogin="yes" then select case logintype case "企业" str="modelselectnew.asp?uname="&uname&"&modelsort=qyweb&modelsubsort=zhmodel" case "个人" str="modelselectnew.asp?uname="&uname&"&modelsort=gerweb&modelsubsort=zhmodel" case "论坛" str="showgonggao.asp?uname="&uname case else str="showgonggao.asp?uname="&uname end select else str="webadminlogin1.asp" end if end if rightpage=str end function %> 无忧网--网站管理后台 <% messagestr = trim(request.querystring("messagestr")) if messagestr <> "" then %> <% end if %> style="border:0"<%end if%> framespacing="0"> <%if islogin<>"yes" then%> <%else%> <%end if%> scrolling="yes"<%else%>scrolling="no"<%end if%> src="<%=leftpage%>"> <%if islogin="yes" then%> <%else%> <%end if%> <body bgcolor="#FFFFFF" style="border:0" text="#000000"> 对不起,你浏览器不支持帧! </body>