📄 bbs.asp
字号:
<!--#include file="../config/sys.asp"-->
<%
topid=Trim(Request.QueryString("topid"))
flog=Trim(Request.QueryString("flog"))
if topid>"0" then
if flog="topflog" then
response.write selectbbs(topid,"topflog",request("bit"))
elseif flog="lockflog" then
response.write selectbbs(topid,"lockflog",request("bit"))
end if
end if%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css" />
<script>
function delete_eintrag(id, p, s, parent) {
msg=window.open("delete.asp?id="+id+"&p="+p+"&s="+s+"&parent="+parent,"","height=200,width=350");
}
</script>
</head>
<body><script src="images/skins.js"></script>
<div align="center">
<TABLE style="TABLE-LAYOUT: fixed" height=100% cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR height=3 width="100%">
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD bgColor=#DCDCDC></TD>
<TD width=1></TD>
<TD width=1></TD>
<TD width=1></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC></TD>
<TD bgColor=#f7f8f9 colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <TABLE style="TABLE-LAYOUT: fixed" height="100%" cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#DCDCDC></TD>
<TD id=oINNER bgColor=#FFFFFF>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td height="24" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" colspan="3">
<font color="#999999"><b> 心理讨论</b></font></td>
</tr> <tr>
<td bgcolor="#FFFFFF" valign="top">
<div align="center">
<table cellspacing="1" cellpadding="4" width="98%" border="0" class="a2" bgcolor="#FFFFFF">
<tr class="a1">
<td width="54%" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px" align="center">【帖子标题】</td>
<td width="13%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【发贴人】</td>
<td width="8%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【浏览】</td>
<td width="8%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【回复】</td>
<td width="17%" align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">【最后更新】</td>
</tr>
<%s =cint( request.querystring("s"))
if len(s)<1 then s = 0
s=s*13
a="0"
sql = "select * from postings where connected = 0 and helpflog='"&a&"' order by topflog desc,updated desc"
set rs = conn.Execute(sql)
while not rs.eof
lastdate=rs("lastdate")
shicha=DateDiff("n",lastdate,date)
count = count +1
if count>s and count<=(s+13) then
if count mod 2 = 0 then
bgcolor = "a3"
else
bgcolor = "a4"
end if%>
<tr class="<%=bgcolor%>">
<td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"> <%if rs("topflog")="1" then%><img src=images/istop.gif><%else%><%if rs("views")>=50 then%><img src=images/closedb.gif><%else%>
<%if rs("replies")>=50 then%>
<%if rs("lockflog")="1" then%><img src=images/lock_l.gif><%else%>
<img src=images/foldernew.gif>
<%end if%>
<%elseif rs("replies")>=30 then%>
<%if rs("lockflog")="1" then%><img src=images/lock_b.gif><%else%>
<img src=images/ifolder.gif>
<%end if%>
<%elseif rs("replies")>=10 then%>
<%if rs("lockflog")="1" then%><img src=images/jinghua.gif><%else%>
<img src=images/folderallnew.gif>
<%end if%>
<%else%>
<%if rs("lockflog")="1" then%><img src=images/jinghua.gif><%else%>
<img src=images/icon.gif>
<%end if%><%end if%><%end if%><%end if%> <a class="text" href="view.asp?id=<%=rs("id")%>&s=<%=s/13%>"><%=formatierung(rs("title"))%></a>
<%if shicha<=1 then %>
<img src=images/new.gif>
<%end if%>
<%IF selectROLE2(SESSION("USER_NAME")) THEN%>[<%if rs("topflog")<>"1" then%><a href="?topid=<%=rs("id")%>&bit=1&flog=topflog" >置顶</a><%else%><a href="?topid=<%=rs("id")%>&bit=0&flog=topflog" >解顶</a><%end if%>] [<%if rs("lockflog")<>"1" then%><a href="?topid=<%=rs("id")%>&bit=1&flog=lockflog" >锁定</a><%else%><a href="?topid=<%=rs("id")%>&bit=0&flog=lockflog" >解锁</a><%end if%>] [<a href="javascript:delete_eintrag('<%=rs("id")%>','all','<%=s%>','<%=rs("id")%>');">删除</a>]<%end if%></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><a href="../other_user.asp?user_name=<%=rs("autor")%>"><%=selectlook(rs("autor"),"user_name")%></a></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><font color="#0000FF"><%=rs("views")%></font></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"> <font color="#FF0000"><%=rs("replies")%></font></td>
<td align="center" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px"><%=year(rs("datum_updated"))%>-<%=month(rs("datum_updated"))%>-<%=day(rs("datum_updated"))%></td>
</tr>
<%end if
rs.movenext
wend
sql = "select count(id) as alleEintraege from postings where connected = 0"
set rs = conn.Execute(sql)
alleEintraege = int(rs("alleEintraege"))%>
<tr class="a4">
<td width="100%" colspan = "5">
<table width=100% cellpadding="0" cellspacing="0">
<tr>
<td width="55%"><font color="#FF0000">说明：</font>【新帖】 <img src=images/new.gif> 【点击>50】 <img src=images/closedb.gif> 【锁帖】 <img src=images/jinghua.gif> 【
置顶】 <img src=images/istop.gif></td>
<td align="right">跳到
<select name="select" onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<% for t = 0 to fix((alleEintraege-1)/13)%>
<option value="bbs.asp?s=<%=t%>" <%if t=(s/13) then%>selected<%end if%>><%=t+1%></option>
<%next%>
</select>
页 当前第<font color=red> <%=s/13+1%> </font>页
<% if s>0 then %>
<a href=bbs.asp?s=<%=s/13-1%>>[上一页]</a>
<%end if%>
<% if fix((alleEintraege-1)/13)-s/13 <> 0 then %>
<a href="bbs.asp?s=<%=s/13+1%>">[下一页]</a>
<%end if%></td>
</tr>
</table></td>
</tr>
</table>
</div>
<%rs.close
conn.close
set rs = nothing
set conn = nothing%>
</td>
</tr>
</table>
</TD>
<TD width=1 bgColor=#DCDCDC></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR height=3 width="100%">
<TD> <TABLE style="TABLE-LAYOUT: fixed" height=3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR height=1>
<TD width=1></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#f7f8f9></TD>
<TD width=1 bgColor=#DCDCDC></TD>
<TD width=1></TD>
</TR>
<TR height=1>
<TD></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD bgColor=#f7f8f9></TD>
<TD bgColor=#DCDCDC colSpan=2></TD>
<TD></TD>
</TR>
<TR height=1>
<TD colSpan=3></TD>
<TD bgColor=#DCDCDC></TD>
<TD colSpan=3></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -