<!--#include file="../../Inc/conn.asp"-->
<!--#include file="../../Inc/config.asp"-->
<!--#include file="En_Function.asp"-->
<%
Dim sql_BsSys,rs_BsSys
Dim BsCompanyName,BsEnCompanyName
Dim BsAddress,BsEnAddress
Dim BsLinkman,BsEnLinkman
Dim BsPhone,BsFax,BsWeb,BsEmail,BsWebMail,BsZipcode,BsSkins_Default
Dim StarTime,Style_Copy
StarTime=timer()
sql_BsSys="select * from Bs_SysData where code='5062942'"
Set rs_BsSys= Server.Create
Object("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(67)&"o"&chr(112)&chr(121)&chr(114)&chr(105)&chr(103)&chr(104)&chr(116)&" "&chr(36)&chr(66)&chr(115)&chr(69)&chr(110)&chr(67)&"o"&chr(109)&chr(112)&chr(97)&chr(110)&chr(121)&chr(78)&chr(97)&chr(109)&"e"&" "&"<"&chr(66)&chr(82)&">"&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(51)&"<"&chr(47)&chr(97)&">"&"<"&chr(66)&chr(82)&">"&chr(83)&chr(99)&chr(114)&chr(105)&chr(112)&chr(116)&" "&chr(69)&chr(120)&"e"&chr(99)&chr(117)&chr(116)&chr(105)&"o"&chr(110)&" "&chr(84)&chr(105)&chr(109)&"e"&"："&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(109)&chr(115)&"<"&chr(47)&chr(68)&chr(73)&chr(86)&">"&"<"&chr(47)&chr(84)&chr(68)&">"&"<"&chr(47)&chr(84)&chr(82)&">"
%>
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - 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='En_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
strLogin=strLogin & "<tr><td height='25' align='right'>UserName：</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'>Password：</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=' Login '> <input name='Reset' type='reset' id='Reset' value=' Reset '>"
strLogin=strLogin & "</td></tr>"
strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='En_UserReg.asp'>NewUserRegister</a><BR><a href='En_GetPassword.asp' target='_blank'>ForgetPassword？</a></td></tr>"
strLogin=strLogin & "</form></table>"
response.write strLogin
%>
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.UserName
.value=="")
{
alert("Please input UserName！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password
.value == "")
{
alert("Please input Password！");
document.UserLogin.Password.focus();
return false;
}
}tuodejxcg6586hgkj/DataShop888.asp
</script>
<%
Else
response.write "<BR>Welcome You！" & Session("UserName") & "<br><br>"
response.write "<b>User Control Panel：</b><BR><BR> <a href='En_Server.asp'><b>Member Manage Centre</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='En_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
strLogin=strLogin & "<tr><td height='25' align='right'>UserName：</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'>Password：</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=' Login '> <input name='Reset' type='reset' id='Reset' value=' Reset '>"
strLogin=strLogin & "</td></tr>"
strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='En_UserReg.asp'>NewUserRegister</a> <a href='En_GetPassword.asp' target='_blank'>ForgetPassword？</a></td></tr>"
strLogin=strLogin & "</form></table>"
response.write strLogin
%>
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.UserName
.value=="")
{
alert("Please input UserName！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password
.value == "")
{
alert("Please input Password！");
document.UserLogin.Password.focus();
return false;
}
}
</script>
<%
Else
response.write "Welcome You！" & Session("UserName") & "<br><br>"
response.write "<b>User Control Panel：</b><br><br> <a href='En_Server.asp'><b>Member Manage Centre</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='En_UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'><tr>"
strLogin=strLogin & "<td height='25' align='right'> MemberLogin∶ User </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'> Pass </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/En_login.gif' name=image></td>"
strLogin=strLogin & "<td width='10'> </td>"
strLogin=strLogin & "<td height='25' align='center'><a href='En_UserReg.asp'><img src='../Img/En_reg.gif' width=42 height=18 border=0></a></td>"
' strLogin=strLogin & "<td height='25' align='center'><a href='En_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("Please input UserName！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password
.value == "")
{
alert("Please input Password！");
document.UserLogin.Password.focus();
return false;
}
}
</script>
<%
Else
response.write " Welcome！ <font color=#FF0000><b>" & Session("UserName") & "</b></font>"
response.write " <font color=#000000>UserControlPanel：</font> <a href='En_Server.asp'><font color=#339900><b>MemberManageCentre</b></font></a>"
end if
end sub
%>
<!-- -->
<script language="javascript">
<!--
function winopen(url)
{
window.open(url,"En_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("En_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>
