adminbase.asp

网上购物源代码

<title>Onestar bookshop</title>
<% 

Sub CheckAdminLogin(strUserId, strPwd)
	dim strSQL, rsObj
	
	if strUserId <> "" then
		strSQL = "SELECT * FROM Admins WHERE Account = '" & strUserId & "'"
		
		set rsObj  =  conn.Execute(strSQL)
		if not (rsObj.eof or err) then
			if strPwd  =  rsObj("Pwd") then
				Session("AdminAccount") = rsObj("Account")
				Session("userClass") = 1
				'关闭记录集合和数据库连接
				rsObj.Close
				Set rsObj  =  Nothing
				CloseConn()
				Response.Clear 
				Server.Transfer "default.asp"
			end if
		end if
		'关闭记录集合和数据库连接
		rsObj.Close
		Set rsObj  =  Nothing
		CloseConn()
		
		'用户不存在或密码不正确
		Response.Write "<script language = Javascript>"
		Response.Write "alert('error！please fill in again');"
		Response.Write "window.history.go(-1);"	
		Response.Write "</script>"
	end if
end sub


Sub ShowAdminLogin()
%>
<form method = "post" action = "login.asp" name = "form1" ID = "Form1">
  <table width = "40%" border = "0" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "3" align = "center" ID = "Table4">
    <tr bgcolor="#FFFFFF"> 
    <td colspan = "2" height = "28"> 
      <div align = "center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color = "#000000">Login system</font></div>
    </td>
  </tr>
  <tr> 
      <td width = "37%"> 
        <div align = "left">Admin &nbsp; account:</div>
    </td>
      <td width = "63%"> 
        <input type = "text" name = "userID" size = "20" ID = "Text1">
    </td>
  </tr>
  <tr> 
      <td width = "37%"> 
        <div align = "left">Admin password:</div>
    </td>
      <td width = "63%"> 
        <input type = "password" name = "password" size = "20" value = "" ID = "Password1">
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan = "2" height = "28"> 
      <div align = "center"> 
        <input type = "submit" name = "Submit" value = "Submit" ID = "Submit1">
        <input type = "button" name = "Exit" value = "Exit" onclick = window.location = ==================="../">
      </div>    </td>
  </tr>
</table>
</form>

<%
end Sub
%>