首页调用精华新帖回复会员状态+BBSXP2007快速登录框[神话推荐]

只是为了方便菜鸟,大虾弹开..!

修改的是Default.asp.找到

End If
Rs.Close

←←←←←←←←←加在这里
if GroupID>0 then

代码如下:

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>
<%

<script language="javascript">
<!--
function shuaxintu(){
document.getElementById("img1").src=document.getElementById("img1").src+"?1";
}
function NewsDivChange(id,idx,allNum)
{
    style1="Menu_TabOne rt_sb_t_nv";
    style2="Menu_TabTwo rt_sb_t_nv";
    for(i=1;i<=allNum;i++)
    {
        document.getElementById("News"+id+"_title_"+i).className=style2;
        document.getElementById("News"+id+"_div_"+i).style.display="none";
    }
    document.getElementById("News"+id+"_title_"+idx).className=style1;
    document.getElementById("News"+id+"_div_"+idx).style.display="block";
   
}
-->
</script>
<style>
.Menu_TabOne{border:#FFFFFF 1px solid;;float:left;margin-right:5px;text-align:center;width:100px;padding:3px;}
.Menu_TabTwo{float:left;margin-right:5px;text-align:center;width:100px;padding:3px;}
</style>
<table width=100% align=center border=0 cellpadding=2 cellspacing=0>
<tr align=center>
<td width=30% valign=top>
<table width=100% align=center border=0 cellpadding=5 cellspacing=1  id=CommonListArea>
<tr id=CommonListTitle align=center>
<td><div class="Menu_TabOne" id="News1_title_1">
     <a href="ShowBBS.asp?menu=GoodTopic" onmouseover="return NewsDivChange('1','1',2);">最新精华主题</a></div>
    <div class="Menu_TabTwo" id="News1_title_2">
     <a href="ShowBBS.asp?menu=GoodTopic" onmouseover="return NewsDivChange('1','2',2);">全年最火主题</a></div></td></tr>
<tr id=CommonListCell align=center>
<td>
<div id="News1_div_1"><table width=99% align=center border=0 cellpadding=0 cellspacing=0><%
Sql="Select Top 10 * From [BBSXP_Threads] where IsApproved=1 and IsDel=0 and IsGood=1 order by ThreadID Desc"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
Topicq=ReplaceText(Rs("Topic"),"<[^>]*>","")
Response.Write "<tr height=18><td><IMG Src=images/Forum_nav.gif border=0> <a href=ShowPost.asp?ThreadID="&Rs("ThreadID")&" Title='"&Topicq&"'>"&Left(""&Topicq,18)&"</a></td></tr>"
Rs.MoveNext
Loop
Rs.Close
%></table></div><div id="News1_div_2" style="display:none;"><table width=99% align=center border=0 cellpadding=0 cellspacing=0><%
Sql="Select Top 10 * From [BBSXP_Threads] Where IsDel=0 Order by TotalReplies Desc,LastViewedDate"
Set Rs=Conn.Execute(sql)
Do While Not Rs.EOF
Topicq=ReplaceText(Rs("Topic"),"<[^>]*>","")
Response.Write "<tr height=18><td><IMG Src=images/Forum_nav.gif border=0> <a href=ShowPost.asp?ThreadID="&Rs("ThreadID")&" Title='"&Topicq&"'>"&Left(""&Topicq,18)&"</a></td></tr>"
Rs.MoveNext
Loop
Rs.Close
%></table></div></td></tr>
</table>
</td>
<td width=40% valign=top>
<table width=100% align=center border=0 cellpadding=5 cellspacing=1  id=CommonListArea>
<tr id=CommonListTitle align=center>
<td><div class="Menu_TabOne" id="News2_title_1">
     <a href="ShowBBS.asp" onmouseover="return NewsDivChange('2','1',3);">最新发表主题</a></div>
    <div class="Menu_TabTwo" id="News2_title_2">
     <a href="ShowBBS.asp" onmouseover="return NewsDivChange('2','2',3);">最新回复主题</a></div>
    <div class="Menu_TabTwo" id="News2_title_3">
     <a href="ShowBBS.asp" onmouseover="return NewsDivChange('2','3',3);">村民博客榜单</a></div></td></tr>
<tr id=CommonListCell align=center>
<td>
<div id="News2_div_1"><table width=99% align=center border=0 cellpadding=0 cellspacing=0>
<%
Sqlnew="Select Top 10 * From [BBSXP_Threads] Where IsDel=0 and ForumID<>3 Order by ThreadID Desc"
Set Rs=Conn.Execute(sqlnew)
Do While Not Rs.EOF
Topicq=ReplaceText(Rs("Topic"),"<[^>]*>","")
Response.write "<tr class=a3 height=18><td><IMG Src=images/Forum_nav.gif border=0> <a href=ShowPost.asp?ThreadID="&Rs("ThreadID")&" Title='"&Topicq&"'>"&Left(""&Topicq,20)&"</a></td><td align=right><a href=Profile.asp?username="&rs("PostAuthor")&">"&rs("PostAuthor")&"</a></td></tr>"
Rs.MoveNext
Loop
Rs.Close
%></table></div><div id="News2_div_2" style="display:none;"><table width=99% align=center border=0 cellpadding=0 cellspacing=0>
<%
Sqlnew="Select Top 10 * From [BBSXP_Threads] Where IsDel=0 and ForumID<>3 Order by Lasttime Desc,LastViewedDate"
Set Rs=Conn.Execute(sqlnew)
Do While Not Rs.EOF
Topicq=ReplaceText(Rs("Topic"),"<[^>]*>","")
Response.write "<tr class=a3 height=18><td><IMG Src=images/Forum_nav.gif border=0> <a href=ShowPost.asp?ThreadID="&Rs("ThreadID")&" Title='"&Topicq&"'>"&Left(""&Topicq,20)&"</a></td><td align=right><a href=Profile.asp?username="&rs("lastname")&">"&rs("Lastname")&"</a></td></tr>"
Rs.MoveNext
Loop
Rs.Close
%></table></div><div id="News2_div_3" style="display:none;"><table width=99% align=center border=0 cellpadding=0 cellspacing=0>
<%
Sqlblog="Select Top 10 * From [BBSXP_Users] where WebLog<>'' Order by UserActivityTime Desc"
Set Rs=Conn.Execute(sqlblog)
Do While Not Rs.EOF
%><tr class=a3 height=18><td> <IMG Src=images/Forum_nav.gif border=0> <a href=Profile.asp?UserName=<%=rs("username")%>><%=rs("username")%></a></td><td align="left"><a href="<%=rs("WebLog")%>" target="_blank"><%=left(rs("WebLog"),40)%>..</a></td></tr>
<%
Rs.MoveNext
Loop
Rs.Close
%></table>
 </div></td></tr>
</table>
</td>
<td width=30% valign=top>
<table width=100% align=center border=0 cellpadding=5 cellspacing=1  id=CommonListArea>
<tr id=CommonListTitle align=center>
<td><div class="Menu_TabOne" id="News3_title_1">
     <a href="Members.asp" onmouseover="return NewsDivChange('3','1',2);">优秀村民排行</a></div>
    <div class="Menu_TabTwo" id="News3_title_2">
     <a href="Members.asp" onmouseover="return NewsDivChange('3','2',2);">最近活动村民</a></div></td></tr>
<tr id=CommonListCell align=center>
<td><div id="News3_div_1"><table width=99% align=center border=0 cellpadding=0 cellspacing=0>
<%
Sqlblog="Select Top 10 * From [BBSXP_Users] Order by experience Desc"
Set Rs=Conn.Execute(sqlblog)
Do While Not Rs.EOF
%><tr class=a3 height=18><td> <IMG Src=images/Forum_nav.gif border=0> <a href=Profile.asp?UserName=<%=rs("username")%>><%=rs("username")%></a></td><td align="left"><%
ShowRank(rs("experience"))
%><img src="<%=RankIconUrl%>" alt="<%=rs("experience")%>" /> <%=rs("experience")%></td></tr>
<%
Rs.MoveNext
Loop
Rs.Close
%></table></div><div id="News3_div_2" style="display:none;"><table width=99% align=center border=0 cellpadding=0 cellspacing=0>
<%
Sqlblog="Select Top 10 * From [BBSXP_Users] Order by UserActivityTime Desc"
Set Rs=Conn.Execute(sqlblog)
Do While Not Rs.EOF
%><tr class=a3 height=18><td> <IMG Src=images/Forum_nav.gif border=0> <a href=Profile.asp?UserName=<%=rs("username")%>><%=rs("username")%></a></td><td align="left"><%=rs("UserActivityTime")%></td></tr>
<%
Rs.MoveNext
Loop
Rs.Close
%></table></div></td></tr>
</table>
</td>
</tr>
</table>