shopadmin.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 70 行

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
'**********************************************************************
' Shop administration only
' Forces user to login
' asked for userid and password
' Goes to shopadmin1.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
%>
</center>
<form action="shopadmin.asp" method="post" name="LoginForm">
<center>　</center><br>
</font></font><TABLE WIDTH=300 BORDER=1 CELLPADDING=3 CELLSPACING=0 align="center" bordercolordark="#333399" bordercolorlight="#666699">
	<TR>
		<TD BGCOLOR="#0080C0" COLSPAN=2 ALIGN=LEFT VALIGN=TOP>管理员登录</TD>
	</TR>
	<TR>
		<TD WIDTH=50 ALIGN=LEFT VALIGN=TOP>
		<p align="right"><b><font face="Arial" size="2">用户名</font></b><FONT FACE="Arial" SIZE=2><B>:</B></FONT></TD>
		<TD ALIGN=LEFT VALIGN=TOP><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=TEXT NAME="UserName" VALUE="<%=Request("UserName") %>"></font></font></TD>
	</TR>
	<TR>
		<TD WIDTH=50 ALIGN=LEFT VALIGN=TOP>
		<p align="right"><b><font face="Arial" size="2">密码</font></b><FONT FACE="Arial" SIZE=2><B>:</B></FONT></TD>
                <TD ALIGN=LEFT VALIGN=TOP><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=PASSWORD NAME="Password">
	</TR>
        <tr>
         <td><font face="Trebuchet MS, Arial, Helvetica"></font></td>
          <td><font face="Trebuchet MS, Arial, Helvetica">
			<INPUT TYPE=submit VALUE="登录" name="Submit"></font></font></TD>
        </tr> 
</TABLE><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
</form>
</font></font></BODY>
</HTML>