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

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

修改的是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>
<%

OK!

转自蓝飞原创,版权归蓝飞所有.

[此帖子已被 神话工作室 在 2007-6-9 17:13:48 编辑过]

1 个回复 | 最后更新于 2007-07-16
2007-07-16   #1

能用到7.31

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...