cart-loginend.asp

西亚电子购物系统

<%if session("xiya.net")="" then
	response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=8><br><br>本购物系统要求使用安全的session cookies，以便存储您的购物信息，由于您的浏览器禁用session cookies，所以您不能正常登录本购物系统。请将您的浏览器重新设置为接受安全的session cookies，即可正常登陆，谢谢您对我们的支持与信任！！"
	response.end
end if%>
<!--#include file="header.asp" -->
<!--#include file="conn/nosql.asp" -->
<div align="center">
  <table width="778" cellspacing="0" cellpadding="0">
    <tr>
      <td width="185" height="350" valign="top" class="table-right"><!--#include file="left.asp" --></td>
      <td valign="top"> <p>&nbsp;</p><table width="90%" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>
  <%
	sia_user=nosql(request("sia_user"))
	password=nosql(Request("password"))

	set rs=server.createobject("adodb.recordset")
	sql="select * from sia_user where sia_user='"&sia_user&"' and password='"&password&"'"

	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if sia_user=rs("sia_user") and password=rs("password") then
			session("sia_user")=rs("sia_user")
			session("grade")=rs("grade")
			
			set rs2=server.createobject("adodb.recordset")
            sql2="select top 1 * from sia_discount where  price <= "&rs("price")&" order by grade DESC"
            rs2.open sql2,conn,1,1
			
            if rs("grade") < rs2("grade") then
            rs("grade")=rs2("grade")
            rs.update
			end if
            Response.write "<meta http-equiv='refresh' content='10; url=check-out.asp'>"
            Response.write "<img src=images/i-2.gif width=17 height=17>会员登陆成功<br><br>&nbsp;&nbsp;<a href=index.asp>&gt;&gt;返回商场首页</a>"
            Response.write "<br><br>&nbsp;&nbsp;<a href=check-out.asp>&gt;&gt;去结算中心</a>"
 		else
			call Error
 		end if
	else
		call Error()
	end if

	sub Error()
        Response.write "<img src=images/i-2.gif width=17 height=17>用户名或密码错误！<br><br>&nbsp;&nbsp;<a href=# onclick='javascript:window.history.go(-1)'>&gt;&gt;返回上一页</a>"
	end sub
	rs.close
	set rs=nothing
%>
            </td>
          </tr>
        </table>
        
    </td>
    </tr>
    </table>
</div>
<!--#include file="footer.asp" -->