login.asp

这是我自己设计的一个资源管理系统

<title>&#36164;&#28304;&#31649;&#29702;&#31995;&#32479;</title><table width="74%" border="1" align="center" cellspacing="0" bordercolor="#FFCC99">
  <tr> 
    <td height="73" bgcolor="#3399FF"> <p align="center"><font color="#FF9900" size="6"><strong>&#36164;&#28304;&#31649;&#29702;&#31995;&#32479;</strong></font><font color="#FF9900" size="6"></font></p></td>
  </tr>
  <tr> 
    <td height="31" bgcolor="#FFCC00"> <div align="center"><strong><font color="#000099" size="4">&#29992;&#25143;&#30331;&#24405;</font></strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFCC"><div align="center">
        <p>&nbsp;</p>
        <p>&nbsp;</p>
        <p> 
          <%
set conn=server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""

dim userID,loginName,userPassword,userPassword1,sql
loginName=request.Form("loginName")
userPassword=request.Form("userPassword")
sql="select user_id,user_password from TUser where login_name='"&loginName&"'"
set rs=conn.execute(sql)
if not rs.eof then
	userID=rs("user_id")
	userPassword1=rs("user_password")
	if (userPassword=userPassword1) then
		response.Write("登录成功！<a href=main.asp>进入资源管理系统</a>")
		session("userID")=userID
		'response.Write(session("userID"))
	else 
		response.Write("密码错误！<a href=index.asp>返回登录界面</a>")
	end if
else
	response.Write("用户名不存在！<a href=index.asp>返回登录界面</a>")
end if
%>
        </p>
        <p>&nbsp; </p>
        <p>&nbsp; </p>
    </div></td>
  </tr>
  <tr> 
    <td height="32" bgcolor="#0099FF"> <div align="center"><font color="#000099" size="3">&#29256;&#26435;&#25152;&#26377;&copy;CORNER</font></div></td>
  </tr>
</table>