📄 index_bbs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
.STYLE5 {font-size: 14px}
-->
</style>
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
Dim strType ,rs1 ,strSql1
Set rs1 = Server.CreateObject("ADODB.RecordSet")
strType = Request.QueryString("Type")
If strType = "Add" Then
Dim strTitle ,strContent ,strPostTime ,strPoster , strLastUpdateTime , strLastUpdateUser
strTitle = Request.Form("Title")
strContent = Request.Form("Content")
strPostTime = Now()
strPoster = Session("UserName")
strLastUpdateTime = strPostTime
strLastUpdateUser = strPoster
strSql1 = "INSERT INTO BBS (Title,Content,PostTime,Poster,LastUpdateTime,LastUpdateUser) Values('"& strTitle &"','"& strContent &"','"& strPostTime &"','"& strPoster &"','"& strLastUpdateTime &"','"& strLastUpdateUser &"')"
rs1.open strSql1,conn,3,1
End If
%>
<%
Dim rs ,strSql ,Num ,pageNum ,page ,loopNum
If Session("UserType") = "学生" Then
strSql = "SELECT * FROM BBS WHERE ParentID IS NULL ORDER BY PostTime DESC"
ElseIf Session("UserType") = "教师" Then
strSql = "SELECT * FROM BBS WHERE ParentID IS NULL ORDER BY PostTime DESC"
ElseIf Session("UserType") = "管理员" Then
strSql = "SELECT * FROM BBS WHERE ParentID IS NULL ORDER BY PostTime DESC"
Else
Response.Write("对不起，您没有权限进入此页面!")
Response.End
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,1,1
If Not rs.EOF Then
%>
</head>
<%
If rs.recordcount > 0 Then
rs.pagesize = 14
Num = rs.recordcount
pageNum = rs.pagecount
page = Request.QueryString("page")
If page <> "" Then
page = Cint(page)
ElseIf page < 1 Then
page = 1
Else
page =1
End If
If page < 1 then
page =1
End If
If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
page = 1
End If
rs.absolutepage = page
If page <> pageNum Then
LoopNum = rs.pagesize
Else
LoopNum = Num - (page-1)*rs.pagesize
End If
%>
<body topmargin="0">
<table width="700">
<%If Session("UserType") <> "管理员" Then %>
<tr>
<td colspan="6" background="images/liebiao.gif"><div align="center"><a href="#a1" class="STYLE5">我要发帖</a></div></td>
</tr>
<%End If%>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
<tr bgcolor="#72C479">
<td width="208"> 标题</td>
<td width="71" >作者</td>
<td width="120" >发帖时间</td>
<td width="78" >最后回复</td>
<td width="125" >最后回复时间</td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><td >删除</td><%End If%>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF">
<td> <a href="Index_BBSContent.asp?ID=<%=rs("ID").value%>"><%=rs("Title").value%></a></td>
<td ><%=rs("Poster").value%></td>
<td ><%=rs("PostTime").value%></td>
<td ><%=rs("LastUpdateUser").value%></td>
<td ><%=rs("LastUpdateTime").value%></td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><td width="70" ><a href="DelBBS.asp?ID=<%=rs("ID").value%>&ParentID=NULL" onclick='return confirm("您确定要删除此信息吗？")'>删除</a></td><%End IF%>
</tr>
<% rs.movenext
Next %>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Top_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
</table>
<%
Else
%><table width="700">
<%If Session("UserType") <> "管理员" Then %>
<tr>
<td colspan="6" background="images/liebiao.gif"><div align="center"><a href="#a1" class="STYLE5">我要发帖</a></div></td>
</tr>
<%End If%>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
<tr bgcolor="#72C479">
<td width="208"> 标题</td>
<td width="71" >作者</td>
<td width="120" >发帖时间</td>
<td width="78" >最后回复</td>
<td width="125" >最后回复时间</td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><td width="70" >删除</td><%End If%>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF">
<td colspan="6">
记录为空！
</td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><%End IF%>
</tr>
<% rs.movenext
Next %>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Top_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
</table>
<%
End If
Else
%>
<table width="700">
<%If Session("UserType") <> "管理员" Then %>
<tr>
<td colspan="6" background="images/liebiao.gif"><div align="center"><a href="#a1" class="STYLE5">我要发帖</a></div></td>
</tr>
<%End If%>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
<tr bgcolor="#72C479">
<td width="208"> 标题</td>
<td width="71" >作者</td>
<td width="120" >发帖时间</td>
<td width="78" >最后回复</td>
<td width="125" >最后回复时间</td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><td width="70" >删除</td><%End If%>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF">
<td colspan="6">
记录为空！
</td>
<%If Session("UserType") = "教师" Or Session("UserType") = "管理员" Then %><%End IF%>
</tr>
<% rs.movenext
Next %>
<tr bgcolor="#66FF99">
<td colspan="6" background="images/Top_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_bbs.asp?page=1">首页</a> <a href="index_bbs.asp?page=<%=page-1%>">上一页</a> <a href="index_bbs.asp?page=<%=page+1%>">下一页</a> <a href="index_bbs.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
</table>
<%
'Response.Write("记录为空！")
End If
%>
<a name="a1">
<table width="373">
<form id="form1" name="form1" method="post" action="Index_BBs.asp?Type=Add">
<tr bgcolor="#00CC00">
<td colspan="4" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center" class="STYLE5">发表新帖</div></td>
</tr>
<tr bgcolor="#72C479">
<td width="95">标题：</td>
<td width="268" colspan="3" ><input type="text" name="Title" /> </td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF"><textarea name="Content" cols="50" rows="6"></textarea> </td>
</tr>
<tr bgcolor="#72C479" align="center">
<td colspan="4"><input name="Submit2" type="reset" value="清空" /> <input type="submit" name="Submit" value="提交" /></td>
</tr>
<tr bgcolor="#00CC00">
<td colspan="4" background="images/Top_bg.gif" bgcolor="#00CC00"> </td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -