subuser.asp

BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台；针对企业与个人的网上销售系统；开放式远程商店管理；完善的订单管理、销售统计、结算系统；强力搜索引擎支持；提供网上多种在线支付方

end if
response.Write "</td></tr></table>"
rs.close
set rs=nothing
end sub
'////////////////////////用户个人资料
sub userziliao()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail,quesion,userzhenshiname,grtt,companyname,zhuzhaitel,yidongtel from [shop_users] where username='"&request.cookies("bookshop")("username")&"' ",conn,1,1
dim grtts
if int(rs("grtt"))=0 then
grtts="个人用户"
else
grtts="团体用户"
end if
select case request.Cookies("bookshop")("grtt")
case "0"		'//个人用户
response.Write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userinfo method=post action=saveuserinfo.asp?action=userziliao>"
response.Write "<tr><td bgcolor=#FF8E19><div align=center><font color=#FFFFFF>尊敬的用户，我们向您承诺：以下信息将被严格保密，绝对不提供给第三方或用作它用。</font></div></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>用 户 名： <font color=#FF6600>"&request.cookies("bookshop")("username")&" （"&grtts&"）</font></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>E-Mail&nbsp; ： <input name=useremail type=text id=useremail2 value="&trim(rs("useremail"))&"></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>真实姓名： <input name=userzhenshiname type=text id=userzhenshiname value="&trim(rs("userzhenshiname"))&" ></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>住宅电话： <input name=zhuzhaitel type=text id=zhuzhaitel value="&trim(rs("zhuzhaitel"))&" ></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>移动电话： <input name=yidongtel type=text id=yidongtel value="&trim(rs("yidongtel"))&" onkeypress= ""return regInput(this,	/^[0-9]*$/,	String.fromCharCode(event.keyCode))"" onpaste	= ""return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"" ondrop= ""return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))"" maxlength=11>(可选)</td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>密码提问： <input name=quesion type=text id=quesion value="&trim(rs("quesion"))&">(用于密码遗忘时使用)</td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>密码答案： <input name=answer type=text id=answer>(密码遗忘时将验证此答案，若不修改请留空。)</td></tr>"
response.Write "<tr><td height=32 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'><input type=submit name=Submit2 value=提交保存 onclick='return checkuserinfo();'></td></tr>"
response.Write "</form></table>"
case "1","2"		'//团体用户
response.Write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userinfo method=post action=saveuserinfo.asp?action=userziliao>"
response.Write "<tr><td bgcolor=#FF8E19><div align=center><font color=#FFFFFF>尊敬的贵公司，我们向您承诺：以下信息将被严格保密，绝对不提供给第三方或用作它用。</font></div></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>用 户 名： <font color=#FF6600>"&request.cookies("bookshop")("username")&" （"&grtts&"）</font></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>公司邮箱： <input name=useremail type=text id=useremail2 value="&trim(rs("useremail"))&"></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>公司名称： <input name=companyname type=text id=useremail2 value="&trim(rs("companyname"))&"></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>联 系 人： <input name=userzhenshiname type=text id=userzhenshiname value="&trim(rs("userzhenshiname"))&" ></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>办公电话： <input name=zhuzhaitel type=text id=zhuzhaitel value="&trim(rs("zhuzhaitel"))&" ></td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>移动电话： <input name=yidongtel type=text id=yidongtel value="&trim(rs("yidongtel"))&" onkeypress= ""return regInput(this,	/^[0-9]*$/,	String.fromCharCode(event.keyCode))"" onpaste	= ""return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"" ondrop= ""return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))""  maxlength=11>(可选)</td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>密码提问： <input name=quesion type=text id=quesion value="&trim(rs("quesion"))&">(用于密码遗忘时使用)</td></tr>"
response.Write "<tr><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'>密码答案： <input name=answer type=text id=answer>(密码遗忘时将验证此答案，若不修改请留空。)</td></tr>"
response.Write "<tr><td height=32 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 70px'><input type=submit name=Submit2 value=提交保存 onclick='return checkusercompany();'></td></tr>"
response.Write "</form></table>"
end select
rs.close
set rs=nothing
end sub
'////////////////////////用户修改密码
sub savepass()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
response.write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userpass method=post action=saveuserinfo.asp?action=savepass>"
response.Write "<tr><td width=16% bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>用户名：</td><td width=84% bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><font color=#FF6600>"&request.cookies("bookshop")("username")&"</font></td></tr>"
response.Write "<tr><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>原密码：</td><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=userpassword type=password id=userpassword></td></tr>" 
response.Write "<tr><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>新密码：</td><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=userpassword1 type=password id=userpassword1></td></tr>"
response.Write "<tr><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>确认密码：</td><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit value=确认修改 onclick='return checkrepass();'></td></tr>"
response.Write "</form></table>"
end sub
'////////////////////////取回密码
sub repass()
dim ckxp
ckxp=request.QueryString("ckxp")
select case ckxp
'//输入用户名
case ""
response.Write "<br><table width=96% border=0 align=center cellpadding=01 cellspacing=1>"
response.Write "<form name=ckxp0 method=post action=myuser.asp?action=repass&ckxp=1>"
response.Write "<tr><td height=28 bgcolor=#fde6a4><div align=center>请输入您的用户名： <input name=username type=text id=username size=16></div></td></tr>"
response.Write "<tr><td height=32 bgcolor=#fde6a4><div align=center><input type=submit name=Submit value=确&nbsp;定 onclick='return check0();'></div></td></tr>"
response.Write "</form></table>"
'//输入问题答案
case "1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select quesion,answer from [shop_users] where username='"&replace(trim(request("username")),"'","")&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center><br>查无此用户，请返回！</center>"
else
if trim(rs("quesion"))="" then
response.Write "<center><br>此用户没有填写密码保护问题，请与管理员联系！</center>"
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=ckxp1 method=post action=myuser.asp?action=repass&ckxp=2>"
response.Write "<tr><td width=21% bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>您的密码提问：</td><td width=79% height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><font color=red>"&trim(rs("quesion"))&"</font><input type=hidden name=username1 value="&trim(request("username"))&" ID=Hidden1></td></tr>"
response.Write "<tr><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>您的密码答案：</td><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=answer type=text id=answer></td></tr>"
response.Write "<tr bgcolor=#fde6a4><td height=32 colspan=2 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit2 value=确&nbsp;定 onclick='return check1();'></td></tr>"
response.Write "</form></table>"
end if
end if
rs.close
set rs=nothing
'//输入新密码
case "2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select answer from [shop_users] where username='"&trim(request("username1"))&"' ",conn,1,1
'//判断答案是否正确
if trim(rs("answer"))<>md5(trim(request("answer"))) then
response.write "<script language=javascript>alert('对不起，您输入的问题答案不正确');window.location.reload('javascript:history.go(-1)')</script>"
response.end
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=ckxp2 method=post action=saveuserinfo.asp?action=repass>"
response.Write "<tr><td width=20% bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>请输入新密码：</td><td width=80% height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=userpassword1 type=password id=userpassword1><input type=hidden name=username2 value="&trim(request("username1"))&"></td></tr>"
response.Write "<tr><td bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'>输入确认密码：</td><td height=28 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 20px'><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#fde6a4 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit3 value=确&nbsp;定 onclick='return check2();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
end select
end sub
'////////////////////////信息统计
sub statinfo()
if request.cookies("bookshop")("username")="" then
response.Redirect "myuser.asp?action=login"
response.End
end if
'//添加到数据库
dim zhucedate,xiadan,chengjiao,chengjiaozonger,lastxiadan
set rs=server.CreateObject("adodb.recordset")
rs.open "select adddate from [shop_users] where username='"&request.cookies("bookshop")("username")&"'",conn,1,1
zhucedate=rs("adddate")
rs.close
rs.open "select distinct(dingdan),actiondate from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 ",conn,1,1
if rs.eof and rs.bof then
response.write ""
else
rs.movelast
lastxiadan=rs("actiondate")
xiadan=rs.recordcount
end if
rs.close
rs.open "select sum(zonger) as zonger from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 and zhuangtai>3",conn,1,1 
if rs("zonger")>0 then
chengjiaozonger=formatnumber(rs("zonger"),2)
else
chengjiaozonger=0
end if
rs.close
rs.open "select distinct(dingdan) from shop_action where username='"&request.cookies("bookshop")("username")&"' and zhuangtai<6 and zhuangtai>3",conn,1,1
chengjiao=rs.recordcount
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select yufukuan from [shop_users] where username='"&request.Cookies("bookshop")("username")&"' ",conn,1,1
dim yufukuan
yufukuan=rs("yufukuan")
rs.close
set rs=nothing
'//显视HTML
response.Write "<table width=96% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<tr><td height=14 colspan=2 bgcolor=#FF8E19 align=center><font color=#FFFFFF>以下是您在本站的一些历史记录的统计信息</font></td></tr>"
response.Write "<tr><td width=22% height=14 bgcolor=#fde6a4><div align=right>会员注册日期：</div></td><td width=78% bgcolor=#fde6a4>&nbsp;"&zhucedate&"</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>下单次数：</div></td><td bgcolor=#fde6a4>&nbsp;"&xiadan&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>成交次数：</div></td><td bgcolor=#fde6a4>&nbsp;"&chengjiao&"次</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>成交订单总金额：</div></td><td bgcolor=#fde6a4>&nbsp;"&chengjiaozonger&"元</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>上一次下单时间：</div></td><td bgcolor=#fde6a4>&nbsp;"&lastxiadan&"</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>暂存款总计：</div></td><td bgcolor=#fde6a4>&nbsp;"&yufukuan&"元</td></tr>"
response.Write "<tr><td height=14 bgcolor=#fde6a4><div align=right>是否订阅本站周刊：</div></td><td bgcolor=#fde6a4>&nbsp;暂不支持此功能</td></tr>"
response.Write "</table>"
end sub

'////////////////////////用户登陆
sub logins()
dim url
url=Request.ServerVariables("HTTP_REFERER")
if instr(url,"action=login")>0 then url="index.asp"
if instr(url,"reg.asp")>0 then url="index.asp"
if instr(url,"ClassLeft.asp")>0 then url="ClassTt.asp"
if instr(url,"ClassRight.asp")>0 then url="ClassTt.asp"
response.write "<table width=56% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.write "<form name=loginfo method=post action=chkuser.asp>"
response.write "<tr bgcolor=#fde6a4><td width=27% height=19 style='padding-left:6px'><div align=right>用户名：</div></td><td width=73% style='padding-left:6px'><input name=username type=text id=username size=12><input name=comeurl type=hidden value="&url&">&nbsp;<a href=reg.asp>还没有注册？</a></td></tr>"
response.write "<tr bgcolor=#fde6a4><td height=18 style='padding-left:6px'><div align=right>密 &nbsp;码：</div></td><td style='padding-left:6px'><input name=userpassword type=password id=password size=12>&nbsp;<a href=myuser.asp?action=repass>忘记密码？</a></td></tr>"
response.write "<tr bgcolor=#fde6a4><td height=28 colspan=2 style='padding-left:6px'><div align=center><input type=submit name=Submit value=登陆系统 onClick='return checkuu();'></div></td></tr>"
response.write "</form></table>"
end sub
%>

</body>
</html>