tv_leftmenu.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<!--#include file="skins/skin.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
dim skinSet
if Request("skin")<>"" then
response.Cookies("maosinSkin")("skin")=request("skin")
response.Cookies("maosinSkin").Expires=DateAdd("m",1,Date)
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
if Request.Cookies("maosinSkin")("skin")<>"" then
	skinSet=Request.Cookies("maosinSkin")("skin")
else
	skinSet=getSkin(0)
	response.Cookies("maosinSkin")("skin")=getSkin(0)
end if
response.write("<script language=""JavaScript"" src=""include/function.js""></script>")
response.write("<link href=""skins/"&skinSet&"/skin.css"" type=""text/css"" rel=stylesheet>")
dim rs,i,strTemp
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,tvName,rootID,sflag,tvClick from ms_tv where rootID=0 order by sflag,id asc",connstr,1,1
i=1
do while not rs.Eof
	if i=1 then
		if rs(2)=0 and rs(3)=1 then
			strTemp="<img id=""tvimg"" src=""images/tv/node3.gif"" align=""absmiddle"">"
		else
			strTemp="<img id=""tvimg"" src=""images/tv/firstnodeclose.gif"" align=""absmiddle"">"
		end if
	elseif i=rs.RecordCount then
		if rs(2)=0 and rs(3)=1 then
			strTemp="<img id=""tvimg1"" src=""images/tv/node1.gif"" align=""absmiddle"">"
		else
			strTemp="<img id=""tvimg1"" src=""images/tv/lastnodeclose.gif"" align=""absmiddle"">"
		end if
	else
		if rs(2)=0 and rs(3)=1 then
			strTemp="<img src=""images/tv/node2.gif"" align=""absmiddle"">"
		else
			strTemp="<img src=""images/tv/nodeclose.gif"" align=""absmiddle"">"
		end if
	end if
	if rs(2)=0 and rs(3)=1 then
		response.write("<div style=""cursor:hand;"">"&strTemp&"<img src=""images/tv/tvico.gif"" align=""absmiddle""><a href=""showtv.asp?id="&rs(0)&""" target=""showtv"" title=""观看次数："&rs(4)&"次"">"&rs(1)&"</a></div>")
	else
		response.write("<div style=""cursor:hand;"" onClick=""showtvClass(this)"">"&strTemp&"<img src=""images/tv/folderclose.gif"" align=""absmiddle"">"&rs(1)&"</div>")
	end if
	if i=rs.RecordCount then
		flag=1
	else
		flag=0
	end if
	response.write ("<div style=""display:none;"">"&GetChildClass(rs(0),flag)&"</div>")
	rs.MoveNext
	i=i+1
loop
rs.close
Set rs=Nothing
Function GetChildClass(rootID,flag)
dim crs,strTemp,strTemp2,i
Set crs=Server.CreateObject("ADODB.RecordSet")
crs.Open "select id,tvName,tvUrl,tvType,rootID,tvClick from ms_tv where rootID="&rootID&" order by tvName asc",connstr,1,1
i=1
do while not crs.eof
	if i=crs.RecordCount then
		strTemp2="<img src=""images/tv/node1.gif"" align=""absmiddle"">"
	else
		strTemp2="<img src=""images/tv/node2.gif"" align=""absmiddle"">"
	end if
	if flag=1 then
		strTemp3="<span style=""width:16px;""></span>"
	else
		strTemp3="<img src=""images/tv/vertline.gif"" align=""absmiddle"">"
	end if
	strTemp=strTemp&"<div>"&strTemp3&strTemp2&"<img src=""images/tv/tvico.gif"" align=""absmiddle""><a href=""showtv.asp?id="&crs(0)&""" target=""showtv"" title=""观看次数："&crs(5)&"次"">"&crs(1)&"</a></div>"
	crs.MoveNext
	i=i+1
loop
GetChildClass=strTemp
crs.close
Set crs=Nothing
End Function
%>