📄 index.asp
字号:
<%@ Language=VBScript %>
<!--#include file="opendb.asp"-->
<html>
<head>
<title>网站简易论坛</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>
<script language=vbscript src="images/function.vbs"></script>
<body>
<table cellspacing="0" cellpadding="0" width="95%" align="center" border="0">
<tr><td valign="top" align="left" rowspan="2"><img src="images/logo.gif" width="772" height="107" border="0"></td>
</tr>
</table>
<table cellspacing=4 cellpadding=0 width="97%" align=center border=0>
<tr>
<td bgcolor="#FFFFFF">
<%if session("UserName")="" then %>
<font color="#FF6600">您现在的身份是游客，请您登录或注册</font>
<input type=button class="buttonface" value="用户登录" onclick="userlogon()">
<input type=button class="buttonface" value="新用户注册" onclick="newuserlogin()" >
<%else%>
<font color="#FF0000">欢迎光临</font><%=session("UserName")%>
<%if session("UserName")="admin" then%>
<a href="#" onclick="userguanli()">[用户管理]</a><a href="#" onClick="editart.asp">[帖子管理]</a>
<%end if%>
<font color="#FF99FF"><a href="#" onclick="pwdmodify()">[密码修改]</a><a href="exitforum.asp">[退出论坛]</a></font>
<%end if%> </td>
<td align=right><input type=button class="buttonface" value="发表新贴" onclick=newart()></td>
</tr>
<tr>
<td colspan =2 align=left><font color="#6600CC">现在时间:</font><%=date()&time()%></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="99%" align=center bgcolor="#FFCCCC" border=0>
<tr>
<td>
<table cellspacing=1 cellpadding=4 width="100%" border=0>
<tr class=header>
<td width="9%" align="center" bgcolor="#FFCCFF">编号</td>
<td align=center width="46%">标题</td>
<td nowrap align=center width="14%" bgcolor="#FFFFCC">作者</td>
<td nowrap align=center width="6%">回复</td>
<td nowrap align=center width="6%">查看</td>
<td align=center width="19%">发贴时间</td>
</tr>
<%
strSQL = "Select * from Forum Order By CreateTime DESC"
rst.CursorType=3
rst.open strSQL
if rst.RecordCount>0 then
rst.pagesize=10
page=cint(Request.QueryString("page"))
if page<1 then page=1
if page>rst.pagecount then page=rst.pagecount
rst.absolutepage=page
for i=1 to rst.pagesize
if rst.eof then
exit for
else
%>
<tr>
<td align=center bgcolor="#FFFFFF"><%=I%></td>
<td bgcolor=#ffffff><a href="detail.asp?index=<%=rst("ID")%>"><%=rst("Title")%></a></td>
<td align=center bgcolor="#f8f8f8"><%=rst("Username")%></td>
<td align=center bgcolor="#FFFFFF"><%=rst("AnswerCount")%></td>
<td align=center bgcolor=#f8f8f8><%=rst("HitCount")%></td>
<td bgcolor=#ffffff><%=rst("CreateTime")%></td>
</tr>
<%
end if
rst.movenext
next
end if
%>
<tr>
<td colspan=6 bgcolor="#f8f8f8" align=center>
<a href="index.asp?page=1">[第一页]</a>
<a href="index.asp?page=<%=(page-1)%>">[上一页]</a>
<a href="index.asp?page=<%=(page+1)%>">[下一页]</a>
<a href="index.asp?page=<%=rst.pagecount%>">[最后一页]</a>
</td>
</tr>
</table>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -