login.asp

基于asp的 班级同学录主页源代码

<!--#include file="conn.asp"-->
<%
'加密密码开始
function encrypt(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'"  then
dist=dist+mid(texts,i,1)
end if
next
encrypt = dist
end function
'加密结束
dim user,password,errmsg
user=trim(request("user"))
password=trim(request("password"))
password=encrypt(password)
if trim(user)="" or trim("password")="" then
errmsg="老大，用户名，密码都不写！！搞什么飞机啊"
else
set rs=server.createobject("adodb.recordset")
rs.open"select user,password,sex from user where user='"&user&"'",conn,1,1
if rs.bof or rs.eof then
rs.close
conn.close
errmsg="对不起，找不到该用户！你是不是我们班的吧"
elseif password<>rs("password") then
errmsg="密码错误，怎么这么不小心啦！"
else
session("user")=trim(user)
session("password")=trim(password)
session("sex")=rs("sex")
conn.execute "update user set logincount=logincount+1,usermoney=usermoney+1 where user='"&user&"'"
conn.close
set conn=nothing
response.redirect"main.asp"
end if
end if
%>
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--//
function reset()
{
document.Login.user.value="";
document.Login.password.value="";
}
//-->
</SCRIPT>
<table width="100%" border="0" cellspacing="2" cellpadding="2" class=xzy bgcolor="#ffffff">
<tr><td width=100% align=center>
<br><br><img src=image/err.gif><br><br><br>
<%=errmsg%><br>
<form name="Login" method="post" action="login.asp">
用户：<input name=user type=text size="10" value="" class=buttonface><br>
密码：<input type=password name=password size="10" value="" class=buttonface>
<br><input type=image src="image/1-sub.gif" width="44" height="23">
<a href="javascript:reset()"><img border="0" src="image/1-reset.gif" width="44" height="23"></a>
</form>
<br><br><br><br><br>
</td></tr></table>
<!--#include file="end.asp"-->