基于web的网上书店(商店)的设计与实现

clude file=”manage/inc/config.asp”--> Р<!--#include file=”.asp”--> Р<% Р if NOT isempty(request(“LoginSubmit”))then Р dim usermane,password Р usename=replace(trim(request(“usename”)),””,””) Р password=md5(replace(trim(request(“password”)),””,””)) Р “if usename=””orpassword=””then Р ‘call MsgBox(“对不起, 登录失败, 请检查您的登录名和密Р码”,”None”,”None”) Р ‘end if Р set rs=server.CreateObject(“adodb.recordset”) Р rs.Open “select * from [user]where usename=””&usename&””and Рpassword=””&password&””,conn,1,3 Р if not(rs.bof and rs.eof)then Р if password=rs(“password”)then Р response.Cookoes(cookieName)(“usename”)=trim(request(“usenameР”)) Р reponse.Cookise(cookieName)(“vip”)=rs(“vip”) Р rs(“lastvst”)=now() Р rs(“loginnum”)=rs(“lohinnum”)+1 Р rs.Update Р rs.Close Р set re=noting Р response,redirect”muser.asp”Р 10