?? index.asp
字號:
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/postubb.asp"-->
<% Call Board_Top() %>
<%
Dim TotalBoards,TotalTopics,TotalReplys
Sql="select RegUsers from QiQiBoy_Status_Disp"
Set Rs=Conn.execute(Sql)
RegUsers=rs(0)
Sql="select TotalBoards from QiQiBoy_Status_Disp"
Set Rs=Conn.execute(Sql)
TotalBoards=rs(0)
Sql="select TotalTopics from QiQiBoy_Status_Disp"
Set Rs=Conn.execute(Sql)
TotalTopics=rs(0)
Sql="select TotalReplys from QiQiBoy_Status_Disp"
Set Rs=Conn.execute(Sql)
TotalReplys=rs(0)
%>
<HTML>
<HEAD>
<TITLE><%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="images/bbs.ico">
<link href="style/style.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="javascript">
<!--
window.open ('http://www.i263.net/news.html')
-->
</SCRIPT>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.Key.value=="")
{
alert("友情提示!\n\n請完整輸貼吧名稱!")
document.form.Key.focus()
return false
}
}
// -->
</script>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width="750" align=center border=0>
<TBODY>
<TR>
<TD width=100% height=130 align=center><A href="http://<%=HOST_URL%>" target="_blank"><IMG src="<%=HOST_LOGO%>" border=0></a></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD width=13% height=20 bgColor=#f9f9f9></TD><TD width=15% height=20 align=center bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><font color=<%=HOST_FONT%>><u>搜索貼吧</u></font></TD><TD width=15% height=20 bgColor=#f9f9f9 align=center class=INDEX_XMALL><a href="l.asp">貼吧列表</a></TD><TD width=15% height=20 bgColor=#f9f9f9 align=center class=INDEX_XMALL><a href="h.asp">推薦貼吧</a></TD><TD width=15% height=20 bgColor=#f9f9f9 align=center class=INDEX_XMALL><a href="m.asp">精華主題</a></TD><TD width=15% height=20 bgColor=#f9f9f9 align=center class=INDEX_XMALL><a href="v.asp">最熱主題</a></TD><TD width=12% height=20 bgColor=#f9f9f9></TD></TR>
<TR>
<TD height=2 colspan="7" bgColor=<%=HOST_TITLE%>></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0 bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD width="100%" height="40" colspan="2"></TD></TR>
<form name="form" onsubmit="return form_onsubmit()" method="post" action="s.asp">
<TR>
<TD width="100%" height="20" align=center class=INDEX_XMALL><input name="Key" maxLength="50" size="45"><input type=submit name="submit" value=" 搜索貼吧 "><br><input type="radio" value="F" name="S" checked>進(jìn)入貼吧 <input type="radio" name="S" value="T">按標(biāo)題檢索 <input type="radio" name="S" value="C">按內(nèi)容檢索 <input type="radio" name="S" value="U">按作者檢索</TD></TR></form>
<TR>
<TD width="100%" height="40" align=center></TD></TR>
<TR>
<TD width="100%" height="20" align=center class=INDEX_XMALL>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from QiQiBoy_Nlass_Disp order by BoardNlass"
rs.open Sql, conn, 1, 1
Do while not rs.eof
If rs.eof Then
Response.Write("還沒有內(nèi)容呢!~ 謝謝你的支持!~")
Response.end
End If
%>
<A href="n.asp?/=<%Response.Write(Server.UrlEncode(rs(1)))%>"><%Response.Write(UBB(rs(1)))%></A>
<%
rs.movenext
Loop
rs.close
rs=NOTHING
%></TD></TR>
<TR>
<TD width="100%" height="40" align=center class=INDEX_XMALL>目前共有貼吧[<%=TotalBoards%>]個,主題[<%=TotalTopics%>]篇,帖子[<%=TotalReplys%>]篇,注冊會員[<%=RegUsers%>]個</TD></TR>
<TR>
<TD width="100%" height="20" class=INDEX_XMALL bgColor=#eeeeee> <% if FoundUser = False then %><a href="i.asp" target="_blank"><b>登錄</b></a> <a href="r.asp" target="_blank"><b>注冊</b></a> <a href="w.asp" target="_blank"><b>忘記密碼</b></a><% else %><a href="u.asp?/=<%=Server.UrlEncode(UserName)%>" target="_blank"><b>注冊信息</b></a> <a href="e.asp" target="_blank"><b>修改信息</b></a> <a href="f.asp" target="_blank"><b>收藏夾</b></a> <a href="g.asp"><b>退出</b></a><% end if %></TD></TR>
<TR>
<TD width="100%" height="50" class=INDEX_XMALL align=center><%=HOST_MEUN%></TD></TR>
<TR>
<TD width="100%"><hr size=1 color=#000000></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD width=25%></TD><TD width=50% align=center class=INDEX_XMALL><b><font color="#999999" face="courier new">Power by <A href="http://<%=HOST_URL%>" target="_blank"><font color="#999999"><%=HOST_URL%></font></A> Bbs-Bar V<%=HOST_VER%></font></b><TD width=25% align=right class=INDEX_XMALL><a href="o.asp"><font color="999999">© 使用貼吧前必讀</font></a> </TD></TR>
<TR>
<TD width=100% colspan="3"><%=HOST_COUNT%></TD></TR></TBODY></TABLE>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -