end if
end sub
‘在首页中有一个滚动栏，显示用户是否已经登陆，以及登陆后用户的一些短信息。如果用户还没有登陆
if request.cookies("bookshop")("username")="" then
response.write "您还没有登陆！"
‘如果用户按照上面所有的正确步骤进行了注册，或登陆，那么就进行用户的资料检验，
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 ckxp
set ckxp=server.CreateObject("adodb.recordset")
ckxp.Open "select distinct(dingdan) from shop_action where username='"&request.Cookies("bookshop")("username")&"' and zhuangtai=1 ",conn,1,1
‘如果是新用户，或者该用户没有未处理的订单，通过访问数据库后得出“欢迎("username")光临本站 您目前还没有未处理订单 共计:0.00元”
if ckxp.recordcount=0 then
response.write "欢迎<font color=red>"&Request.Cookies("bookshop")("username")&"</font>光临本站<br>您目前还没有未处理订单<br>共计:0.00元"
‘如果是已经注册了的用户，并且已经填写了订单，然而还没有进行处理，则会显示“欢迎("username")光临本站您目前有"&ckxp.recordcount&"笔未处理订单<br>共计："&shopjiage&"元(除邮费)"
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>您目前有"&ckxp.recordcount&"笔未处理订单<br>共计："&shopjiage&"元(除邮费)"
end if
4.5 设计管理员登陆
从admin/login.asp进入，检查管理员的密码
<%dim admin,password
admin=replace(trim(request("admin")),"'","")
password=md5(replace(trim(request("password")),"'",""))
if admin="" or password="" then
response.Write "<center><a href=login.asp><font color=red size=2>对不起，登陆失败，请检查您的登陆名和密码</font></a></center>"
response.end
‘如果管理员的代码不填写的话，以下程序可以检测：
function check()
{
if(checkspace(document.admininfo.admin.value)) {
document.admininfo.admin.focus();
alert("管理员不能为空！");
return false;
}
‘如果管理员的密码为空，则以下程序可以检测：
if(checkspace(document.admininfo.password.value)) {
document.admininfo.password.focus();
alert("密码不能为空！");
return false;
}
document.admininfo.submit();
4.6 设计购买与收藏架
为了使网站更贴近用户，在用户访问首页时，只要是登陆了的用户只需要点击购买就可以看见自己订购了的书籍。用户是否登陆，由以下程序决定：
if request.cookies("bookshop")("username")="" then
response.write "<script language=java script>alert('对不起，您还没有登陆！');window.close()</script>"
response.End
end if
dim bookid,username,action
action=request.QueryString("action")
username=trim(request.cookies("bookshop")("username"))
bookid=request.QueryString("id")
‘如果没有登陆，进入到用户注册登陆画面，如果已经登陆了，并且决定立刻购买，就直接点击“购买”、“下一步”就可以进入订单了。
onClick="java script:window.open('shopping.asp?id=<%=rs("bookid")%> ','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;" type=button value=购买 name=Submit223>
‘如果暂时还不想下订单