<!--#include file="config.asp"-->
<%
'网站config
dim web_title,web_url,web_logo,web_keyword,web_content,web_bottom,web_banner,web_class,web_defaultclass,menudh,gonggao
set rs=oa.execute("select * from web_config where lx='wap'")
if not rs.eof then        
        Response.Cookies("config").Path = webdir
		'不加密用户名,使登录的时候直接返回用户名.减少用户输入.
		web_title = rs(0)
		web_url = rs(1)
		web_defaultclass=rs(2)
		web_logo = rs(3)
		web_banner=rs(4)
		web_keyword = rs(5)
		web_content = rs(6)
		gonggao = rs(8)		
		hyxt=rs(10)
		plxt=rs(9)
		kefuQQ=rs("fax")
		wxewm=rs("spurl2")
			mfb=rs("jszc")
		Web_bottom= rs(7)&mfb
end if
rs.close
if mfb="" or instr(mfb,"www.huayuweb.cn")=0  then oa.msgshow("你使用是免费版，不能删除技术支持！")
dim Cid,PID,rs,listurl
if Cid<>"" then
if sid<>"" then
if not isnumeric(sid) then oa.msgshow("非法操作！")
set ra=oa.execute("select classname,parentpath from classlist where classid="&sid)
if ra.eof then oa.msgshow("非法操作！")
if not  ra.eof then
sclasss=ra(0)&"_"
end if
ra.close
set ra=nothing
end if
if not isnumeric(Cid) then oa.msgshow("非法操作！")
set rs=oa.execute("select classname,parentpath from classlist where classid="&Cid)
if rs.eof then oa.msgshow("非法操作！")
menudh="<a href='index.asp' class='white'>网站首页</a>"
dim Parentarry,m,classN,classM
parentarry=split(rs(1)&","&Cid,",")
classM=rs(0)
rs.close
if mfb="" or instr(mfb,"www.huayuweb.cn")=0  then oa.msgshow("你使用是免费版，不能删除技术支持！")
for m=1 to ubound(parentarry)
  set rs=oa.execute("select classid,classname,class_link,rootid from classlist where classid="&parentarry(m))
 if rs("rootid")=1 then
			listurl="plist.asp?Cid="&rs(0)
	
	elseif rs(2)<>"" then
	listurl=rs(2)
	else
	listurl="newslist.asp?Cid="&rs(0)
	end if
menudh=menudh&"<span class='white'>>></span>  <a href='"&listurl&"' class='white'>"&rs(1)&"</a>"
if sid<>"" then
set ra=oa.execute("select classname,parentpath,ctitle from classlist where classid="&sid)
if ra.eof then oa.msgshow("非法操作！")
if not  ra.eof then
if ra(2)<>"" then
Web_Title=ra(2)
else
Web_Title=sclasss&rs(1)&"_"&Web_title
end if
end if
ra.close
set ra=nothing
else
set ra=oa.execute("select classname,parentpath,ctitle from classlist where classid="&cid)
if ra.eof then oa.msgshow("非法操作！")
if not  ra.eof then
if ra(2)<>"" then
Web_Title=ra(2)
else
Web_Title=sclasss&rs(1)&"_"&Web_title
end if
end if
ra.close
set ra=nothing
end if

  rs.close
next

end if
if mfb="" or instr(mfb,"www.huayuweb.cn")=0  then oa.msgshow("你使用是免费版，不能删除技术支持！")

if PID<>"" then
if not isnumeric(PID) then oa.msgshow("非法操作！")

 set rs=oa.execute("select title,stitle from c_article where  id="&PID)
 if rs.eof then oa.msgshow("非法操作！")
 if not rs.eof then
 if rs(1)<>"" then
  Web_title=rs(1)
  else
 Web_title=rs(0)&"_"&Web_title
 end if
 end if

rs.close

end if%>

 
<%Session.TimeOut=1440%>