shopadmin.asp

本软件可以实现的功能如下： 用户管理

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
Session("ShopAdmin")=""
Session("INIT")=""
Dim myconn
msg=""
ShopOpenDatabase myconn
on error resume next
If Request("Submit")<>"" Then
          SQL = "SELECT * FROM tblUser WHERE fldUserName='" & Request("UserName") & "' AND fldPassword='" & Request("Password") & "'"
	  Set rs = myconn.Execute(SQL)
          if err.number>0 then 
                 msg=Session("Openerror")
          else 
	         If Not rs.EOF Then
		Session("ShopAdmin")  = rs("fldUserName")
		LogUser Session("ShopAdmin"), "in", myconn
                Shopclosedatabase myconn
                response.redirect "shopadmin1.asp"
	       Else
                msg="您的用户名称和密码有错误,请重新登陆<br>"
               end if
           end if 
   end if          
shopPageHeader
if msg <> "" Then
     response.write msg
end if
%>
<form action="shopadmin.asp" method="post" name="LoginForm">
  <TABLE WIDTH=250 CELLPADDING=2 CELLSPACING=1 align="center" bgcolor="#000000">
    <TR bgcolor="#006600"> 
      <TD COLSPAN=2 ALIGN=LEFT VALIGN=TOP> 
        <div align="center"> <B>商店管理</B></div>
      </TD>
    </TR>
    <TR> 
      <TD WIDTH=50 ALIGN=center VALIGN=middle bgcolor="#18865A"> 
        <div align="center">名称:</div>
      </TD>
      <TD ALIGN=LEFT VALIGN=TOP bgcolor="#18865A"> 
        <div align="center">
          <INPUT TYPE=TEXT NAME="UserName" VALUE="<%=Request("UserName") %>">
        </div>
      </TD>
    </TR>
    <TR> 
      <TD WIDTH=50 ALIGN=center VALIGN=middle bgcolor="#18865A"> 
        <div align="center">密码:</div>
      </TD>
      <TD ALIGN=LEFT VALIGN=TOP bgcolor="#18865A"> 
        <div align="center">
          <INPUT TYPE=PASSWORD NAME="Password">
        </div>
      </TR>
    <tr> 
      <td colspan="2" bgcolor="#18865A"> 
        <div align="center"> 
          <INPUT TYPE=SUBMIT VALUE="登陆" name="Submit">
          </div>
      </td>
    </tr>
  </TABLE>
</form>
</BODY>
</HTML>