📄 default.asp
字号:
<!--#include File ="data/include.inc"-->
<!--#include File ="data/emoticons.inc"-->
<%
on error resume next
%>
<html>
<head>
<title>SkyBoard v1.2</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" height="88">
<table width="600" border="1" cellspacing="0" cellpadding="0" height="62" bordercolor="#000000">
<tr>
<td>
<p align="center"><font face="华文彩云" size="6" >BBS论坛系统</font></td>
</tr>
</table>
<font>
<br>
</font>
<table border="1" cellspacing="0" cellpadding="1" height="20" bgcolor="#CCCCCC" bordercolor="#000000" width="600">
<tr>
<td align="center" height="4" width="109"><font size="1">
<a href="login.asp">登录 & 注册</a></font></td>
<td align="center" height="4" width="56"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="<% Response.Write "default.asp?forum=" & Request.Querystring("forum") & "&thread=&action=profile" %>">
个人信息</a></font></td>
<td align="center" height="4" width="45"><font size="1">
<a href="#">帮助</a></font></td>
<td align="center" height="4" width="80"><font size="1">
<% If Request.Querystring("forum") <> "" then Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&action=newpost>" %>
写文章</a> </font></td>
<td align="center" height="4" width="111"><font size="1">状态:
<% If Session("Username") <> "" then Response.Write "<b>Registered</b>" %>
<% If Session("Username") = "" then Response.Write "<b>Anon.</b>" %>
</font></td>
<td align="center" height="4" width="173"><font size="1">讨论区:<b>
<%
If Request.Querystring("forum") <> "" then
Set rsQuery = Con.Execute("SELECT * FROM ForumDB WHERE ID =" & Request.Querystring("Forum") )
Response.Write "<a href=default.asp>" & rsQuery("Name").Value & "</a>"
End If
%>
</b></font></td>
</tr>
</table><font face="宋体"><br>
<% If Session("Admin") <> 0 OR FALSE then %>
</font>
<table border="1" cellspacing="0" cellpadding="1" bgcolor="#CCCCCC" bordercolor="#000000" width="600">
<tr>
<td align="center" width="103"><font face="宋体" size="1">
<a href="admin.asp?action=editforum">删除讨论区</a><a href="admin.asp?action=editforum" target="_blank"> </a></font></td>
<td align="center" width="144"><font face="宋体" size="1">
<a href="admin.asp?action=permission">授权</a><a href="admin.asp?action=permission" target="_blank"> </a></font></td>
<td valign="top" align="center" width="169"><font face="宋体" size="1">
<a href="admin.asp?action=edit">编辑用户</a><a href="admin.asp?action=edit" target="_blank"> </a></font></td>
<td align="center" width="166"><font face="宋体" size="1">
<a href="admin.asp?action=new">创建讨论区</a><a href="admin.asp?action=new" target="_blank"> </a></font></td>
</tr>
</table>
<font face="宋体">
<br>
<% end If %>
<% If Request.Querystring("forum") <> "" then
If Request.Querystring("thread") <> "" then %>
</font>
<table width="74" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#999999">
<tr>
<td><font face="宋体" size="1">
<% Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&thread=" & Request.Querystring("thread") & "&action=reply>Reply</a>"
End If
End If
%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<font face="宋体">
<% If Request.Querystring("action") = "" then %>
</font>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="600" border="1" cellspacing="0" cellpadding="1" bgcolor="#999999" bordercolor="#000000">
<tr>
<td width="16" align="center"><font face="宋体" size="1">
ID</font></td>
<td width="120" align="center"><font face="宋体" size="1">
名称</font></td>
<td width="161" align="center"><font face="宋体" size="1">
说明</font></td>
<td width="107" align="center"><font face="宋体" size="1">
文章数</font></td>
<td width="174" align="center"><font face="宋体" size="1">
创建者</font></td>
</tr>
<tr>
<td width="16" align="center" bgcolor="#CCCCCC" valign="top">
<font face=宋体 size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM ForumDB ORDER BY Threads DESC")
While Not rsQuery.EOF
Response.Write "<img src=" & rsQuery("icon") & " width=12 height=12><br>"
rsQuery.MoveNext
Wend
%><br>
</font></td>
<td width="120" align="center" bgcolor="#CCCCCC" valign="top">
<font face=宋体 size=1>
<%
'Getting Forum Names
t = 0
Set rsQuery = Con.Execute("SELECT * FROM ForumDB ORDER BY Threads DESC")
While Not rsQuery.EOF
t = t + 1
Response.Write "<a href=default.asp?forum=" & rsQuery("ID") & "&thread=&action=view>" & rsQuery("Name") & "</a><br>"
rsQuery.MoveNext
Wend
t = t - 1
%> </font></td>
<td width="161" align="center" bgcolor="#CCCCCC" valign="top">
<font face=宋体 size=1>
<%
'Getting Forum Descriptions
Set rsQuery = Con.Execute("SELECT * FROM ForumDB ORDER BY Threads DESC")
While Not rsQuery.EOF
Response.Write rsQuery("Description") & "<br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td width="107" align="center" bgcolor="#CCCCCC" valign="top">
<font face=宋体 size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM ForumDB ORDER BY Threads DESC")
While Not rsQuery.EOF
Response.Write rsQuery("Threads") & "<br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td width="174" align="center" bgcolor="#CCCCCC" valign="top">
<font face=宋体 size=1>
<%
'Getting Moderators
Set rsQuery = Con.Execute("SELECT * FROM ForumDB ORDER BY Threads DESC")
While Not rsQuery.EOF
Response.Write rsQuery("Moderators") & "<br>"
rsQuery.MoveNext
Wend
%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<font face="宋体">
<% End IF %>
<% If Request.Querystring("action") = "view" then %>
</font>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <font > <br>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bgcolor="#999999" bordercolor="#000000">
<tr>
<td width="7" align="center"><font size="1">ID</font></td>
<td width="173" align="center"><font size="1">主题</font></td>
<td width="123" align="center"><font size="1">发稿者 </font></td>
<td width="103" align="center"><font size="1">日期</font></td>
<td width="73" align="center"><font size="1">回复数 </font></td>
<td width="95" align="center"><font Size=1>
<% If Session("Admin") <> 0 OR FALSE then Response.Write "Admin" %> </font></td>
</tr>
<tr>
<td width="7" align="center" bgcolor="#CCCCCC"><font size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE FORUMID=" & Request.Querystring("forum") & " ORDER BY REPLIES DESC")
While Not rsQuery.EOF
Response.Write "<img src=grafx/icon" & rsQuery("icon") & ".gif width=12 height=12><br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td width="173" align="center" bgcolor="#CCCCCC"><font size=1>
<%
l = 0
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE FORUMID=" & Request.Querystring("forum") & " ORDER BY REPLIES DESC")
While Not rsQuery.EOF
l = l + 1
Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&thread=" & rsQuery("ID") & "&action=read>" & rsQuery("Subject") & "</a><br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td width="123" align="center" bgcolor="#CCCCCC"><font size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE FORUMID=" & Request.Querystring("forum") & " ORDER BY REPLIES DESC")
While Not rsQuery.EOF
If instr(rsQuery("Poster"), "]") <> 0 then
Poster = rsQuery("poster")
Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&thread=" & Request.Querystring("thread") & "&action=info&what=" & Session("USERID") & ">" & rsQuery("Poster") & "</a><br>"
End If
If instr(rsQuery("Poster"), "]") = 0 then Response.Write rsQuery("Poster") & "<br>"
'Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&thread=" & Request.Querystring("thread") & "&action=info&what=" & rsQuery("UserId") & ">" & rsQuery("Poster") & "</a><br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td width="103" align="center" bgcolor="#CCCCCC"><font size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE FORUMID=" & Request.Querystring("forum") & " ORDER BY REPLIES DESC")
While Not rsQuery.EOF
Response.Write Left(rsQuery("Time"), 11) & "<br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td align="center" bgcolor="#CCCCCC" width="73"><font size=1>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE REPLYID=0 AND FORUMID=" & Request.Querystring("Forum") & " ORDER BY REPLIES DESC")
While Not rsQuery.EOF
Response.Write rsQuery("Replies") & "<br>"
rsQuery.MoveNext
Wend
%> </font></td>
<td align="center" bgcolor="#CCCCCC" width="95" valign="top">
<font Size=1>
<%
If Session("Admin") <> 0 OR FALSE then
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE FORUMID=" & Request.Querystring("forum") & " ORDER BY REPLIES DESC")
While NOt rsQUery.EOF
Response.Write "<a href=default.asp?forum=" & Request.Querystring("forum") & "&thread=" & Request.Querystring("thread") & "&action=kill&what=" & rsQuery("ID") & ">Delete</a><br>"
rsQuery.MoveNext
Wend
End If
%>
</font> </td>
</tr>
</table>
</td>
</tr>
</table>
<font >
<% End IF %>
<% If Request.Querystring("action") = "newpost" then %>
<br>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000">
<tr>
<td bgcolor="#999999"><font size="1">新文章</font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" height="126"> <font size="1">
<% Response.Write ("<form name=form1 method=post action=default.asp?forum=" & Request.Querystring("forum") & "&action=postit>") %>
<br>
用户名:</font><font >
<%
If Session("Username") <> "" then
Response.Write "<font face=Verdana Size=1>" & Session("Username") & "</font>"
End If
If Session("Username") = "" then
Response.Write "<input type=text name=username>"
End If
%>
<br>
</font><font size="1">主题: </font><font > <font color="#CCCCCC">.</font>
<input type="text" name="subject" value=" ">
<br>
<br>
</font>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="66" valign="top"><font size="1">表情:
<br>
</font> </td>
<td width="334">
<font >
<input type="radio" name="Icon" value="1" CHECKED>
<img src="grafx/icon1.gif" width="15" height="15">
<input type="radio" name="Icon" value="2">
<img src="grafx/icon2.gif" width="15" height="15">
<input type="radio" name="Icon" value="3">
<img src="grafx/icon3.gif" width="15" height="15">
<input type="radio" name="Icon" value="4">
<img src="grafx/icon4.gif" width="15" height="15">
<input type="radio" name="Icon" value="5">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -