chklogin.asp

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

<%
'程序名称:cctony mynews v1.0（cctony首页更新 v1.0）
'程序作者:李方进（cctony）
'主页：http://okcool.mycool.net（新生代网络创意）
'OICQ：344827    E-mail：[e-mail]
'本程序是免费程序，您可以任意自由复制，传播。但请您尊重作者劳动，不要修改程序内的版权信息。
%>
<%
adminame=trim(request.form("username"))
adminpwd=trim(Request.Form("password"))
if adminame="" then%>
<script language=vbscript>
MsgBox "错误：请输入用户名字！"
location.href = "javascript:history.back()"
</script>
<%
end if
if adminpwd="" then%><script language=vbscript>
MsgBox "错误：请输入用户密码！"
location.href = "javascript:history.back()"
</script> <%
end if%>
<!-- #include file="connect.asp" -->
<%rs.Open "Select * From admin where name='" &adminame&"'", conn, 3,3%>
<%if rs.bof then %><script language=vbscript>
MsgBox "错误：此用户名不存在！"
location.href = "javascript:history.back()"
</script><%
elseif adminpwd<>rs("password") then%><script language=vbscript>
MsgBox "错误：您的密码不正确！"
location.href = "javascript:history.back()"
</script><%
else
session("loginid")="true"
response.redirect "add.asp"
end if
rs.close
set rs=nothing%>