logincheck.asp

20041230162250801409： 浙江省丽水市公铁联运有限公司OA系统（物流） 开发语言：PHP/ASP/PERL 本系统包括各个部门的管理

<!--#include file="../function.asp"-->
<!--#include file="conn.asp"-->

<style type="text/css">
<!--
body {
	background-color: #006666;
}
-->
</style>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="200" border="0" align="center">
  <tr>
    <td><img src="../image/biaoti.gif" width="641" height="90"></td>
  </tr>
</table>

<% 
response.buffer=true
Response.Expires=0
%>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
username=HtmlEncode(request.form("username")) '获取表单的用户名值
pwd=HtmlEncode(request.form("pwd"))'获取表单的密码值
sql="select * from huoyun_admin where username='"&username&"' and pwd='"&pwd&"'"
rs.open sql,conn,1,1

if rs.eof then  '从数据库中进行判断用户名和密码是否正确
response.write"<script>alert('your enter information is wrong.please try again!');top.location.href='login.asp';</script>"
'response.write"<center><a href=vbscript:history.back()>重新登录</a></center>"
response.end
else
'response.cookies("name")=true '如果正确，则进入指定页面
'response.redirect"index1.asp"
session("pwd")="pass" '获取密码的值，符给pass,用于index1.asp页面判断
conn.execute(sql)
end if
response.Redirect("index.asp")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>