📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<html>
<head>
<title><%=bbsname%>-论坛中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <%=bbsname%></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<br>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form method='POST' name='login' action='chklogin.asp'>
<tr>
<td><img src="/img/index_1.gif" width="15" height="16">
<% if session("username")="" then%>
论坛登录：用户名
<input name="username" type="text" class="wenbenkuang" size="15">
密 码
<input name="password" type="password" class="wenbenkuang" size="15">
有效期
<select size="1" name="cookies">
<option selected value="0">不保存</option>
<option value="1">保存一天</option>
<option value="30">保存一月</option>
<option value="365">保存一年</option>
</select>
<input name="Submit2" type="submit" class="go-wenbenkuang" value="立即登录">
<%else%>
<font color="ff0000"><%=session("username")%></font> 您好：欢迎你光临<%=bbsname%>
<%username=nosql(session("username"))
'mailnewno=conn.execute("select count(tname) from sms where tname='"&username&"' and isnew='0'")
set rs = server.CreateObject("ADODB.RecordSet")
mailnewno="SELECT sum(isnull(isnew)) as num FROM sms where tname='"&username&"'"
rs.open mailnewno,conn,1,1
if rs.Eof or rs.Bof then
else
if rs(0)>=1 then
tishi1="<a href=mysms.asp?id=0><font color=ff0000>您有"&rs(0)&"条新的消息尚未阅读</font></a>"
end if
end if%>
<%=tishi1%>
<%end if%></td></tr>
</form>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="79" valign="top"><div align="center">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<%
sql="select * from board order by px"
Set Rs=Conn.Execute(sql)
do while not Rs.eof
%>
<script>bbs("<%=Rs("bid")%>","<%=Rs("bidname")%>","<%=Rs("logo")%>","<%=Rs("bidinfo")%>","<%=Rs("lasttopic")%>","<%=Rs("lastname")%>","<%=Rs("lasttime")%>");</script><br>
<%Rs.movenext
loop
rs.close
set rs=nothing
%>
<!--#include file="../line.asp"-->
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="73D1E9">
<tr bgcolor="f1f1f1">
<td colspan="4" bgcolor="#C0E9F5"> 目前在线<%=lineno%>人 注册会员<%=usno%>人 游客<%=nusno%>人 最高在线<%=mostonline%>人 发生于：<%=mosttime%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="34%" colspan="4" bgcolor="#FFFFFF"><font color="505050">最新加入会员： </font>
<font color="505050"><a href=Userlist_data.asp?username=<%=zhhy%>><%=zhhy%></a></font> <font color="505050">共有注册会员：</font> <font color="505050"><%=hyzc%>位</font> <font color="505050">主题总数：<%=zt%></font> <font color="505050">回帖总数：<%=hf%></font></td>
</tr>
<%if online=0 then%> <tr bgcolor="#FFFFFF">
<td colspan="4" bgcolor="#FFFFFF">在线用户: <%
Set rsonline = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM online order by ltime desc"
rsonline.open sql, conn, 1,1
do while not rsonline.eof
if rsonline("name")<>"" then%>
<img src="images/ao2.gif" width="16" height="18"> <a href=Userlist_data.asp?username=<%=rsonline("name")%>><%=rsonline("name")%></a>
<% else%>
<img src="images/ao1.gif" width="16" height="18"> 游客
<% end if
rsonline.movenext
loop
rsonline.close
set rsonline=nothing%></td>
</tr><%end if%>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="73D1E9">
<tr>
<td bgcolor="#C0E9F5"> <img src="images/index_8.gif" width="21" height="15" align="absmiddle">友情连接 <font color="666666"> [<font color="3A3A3A"><a href="addlink.asp">交换友情连接</a></font>] </font> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<%sql1="select * from link where [check]=1 order by id desc"
Set link=Conn.Execute(sql1)
i=1
while not link.eof%>
<td width="110" >
<div align="center"><a href=<%=link("url")%> target=top> <%=trim(link("linkname"))%></a></div></td>
<%if i mod 8 = 0 then %>
</tr>
<%
end if
link.MoveNext
i=i+1
wend
%>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="../copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -