userinfo.asp

很好的网上书店源码 适合企业个人使用 很好的网络书城

<% response.write "<table width=160 border=0 align=center cellpadding=0 cellspacing=0><tr><td>"
response.write "</td></tr><tr>"
response.write "<div align=center>"
if request.cookies("bookshop")("username")="" then
				response.write "<form name=loginfo method=post action=chkuser.asp>"
									response.write "<tr>"
										response.write "<td>&nbsp;&nbsp; 用户名:<input style='WIDTH: 100; HEIGHT: 20; font-size:9pt' name='username' id='username'></td>"
									response.write "</tr>"
									response.write "<tr>"
										response.write "<td>&nbsp;&nbsp; 密&nbsp;&nbsp; 码:<input style='WIDTH: 100px; HEIGHT: 20px' type='password' name='userpassword' id='userpassword'></td>"
									response.write "</tr>"
									response.write "<tr>"
										response.write "<td>"
										response.write "<br>"
										response.write "<p align=center><font color=666666>&nbsp;<input onclick=return checkuu(); type=image src="&theme&"login.jpg value=登陆 name=Submit>&nbsp;&nbsp;&nbsp;"
										response.write "<a href=member_reg.asp target='blank'>"
										response.write "<img border=0 src="&theme&"reg.jpg></a></font></td>"
									response.write "</tr></form>"
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select shop_books.huiyuanjia,shop_action.bookcount from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.zhuangtai=1 and shop_action.username='"&trim(request.Cookies("bookshop")("username"))&"' ",conn,1,1
dim doidea
set doidea=server.CreateObject("adodb.recordset")
doidea.Open "select distinct(dingdan) from shop_action where username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 ",conn,1,1
if doidea.recordcount=0 then
response.write "欢迎<font color=red>"&Request.Cookies("bookshop")("username")&"</font>会员登陆<br>您目前还没有未处理订单<br>共计:0.00元"
else
dim shopjiage
do while not rs.eof
shopjiage=round(shopjiage+rs("huiyuanjia")*rs("bookcount"),2)
rs.movenext
loop
response.write "欢迎<font color=red>"&request.cookies("bookshop")("username")&"</font>会员登陆<br>您目前有"&doidea.recordcount&"笔未处理订单<br>共计："&shopjiage&"元(除邮费)"
end if
doidea.Close
set doidea=nothing
rs.close
set rs=nothing
end if
if request.cookies("bookshop")("username")="" then
else
response.write "<br>"
response.write "<br><a href=myuser.asp?action=statinfo>我的账户</a>&nbsp;&nbsp;<a href=logout.asp>注销登陆</a>"
end if
response.write "</div></td></tr><tr><td height=3></td></tr></table>"
%>