📄 strleft.asp

📁 良精2008多功能版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'=================================================================================
'
'产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
'版权所有：liangjing.net
'程序制作：liangjing开发团队
'Copyright 2006-2008 liangjing.net - All Rights Reserved. 
'
'================================================================================
%>
<%
Sub Style_Bulletin()
%>
<% if strSkins <= 200 and strSkins >= 1 then%>
<DIV align="center">
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>网 站 公 告</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
	<TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
 	<TR> 
		<TD vAlign=top><DIV align="center">
			<table width="168" height="120" border="0" cellPadding="0" cellSpacing="0" class="unnamed1">
				<tr>
				  <td align="center">
<marquee scrollamount='1'scrolldelay='170'direction= 'up' width='170'height='118'id="xiaoqing" onmouseover="xiaoqing.stop()" onmouseout="xiaoqing.start()">
            <%=CSJ_Bulletin%>
          </marquee></td>
				</tr>
			</table>
		</DIV></TD>
	</TR>
	<TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE></DIV>
<%
elseif strSkins <= 250 and strSkins >= 201 then
%>
<DIV align="center">
<table border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><img border="0" src="../Skin/201/window/zs-glay-top.gif" width="206" height="48" /></td>
    </tr>
    <tr>
      <td background="../Skin/201/window/glay-mid.gif">
        <DIV align="center">
			<table width="168" height="120" border="0" cellPadding="0" cellSpacing="0" class="unnamed1">
				<tr>
				  <td align="center">
<marquee scrollamount='1'scrolldelay='170'direction= 'up' width='170'height='118'id="xiaoqing" onmouseover="xiaoqing.stop()" onmouseout="xiaoqing.start()"><%=CSJ_Bulletin%></marquee>
                  </td>
				</tr>
			</table>
		</DIV>
	  </td>
    </tr>
    <tr>
      <td><img border="0" src="../Skin/201/window/glay-buttom.gif" width="206" height="15" /></td>
    </tr>
</table>
<table cellpadding="0" cellspacing="0" border="0">
    <tr>
      <td height="8"><img src='../img/1x1_pix.gif' width="3" height="1" /></td>
    </tr>
</table>

</DIV>
<%end if%>
<%
End Sub
Sub Style_Login()
if strSkins <= 100 and strSkins >= 1 then
%>
<%
elseif strSkins <= 200 and strSkins >= 101 then
%>
<DIV align="center">
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>会 员 登 陆</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
	<TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR> 
		<TD vAlign=top>
			<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr> 
					<td><% call ShowUserLogin() %></td>
				</tr>
			</table>
		</TD>
	</TR>
	<TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
</DIV>
<%
elseif strSkins <= 250 and strSkins >= 201 then
%>
<DIV align="center">
  <% call ShowUserLogin4() %>
  <TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>

</DIV>
<%
end if
End Sub

Sub Style_CoProfile()
%>
<DIV align="center">
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>公 司 简 介</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 class="ML_Titlebg">
	<TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Profile">公 司 介 绍</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Ceo">总 裁 致 辞</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Culture">公 司 文 化</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Organize">组 织 机 构</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Principle">精 神 理 念</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="CoProfile.asp?Action=Contact">联 系 我 们</a></TD>
	</TR>
	<TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
</DIV>
<%
End Sub

Sub Style_News()
%>
<DIV align="center">
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>新 闻 中 心</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
	<TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR> 
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="News.asp?Action=Co">公 司 新 闻</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR> 
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="News.asp?Action=Ye">业 内 资 讯</a></TD>
	</TR>
	<TR><TD colspan=2 class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR> 
		<TD class='ML_TdImgLI'></TD>
		<TD class='ML_Tdbg'><a href="News.asp?Action=Pr">产 品 动 态</a></TD>
	</TR>
	<TR><TD colspan=2 height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
</DIV>
<%
End Sub

Sub Style_Product()
%>
<DIV align="center">
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>产 品 列 表</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
	<TR><TD height=2><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR>
		<TD vAlign=top><% call ShowSmallClass_Tree() %></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
</DIV>
<%
End Sub
dim pv,rssetup
set pv=conn.execute("select * from shopsetup")
Set rssetup=conn.execute("select * from shopsetup") 
kaiguan=rssetup("kaiguan")
guanbi=rssetup("guanbi")



loginskin=rssetup("loginskin")
yzm_skin=rssetup("yzm_skin")
bodyfixed=rssetup("bodyfixed")
sitekeywords=rssetup("sitekeywords")
sitedescription=rssetup("sitedescription")
sitename=rssetup("sitename")
siteurl=rssetup("siteurl")
adm_mail= rssetup("adm_mail")
adm_kf= rssetup("adm_kf")
kf_color= rssetup("kf_color")
newsmove=rssetup("newsmove")
news_skin=rssetup("news_skin")
type1=rssetup("usertype1")
type2=rssetup("usertype2")
type3=rssetup("usertype3")
type4=rssetup("usertype4")
type5=rssetup("usertype5")
type6=rssetup("usertype6")
kou1=rssetup("kou1")
kou2=rssetup("kou2")
kou3=rssetup("kou3")
kou4=rssetup("kou4")
kou5=rssetup("kou5")
kou6=rssetup("kou6")
mosi=rssetup("mosi")
pic_xiaogao=rssetup("pic_xiaogao")
lar_color=rssetup("lar_color")		'大类颜色
mid_color=rssetup("mid_color")		'中类颜色
tree_num=rssetup("tree_num")
tree_view=rssetup("tree_view")
tree_display=rssetup("tree_display")
index_tishi=rssetup("index_tishi")
quehuo=rssetup("quehuo")
wujiage=rssetup("wujiage")
huiyuanjia=rssetup("huiyuanjia")
prompt_num= rssetup("prompt_num")
newprod_num= rssetup("newprod_num")
renmen_num= rssetup("renmen_num")
fenlei_num= rssetup("fenlei_num")
reg= rssetup("reg")
bbs= rssetup("bbs")
help_hang=rssetup("help_hang")
menu= rssetup("menu")
lockip= rssetup("lockip")
prod_pic="pic/"
qqonline=rssetup("qqonline")
adm_qq= rssetup("adm_qq")
adm_qq_name= rssetup("adm_qq_name")
whereqq=rssetup("whereqq")
kefuskin=rssetup("kefuskin")
qqskin=rssetup("qqskin")
qqmsg_on=rssetup("qqmsg_on")
qqmsg_off=rssetup("qqmsg_off")
lockip=rssetup("lockip")
ip=rssetup("ip")
topmenu_view=rssetup("topmenu_view")
topmenu=rssetup("topmenu")
music=rssetup("other1")
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
QQ_NAME=split(adm_qq_name,",")
Sub Style_Search()
'dim adm_qq,qqonline,adm_qq_name,QQ,MyQQ,QQ_NAME,kefuskin,qqmsg_off,qqmsg_on,qqskin,sitename




%>
<DIV align="center">
<%if strSkins <= 200 and strSkins >= 1 then%>
<TABLE cellPadding=0 cellSpacing=0 class='ML_TitlePt'>
	<TR> 
		<TD class='ML_TdPtbg'><SPAN class=GlowLeft>产 品 搜 索</SPAN></TD>
	</TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 align="center" class="ML_Titlebg">
	<TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	<TR> 
		<TD vAlign=top><% call ShowSearch(1) %></TD>
	</TR>
	<TR><TD height=5><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
</TABLE>
<TABLE cellPadding=0 cellSpacing=0 border=0><TR><TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR></TABLE>
<%
elseif strSkins <= 250 and strSkins >= 201 then '新风格==============================================================
%>
<table border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td><img border="0" src="../Skin/201/window/search-glay-top.gif" width="206" height="48" /></td>
  </tr>
  <tr>
    <td background="../Skin/201/window/glay-mid.gif"><div align="center">
        <table width="92%" border="0" align="center" cellpadding="2" cellspacing="0">
          <tr>
            <td align="center"><form action="../chinese/Search.asp" method="post">
                <font color="#666666">请输入搜索关键字：<br />
                <input name="keyword" type="text" class="form" id="keyword" size="15" />
                <input type="submit" value="搜 索 " name="sub" class="form" />
                </font>
                </p>
            </form></td>
          </tr>
      </table></td>
  </tr>
  <tr>
    <td><img border="0" src="../Skin/201/window/glay-buttom.gif" width="206" height="15" /></td>
  </tr>
</table>
<table cellpadding="0" cellspacing="0" border="0">
  <tr></tr>
  <tr>
    <td height="8"><img src='../img/1x1_pix.gif' width="3" height="1" /></td>
  </tr>
</table>





<table border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td><img border="0" src="images/qq/kefu-glay-top.gif" width="206" height="48" /></td>
  </tr>
  <tr>
    <td background="../Skin/201/window/glay-mid.gif">
	<div style="position:relative;left:50"><table >
<script language="javascript">
var online= new Array();

</script>
<script src="http://webpresence.qq.com/getonline?Type=1&<%=Myqq%>"></script>
<%
for N=0 to UBound(QQ)
%>

<script language="javascript">
if (online[<%=n%>]==0)
{
document.write("<tr><td align=left><a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Menu=no'><img alt='<%=qqmsg_off%>' src=images/qq/QQoff1.gif border=0 align=middle></a></td><td><a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Menu=no'><%=QQ_name(n)%></a></td></tr>");
}
else

</script>
12 下一页
💿 文件大小 2884 K
👤 上传用户 kight521
📂 所属分类企业管理
🏷️ 相关标签

#2008 #多功能
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -