<!--#include file="../../Inc/conn.asp"-->
<!--#include file="../../Inc/config.asp"-->
<!--#include file="Bs_Function.asp"-->
<%
Dim sql_BsSys,rs_BsSys
Dim BsCompanyName,BsEnCompanyName
Dim BsAddress,BsLinkman,BsEnLinkman
Dim BsPhone,BsFax,BsWeb,BsEmail,BsWebMail,BsZipcode,BsSkins_Default
Dim StarTime,Style_Copy
StarTime=timer()

sql_BsSys="select * from Syswork where code='101'"
Set rs_BsSys= Server.CreateObject("ADODB.Recordset")
rs_BsSys.open sql_BsSys,conn,1,1

BsCompanyName=trim(rs_BsSys("BsCompanyName"))
BsEnCompanyName=trim(rs_BsSys("BsEnCompanyName"))
BsAddress=trim(rs_BsSys("BsAddress"))
BsEnAddress=trim(rs_BsSys("BsEnAddress"))
BsLinkman=trim(rs_BsSys("BsLinkman"))
BsEnLinkman=trim(rs_BsSys("BsEnLinkman"))
BsPhone=trim(rs_BsSys("BsPhone"))
BsFax=trim(rs_BsSys("BsFax"))
BsWeb=trim(rs_BsSys("BsWeb"))
BsEmail=trim(rs_BsSys("BsEmail"))
BsWebMail=trim(rs_BsSys("BsWebMail"))
BsZipcode=trim(rs_BsSys("BsZipcode"))
BsSkins_Default=trim(rs_BsSys("BsSkins_Default"))
rs_BsSys.close
set rs_BsSys=nothing
%>
<%
if Request.Cookies("BsSkins")=empty then Response.Cookies("BsSkins")=BsSkins_Default
Style_Copy	=	"<"&chr(84)&chr(82)&">"&"<"&chr(84)&chr(68)&" "&chr(99)&chr(108)&chr(97)&chr(115)&chr(115)&chr(61)&"'"&chr(98)&"o"&chr(116)&chr(116)&"o"&chr(109)&chr(95)&chr(84)&chr(100)&"'"&">"&"<"&chr(68)&chr(73)&chr(86)&" "&chr(97)&chr(108)&chr(105)&chr(103)&chr(110)&chr(61)&chr(99)&"e"&chr(110)&chr(116)&"e"&chr(114)&">"&" "&chr(-20250)&chr(-14168)&chr(-13319)&chr(-11312)&" "&chr(36)&chr(66)&chr(115)&chr(67)&"o"&chr(109)&chr(112)&chr(97)&chr(110)&chr(121)&chr(78)&chr(97)&chr(109)&"e"&" "&"<"&chr(98)&chr(114)&">"&chr(67)&"o"&chr(112)&chr(121)&chr(114)&chr(105)&chr(103)&chr(104)&chr(116)&" "&chr(38)&chr(99)&"o"&chr(112)&chr(121)&chr(59)&" "&chr(50)&chr(48)&chr(48)&chr(50)&chr(45)&chr(50)&chr(48)&chr(48)&chr(53)&" "&chr(36)&chr(66)&chr(115)&chr(87)&"e"&chr(98)&" "&chr(65)&chr(108)&chr(108)&" "&chr(114)&chr(105)&chr(103)&chr(104)&chr(116)&chr(115)&" "&chr(114)&"e"&chr(115)&"e"&chr(114)&chr(118)&"e"&chr(100)&" "&"<"&chr(66)&chr(82)&">"&chr(80)&"o"&chr(119)&"e"&chr(114)&"e"&chr(100)&" "&chr(66)&chr(121)&" "&"："&"<"&chr(97)&" "&chr(104)&chr(114)&"e"&chr(102)&chr(61)&"'"&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(119)&chr(119)&chr(119)&"."&"e"&chr(98)&"o"&chr(115)&chr(115)&chr(105)&"."&chr(99)&"o"&chr(109)&"'"&" "&chr(99)&chr(108)&chr(97)&chr(115)&chr(115)&chr(61)&"'"&chr(98)&"o"&chr(116)&chr(116)&"o"&chr(109)&"'"&">"&chr(66)&"o"&chr(115)&chr(115)&chr(105)&chr(87)&"e"&chr(98)&chr(77)&chr(73)&chr(66)&" "&chr(86)&"e"&chr(114)&chr(115)&chr(105)&"o"&chr(110)&" "&chr(51)&"."&chr(48)&"<"&chr(47)&chr(97)&">"&"<"&chr(66)&chr(82)&">"&chr(-11597)&chr(-15386)&chr(-10572)&chr(-12080)&chr(-13647)&chr(-17180)&"："&chr(36)&chr(69)&chr(120)&"e"&chr(99)&chr(117)&chr(116)&chr(105)&"o"&chr(110)&chr(84)&chr(105)&chr(109)&"e"&" "&chr(-17727)&chr(-15381)&"<"&chr(47)&chr(68)&chr(73)&chr(86)&">"&"<"&chr(47)&chr(84)&chr(68)&">"&"<"&chr(47)&chr(84)&chr(82)&">"
%>
<%
'=========================================================
'
' 产品称名：雪狼网络 电脑公司网站管理系统奥运庆典版（简称：bossiWebMIB）
' 版权所有: www.kkyy.org 
' 程序制作：雪狼工作室
' Copyright 2004-2005 www.kkyy.org - All Rights Reserved. 
'
'========================================================
%>
<%
'=================================================
'过程名：ShowUserLogin
'作  用：显示用户登录表单
'参  数：无
'=================================================
sub ShowUserLogin()
	dim strLogin
	If Session("UserName")="" Then
			strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
			strLogin=strLogin & "<form action='Bs_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
			strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td></tr>"
			strLogin=strLogin & "<tr><td height='25' align='right'>密&nbsp;&nbsp;码：</td><td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td></tr>"
			strLogin=strLogin & "<tr align='center'><td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' 登录 '> <input name='Reset' type='reset' id='Reset' value=' 清除 '>"
			strLogin=strLogin & "</td></tr>"
			strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='../../UserReg.asp'>新用户注册</a>&nbsp;&nbsp;<a href='../../GetPassword.asp' target='_blank'>忘记密码？</a></td></tr>"      
			strLogin=strLogin & "</form></table>"
		response.write strLogin
%>
<script language=javascript>
	function CheckForm()
	{
		if(document.UserLogin.UserName.value=="")
		{
			alert("请输入用户名！");
			document.UserLogin.UserName.focus();
			return false;
		}
		if(document.UserLogin.Password.value == "")
		{
			alert("请输入密码！");
			document.UserLogin.Password.focus();
			return false;
		}
	}
</script>
<%
	Else 
		response.write "<BR>欢迎您！" & Session("UserName") & "<br><br>"
		response.write "<b>用户控制面板：</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='../../Server.asp'><b>会员管理中心</b></a><br><br>"
	end if
end sub

'=================================================
'过程名：ShowUserLogina
'作  用：显示用户登录表单
'参  数：无
'=================================================
sub ShowUserLogina()
	dim strLogin
	If Session("UserName")="" Then
			strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
			strLogin=strLogin & "<form action='Bs_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
			strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td></tr>"
			strLogin=strLogin & "<tr><td height='25' align='right'>密&nbsp;&nbsp;码：</td><td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td></tr>"
			strLogin=strLogin & "<tr align='center'><td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' 登录 '> <input name='Reset' type='reset' id='Reset' value=' 清除 '>"
			strLogin=strLogin & "</td></tr>"
			strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='../../UserReg.asp'>新用户注册</a>&nbsp;&nbsp;<a href='../../GetPassword.asp' target='_blank'>忘记密码？</a></td></tr>"      
			strLogin=strLogin & "</form></table>"
		response.write strLogin
%>
<script language=javascript>
	function CheckForm()
	{
		if(document.UserLogin.UserName.value=="")
		{
			alert("请输入用户名！");
			document.UserLogin.UserName.focus();
			return false;
		}
		if(document.UserLogin.Password.value == "")
		{
			alert("请输入密码！");
			document.UserLogin.Password.focus();
			return false;
		}
	}
</script>
<%
	Else 
		response.write "欢迎您！" & Session("UserName") & "<br><br>"
		response.write "<b>用户控制面板：</b><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='../../Server.asp'><b>会员管理中心</b></a><br><br>"
	end if
end sub
'=================================================
'过程名：ShowUserLoginT
'作  用：显示用户登录表单
'参  数：无
'=================================================
sub ShowUserLoginT()
	dim strLogin
	If Session("UserName")="" Then
    	strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
			strLogin=strLogin & "<form action='Bs_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'><tr>"
			strLogin=strLogin & "<td height='25' align='right'>&nbsp;会员登陆∶&nbsp;用户&nbsp;</td>"
			strLogin=strLogin & "<td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td>"
			strLogin=strLogin & "<td height='25' align='right'>&nbsp;密码&nbsp;</td>"
			strLogin=strLogin & "<td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td>"
			strLogin=strLogin & "<td  width='8'> </td>"
			strLogin=strLogin & "<td height='25'><input type=image height=18 width=42 src='../Img/bot_login.gif' name=image></td>"
			strLogin=strLogin & "<td  width='10'> </td>"
			strLogin=strLogin & "<td height='25' align='center'><a href='Bs_UserReg.asp'><IMG src='../img/bot_reg.gif' width=42 height=18 border=0></a></td>"      
	'		strLogin=strLogin & "<td height='25' align='center'><a href='Bs_GetPassword.asp' target='_blank'>忘记密码</a></td>"      
			strLogin=strLogin & "</tr></form></table>"
		response.write strLogin
%>
<script language=javascript>
	function CheckForm()
	{
		if(document.UserLogin.UserName.value=="")
		{
			alert("请输入用户名！");
			document.UserLogin.UserName.focus();
			return false;
		}
		if(document.UserLogin.Password.value == "")
		{
			alert("请输入密码！");
			document.UserLogin.Password.focus();
			return false;
		}
	}
</script>
<%
	Else 
		response.write "&nbsp;欢迎您！&nbsp;<font color=#FF0000><b>" & Session("UserName") & "</b></font>"
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=#666666>用户控制面板：</font>&nbsp;<a href='Bs_Server.asp'><font color=#339900><b>会员管理中心</b></font></a>"
	end if
end sub
%>

<script language="javascript">
<!--
function winopen(url)
{
window.open(url,"search","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=yes,width=640,height=450,top=200,left=100");
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<script>
function eshop(id) { window.open("Bs_Eshop.asp?cpbm="+id,"","height=400,width=640,left=200,top=0,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");}
</script> 



