BBSXP2007快速登录框[神话推荐]

By 神话工作室 at 2007-06-09 • 0人收藏 • 1181人看过

修改的是Default.asp.找到:

<%
End If
Rs.Close
                       <--在这里加入下面的代码.
if GroupID>0 then
sql="Select * From [BBSXP_Groups] where SortOrder>0 and GroupID="&GroupID&" order by SortOrder"
else
sql="Select * From [BBSXP_Groups] where SortOrder>0 order by SortOrder"
end if
Set Rs=Conn.Execute(sql)
do while not Rs.eof
if RequestCookies("ForumGroupDisplay"&Rs("GroupID")&"")="none" then
  ForumGroupDisplay="style='display:none;'"
  ForumGroupDisplayImg="group_expand.gif"
else
  ForumGroupDisplay=""
  ForumGroupDisplayImg="group_collapse.gif"
end if
%>

要加入的代码:

if CookieUserName=empty then
%>
<center>
<table cellspacing=1 cellpadding=5 width=100% id=CommonListArea>
<form action="Login.asp" method="POST" name=form>
<tr id=CommonListTitle>
<td width="20%">快速登录</td>
<td width="80%">游客 -> 请 [<a href=Login.asp>登录</a>] 或 [<a href="CreateUser.asp">注册</a>] 后进行操作</td>
</tr>
<tr id=CommonListCell>
    <td width="973" colspan="2">用户名称:<input name="UserName" value="<%=CookieUserName%>" style="WIDTH:90" size="10">
    用户密码:<input type="password" name="Userpass" style="WIDTH:90" size="10">
    <%if SiteConfig("EnableAntiSpamTextGenerateForLogin")=1 then%>
    验证码:<input name="VerifyCode" MaxLength="4" size="10" onblur="CheckVerifyCode(this.value)" onKeyUp="if (this.value.length == 4)CheckVerifyCode(this.value)"><img src="VerifyCode.asp" title="验证码,看不清楚?请点击刷新验证码" style="cursor:pointer" onclick="this.src='VerifyCode.asp?'+Math.random()"> <span id="CheckVerifyCode" style="color:#FF0000"></span>
    <%end if%>
    <input type="checkbox" value="1" name="IsSave" id="IsSave"><label for="IsSave">自动登录</label>
    <input type="submit" value=" 登录 ">
    <input onclick="window.location='CreateUser.asp';" type="submit" value=" 注册 " name="Submit">
    <a href="RecoverPassword.asp">找回密码</a></td>
</tr></f<%response.write "orm"%>>
</table>
</center>
<%end if%>
<br>
<%