left.asp 中网景企业网站管理系统 2008源码程序 - ASP源码程序

www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/left.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
Dim rs1,rs2
set rs1=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
dim eng
if lang=1 then eng="_en"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="CNKBBS Powered by websys.cn - Leung">
<script lanuage="JScript">
function turnit(ss)
{
if (ss.style.display=="none") 
  {ss.style.display="";}
else
  {ss.style.display="none"; }
}
</script>
<link href="admin.css" rel="stylesheet" type="text/css">
<base target="main">
<style type="text/css">
<!--
body {
	background-color: #A2C4E2;
	background-image: url(images/leftbg.gif);
}
-->
</style></head>

<body leftmargin="0" topmargin="0">
<div><img src="images/top_logo.gif" width="138" height="78"></div>
<div class="leftcontent" align="center"><a href="welcome.asp" title="后台管理首页">首页</a> | <a href="javascript:history.go(0);" target="_self" title="如有添加了新栏目，请刷新">刷新</a> | <a href="logout.asp" target="_parent" title="退出后台管理">退出</a></div>

<div class="lefttitle" style="cursor: hand" onMouseUp="turnit(base);" language="JScript">系统设置</div>
<div class="leftcontent" id="base" style="position: relative">
 · <a href="config.asp">基本设置</a><br />
 · <a href="Channel.asp">栏目管理</a><br />
 · <a href="Display.asp">显示设置</a><br /> 
 · <a href="GongGao.asp">公告管理</a><br />
 · <a href="ggtv.asp">首页图片轮换</a><br />
 · <a href="diaoyong.asp">首页调用</a><br />
 <!--· <a href="recommendimg.asp">首页推荐产品图片</a><br />
 · <a href="web_reg.asp">软件注册</a><br />  -->
 · <a href="Admin.asp">修改管理员</a> | <a href="Admin.asp?action=add">添加</a><br>
</div>
<% If GetChannelContent(3,"isStop")=0 Then %>
<div class="lefttitle" style="cursor: hand" onMouseUp="turnit(pro);" language="JScript">产品管理</div>
<div class="leftcontent" id="pro" style="position: relative; display:none;">
<!--· <a href="products_config.asp">产品显示设置</a><br />-->
· <a href="product_class.asp">产品管理</a><br />
· <a href="product_article.asp">产品相关新闻链接</a><br />
· <a href="Comment.asp?ChannelID=3&ModuleType=3">评论管理</a><br />
· <a href="Sendway.asp">送货方式管理</a><br />
· <a href="payway.asp">付款方式管理</a><br />
</div>
<% End If %>
<% 
rs.open "select ChannelID,ChannelName"&eng&",ChannelType,ModuleType from Cnk_Channel where ModuleType<>3 and ModuleType<>100 and ChannelType<2 and UpChannelID=0 and isStop=0 order by paixu",conn,1,1
do while not rs.eof 
Response.Write("<div class=""lefttitle"" style=""cursor: hand"" onMouseUp=""turnit(cnk"&rs(0)&");"" language=""JScript"">"&rs(1)&"</div>"&vbcrlf)
Response.Write("<div class=""leftcontent"" id=""cnk"&rs(0)&""" style=""position: relative; display:none;"">"&vbcrlf)
if rs(2)=0 then
Select Case rs(3)
Case 1 Response.Write("· <a href=""common.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
Case 2 Response.Write("· <a href=""Article.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
Case 4 Response.Write("· <a href=""Image.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
Case 5 
	Response.Write("· <a href=""Download.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
	Response.Write("· <a href=""Download_class.asp?ChannelID="&rs(0)&""">下载类别管理</a><br />"&vbcrlf)
Case 6 Response.Write("· <a href=""GuestBook.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />")
Case 7
	Response.Write("· <a href=""Hr.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
	Response.Write("· <a href=""Hr_jianli.asp?ChannelID="&rs(0)&""">应聘管理</a><br />"&vbcrlf)
Case 8 Response.Write("· <a href=""node.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
Case 9 Response.Write("· <a href=""links.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
Case 10 Response.Write("· <a href=""vote.asp?ChannelID="&rs(0)&""">"&rs(1)&"管理</a><br />"&vbcrlf)
End Select
end if
Response.Write("</div>"&vbcrlf)
rs.movenext
loop
rs.close %>
<% If GetChannelContent(7,"isStop")=0 Then %>
<div class="lefttitle" style="cursor: hand" onMouseUp="turnit(user);" language="JScript">用户相关信息</div>
<div class="leftcontent" id="user" style="position: relative; display:none;">
· <a href="user_info.asp">添加用户</a><br />
· <a href="users.asp">注册用户管理</a><br />
· <a href="order.asp">订单管理</a><br />
· <a href="userguestbook.asp">用户个人留言</a><br />
· <a href="otherform.asp"></a><br />
</div>
<% End If %>
<% If isBBS=1 Then %>
<div class="lefttitle" style="cursor: hand" onMouseUp="turnit(bbs);" language="JScript">论坛调用</div>
<div class="leftcontent" id="bbs" style="position: relative; display:none;">
· <a href="bbsdiaoyong.asp">论坛首页调用说明</a><br />
· <a href="../bbs/cnkadmin/" target="_blank">论坛后台管理</a><br />
</div>
<% End If %>
<div class="lefttitle"><a href="logout.asp" target="_parent" class="white">退出管理</a></div>
<table width="138" border="0" cellpadding="0" cellspacing="0" bgcolor="#C8D9FF">
  <tr>
    <td width="137" align="center" bgcolor="#4073A3"><br />
    <font color="#4073A3">CNK WEBSYS</font><br /></td>
  </tr>
</table>
<script language="JavaScript" type="text/JavaScript" src="sysrecord.asp"></script>
</body>
</html>