⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bs_strleft.asp

📁 详细说明在文件 程序说明： 　☆ 中英文双语版 　☆ 后台在同一页内同时管理添加修改资料内的中英文内容 　☆ 网站的左边栏使用了模块,可以自由的增加&删除 　☆ 可以不用修改代码,
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
</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="Bs_Job.asp">人 才 招 聘</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="Bs_Jobs.asp">人 才 策 略</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_Download()
%>
<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><% call Show_DownSmallClass_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

Sub Style_Member()
%>
<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="Bs_Faq.asp">常见问题解答</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="Bs_Went.asp">用户信息反馈</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="Bs_Manage.asp">修改会员资料</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="Bs_ManagePwd.asp">修改会员密码</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="Bs_E_shop.asp">购物订单查询</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="Bs_NetBook.asp">站内留言中心</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="Bs_UserLogout.asp">退出会员中心</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_Mail()
%>
<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> 
		<form method="POST" action="Mail_chk.asp">
			<TD vAlign=top>
				<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
					<tr> 
						<td height="25"> <div align="center"><input name='email' type='text' value="@" size='15'></div></td>
					</tr>
					<tr> 
						<td height="25"><div align="center"> 
							<input type="submit" value="订阅" name="action">
							&nbsp; 
							<input type="submit" value="退订" name="action">
						</div></td>
					</tr>
				</table>
			</TD>
		</form>
	</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>
<%
End Sub

Sub Style_Fellow()
%>
<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>
<%
dim rs_links,sqltext4,i
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from Bs_Links order by id desc"
rs_links.open sqltext4,conn,1,1

i=0
do while not rs_links.eof
%>
				<TR vAlign=center>
					<TD align='center' class='ML_Tdbg'>
					<a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a></TD>
				</TR>
				<TR><TD class='TdDotted'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<%
rs_links.movenext
i=i+1
if i=10 then exit do
loop
rs_links.close 
%>
</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_Adcolumn()
%>
<SCRIPT LANGUAGE="JavaScript" src="../Skin/<%=strSkins%>/BsImgLogo.js"></SCRIPT>
<%
End Sub
'首页
Sub Left_Index() 

Call Style_Login() '会员登陆
Call Style_Bulletin() '网站公告
Call Style_Product() '产品列表
Call Style_Fellow() '友情连接
End Sub

'公司简介
Sub Left_CoProfile() 

Call Style_Login() '会员登陆
Call Style_CoProfile() '公司简介
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'新闻资讯
Sub Left_News() 

Call Style_Login() '会员登陆
Call Style_News() '新闻中心
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'产品展示
Sub Left_Product() 

Call Style_Login() '会员登陆
Call Style_Product() '产品列表
Call Style_Search() '产品搜索
Call Style_Fellow() '友情连接
End Sub

'公司荣誉
Sub Left_Honor() 

Call Style_Login() '会员登陆
Call Style_Honor() '公司荣誉
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'营销网络
Sub Left_Sale() 

Call Style_Login() '会员登陆
Call Style_Sale() '营销网络
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'人才招聘
Sub Left_Job() 

Call Style_Login() '会员登陆
Call Style_Job() '人才招聘
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'下载中心
Sub Left_Download() '下载列表

Call Style_Login() '会员登陆
Call Style_Download() '产品列表
Call Style_Fellow() '友情连接
End Sub

'会员中心
Sub Left_Member() 

Call Style_Member() '会员中心
'Call Style_Mail() '邮件列表
Call Style_Fellow() '友情连接
End Sub

'call Style_Bulletin()
%>
12

⌨️ 快捷键说明

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