谁能给我一个完整的登陆程序 ( 要通过MD5验证的 ) ？
用户名和密码正确进入。用户名和密码不正确则转回到登陆窗口。

conn.asp能附上来吗？

谢谢！！！！！！！！！！！！！！！！！！！

<!--#include file=include/md5.asp-->
<!--#include file=conn.asp-->
<%
dim rs
UserName1=request.form("UserName")
PassWd1=md5(request.form("PassWd"))

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where (UserName='"&UserName1&"' and PassWD='"&PassWd1&"')",conn,1,1

If rs.BOF Then
response.redirect"sorry.asp"
else
session("UserName")=RS("Username")
session("KEY")=rs("OSKEY")
response.redirect "main.asp"
end if
rs.close
%>

高手指点一下，为什么点登陆出现“无法显示网页”

<form method="POST" action="../admin/login.ASP">
<table width="100%" height="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr class="box">
<td width="768" height="35" align="right" valign="middle" bgcolor="F4F4F4">
<div align="center"> <font color="#FFFFFF" size="2">
</font>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><font size="2">用
户:</font></div></td>
<td height="25"> <div align="left">

<input name="UserName" type="password" class=textarea style="font-size: 8pt" size="10" maxlength="20">
</div></td>
</tr>
<tr>
<td><div align="center"><font size="2">密
码:</font> </div></td>
<td> <div align="left">
<input name="Passwd" type="password" style="font-size: 8pt" size="10" maxlength="20">
</div></td>
</tr>
<tr>
.................................................略

[此贴子已经被作者于2006-8-22 18:53:18编辑过]

楼上说要&lt;from...我已补上去了,不过我想这应没关系吧?

[此贴子已经被作者于2006-8-22 18:55:43编辑过]

都正确啊..............

md5.asp 有啊

[此贴子已经被作者于2006-8-22 20:51:53编辑过]

你那有完整的登陆程序 ( 要通过MD5验证的 )?发给你学习好吗?我这个是原来的去修改的,数据为库太大传不了.............

谢谢了...........我先看看,明天再向你请教!!!!