<%if request("userid")="" then %>
<html><title><%=Application("Title")%></title>
<link rel="stylesheet" type="text/css" href="main.css">
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
if (document.frmaLogin.userid.value.length<1) {
alert("用户名不能为空");
document.frmaLogin.userid.focus();
}
else if (document.frmaLogin.PASSWORD.value.length<1) {
alert("用户密码不能为空");
document.frmaLogin.PASSWORD.focus();
}
else
document.frmaLogin.submit();
}
function GoGuest()
{
document.frmaLogin.userid.value="guest";
document.frmaLogin.PASSWORD.value="guest";
document.frmaLogin.submit();
}
function GoReg()
{
top.frmMain.location.href="adduser.asp"
}
//-->
</SCRIPT>
<body class=clblack>
<script language="javascript">
<%if( session("Msg")=1 ) then %>
alert("<% =session("StrMsg")%>");
<% session("StrMsg")=" "
session("msg")=0
end if %>
</script>
<FORM name=frmaLogin METHOD="POST" ACTION="login.asp">
<table border=0 color=FFFFFF align=center width=120><tr><td>
<TABLE BORDER=0 class=login align=center width=120 >
<tr>
<TD BGCOLOR="#2233FF" align=center COLSPAN=2 color=#ffffff><font color=#ffffff>登录讨论区</font></TD>
</tr>
<TR ><TD ALIGN=CENTER>
<a href="javascript:GoGuest()" class=Alogin>游客</a></TD>
<TD align=center class=login>
<a href="javascript:GoReg()" class=Alogin>注册</a>
<a href="..\index.htm" target=_top class=Alogin>返回</a>
</TD>
</tr>
<TR>
<TD ALIGN=RIGHT>居民:</TD>
<TD >
<INPUT TYPE="text" NAME="userid" value='<%=request("uid")%>' SIZE="8" MAXLENGTH="20" >
</TD>
</TR>
<TR>
<TD ALIGN=RIGHT>密码:</TD>
<TD >
<INPUT TYPE="password" NAME="PASSWORD" SIZE="8" MAXLENGTH="20">
</TD>
<TR align=center>
<TD COLSPAN=2 ALIGN=CENTER>
<INPUT TYPE=BUTTON VALUE='进 入' onClick="check()" class=login>
<br>
</TD>
</TABLE>
</td></tr></table>
</FORM>
<SCRIPT LANGUAGE="JavaScript">
<!--//
document.frmaLogin.userid.focus();
//-->
</SCRIPT>
</BODY>
</HTML>
<% else
dim StrSQL,rsUserInfo,StrMsg,blOK,strUserid,strPassword
set rsUserInfo=Server.CreateObject("ADODB.RECORDSET")
strUserid=request("userid")
strPassword=request("password")
strSQL="select * from UserInfo where userid='"+strUserid+"'"
rsUserInfo.Open strSQL,myconn
blOK=false
if not rsUserInfo.BOF and not rsUserInfo.EOF then
if (rsUserInfo("password"))=mistake((strPassword)) then
blOK=true
strPassword="****"
else
strMsg="密码错误，请重新输入！"
end if
dim rsSysLogin
set rsSysLogin=Server.CreateObject("ADODB.RECORDSET")
strSQL="insert into syslogin(userid,password,ip,logindate,loginOK) values('"
strSQL=strSQL+strUserid+"','"+strPassword+"','"+Request.ServerVariables("REMOTE_ADDR")+"',"
strSQL=strSQL+"now(),"+CSTR(blOK)+")"
rsSysLogin.Open StrSQL,myconn
else
StrMsg="用户名错误，请重新输入！"
end if
if not blOk then
session("strMsg")=strMsg
session("msg")=1
response.redirect "login.asp?uid="+strUserid
else
session("userid")=rsUserInfo("userid")
session("nickname")=rsUserInfo("nickname")
initLogin
session("email")=rsUserInfo("email")
session("uid")=rsUserInfo("id")
session("sign")=rsUserInfo("sign")&" "
dim LastLogin,iLogin
LastLogin=rsUserInfo("LastLogin")
iLogin=rsUserInfo("iLogin")
rsUserInfo.close
strSQL="update UserInfo set ilogin=ilogin+1, iPerience=iPerience+1,LastLogin=now() where userid='"+session("userid")+"'"
rsUserInfo.Open strSQL,myconn
session("msg")=1
strMsg="亲爱的"+session("userid")+":\n\n"
strMsg=strMsg+"这是你第"+cstr(iLogin+1)+"次光临寒舍\n"
strMsg=strMsg+"上次光临时间："+FormatDateTime(LastLogin,1)
session("strMsg")=strMsg
response.redirect "FullScreen.htm"
end if
myconn.close
end if
%>
<% set rsUserInfo=nothing
set myconn=nothing
%>
这是一个BBS的LOGIN源码，可是我看不出它是什么意思。
当然这个过程是一个验证用户名和密码的代码，可是我看不它对那个数据库文件进行了操作。看不出它是从那个文件中读出用户名和密码的，就算是从表中读出，那么这个表放在那个文件中，数据库的文件名是什么？那么这些数据文件是什么文件名，放在什么地方致少有一个知道的方法，我是这么想的。
set rsSysLogin=Server.CreateObject("ADODB.RECORDSET")
strSQL="insert into syslogin(userid,password,ip,logindate,loginOK) values('"
上个语句中的。（"ADODB.RECORDSET") 中的RECORDSET是一个对象，可是在教程中。是用Connection这有关系，这Connection代表什么，顺便问一下这个SET是什么意思，不记得了。
quote:
发贴人： 百花仙女:
你想回答几个就几个，只要不不回答就是了。
当然最好全部回答。
你写的这篇文章我好象见过多次了~~~呵呵~~想看关于这方面是文章请到http://www.aspc n.com/show.asp?id=344或者中华asp首页
http://www.aspcn.com/
中的4个ASP文件你可以再看看啊。