dlpfcheck.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

<!--#include file="top.asp"-->
<center>


<table border="0" width="760" cellspacing="0" cellpadding="0" height="312">
  <tr>
    <td width="190" height="312" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190" valign="top" align="left"><!--#include file="left.asp"--></td>
      </tr>
    </table>
    </td>
</center>
    <td width="380" valign="top" align="left">
    <table border="0" width="380" cellspacing="0" cellpadding="0" height="5">
    <%
    if session("user_name")="" then
    user=trim(request("user"))
    pass=trim(request("pass"))
    if user="" or pass="" then
        errmsg=errmsg+"<br>"+"<li>用户名和用户密码不能为空!"
        founderr=true
    end if
    sql="select * from dlpf where user='"&user&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        errmsg=errmsg+"<br>"+"<li>你输入的用户不存在!"
        founderr=true
    elseif pass=rs("pass") then
        session("user_name")=rs("user")
if rs("daili")<>""     then
   session("daili")=rs("daili")
end if
if rs("pifa")<>""     then
   session("type")=rs("pifa")
end if

 
    if founderr=true then

        rs("user_lasttime")=now()
        rs("user_lastip")=request.servervariables("remote_addr")
        rs.update
    else
        errmsg=errmsg+"<br>"+"<li>你输入的密码错误!"
        founderr=true
    end if
    rs.close
    if founderr=true then
    %>

      <tr>
        <td width="380" bgcolor="#FF9A31" height="18">
        <p align="center">出错信息
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#63CFFF"></td>
      </tr>

<center>


<tr>
  <td width="100%"><%=errmsg%></td>
</tr>
<%else%>
      <tr>
        <td width="380" bgcolor="#FF9A31" height="18">
        <p align="center">登录成功
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#63CFFF"></td>
      </tr>

<center>


<tr>
  <td width="100%"><font color=red><center>恭喜!</font><%=session("user_name")%>登录成功<br><a href="index.asp">进入首页</a><center></td>
</tr>
<%end if
else
response.redirect "index.asp"
end if%>

      </table>
    </center>
    </td>
    <td width="190" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190"><!--#include file="right.asp"--></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="copy.asp"-->