⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 showgg.asp

📁 一个小巧的论坛程序 本程序基本功能:  可开设任意数目的讨论区类别和版块 使用Cookies
💻 ASP
字号:
<!--#include file="inc.asp"--><!--#include file="ubbcode.asp"-->
<%
menu=request.querystring("menu")
select case menu
case""
totable=autotable
set sgg=myconn.execute("select*from gonggao where id="&id&"")
if sgg.eof then response.end
zhuti=sgg("zhuti")
body=sgg("body")
riqi=sgg("riqi")
name=sgg("name")
sgg.close
set sgg=nothing
%>
<title>论坛公告</title>
<link rel="stylesheet" type="text/css" href="css.css">
<body topmargin="0">
<div align="center"><center><table border="1" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all; border-collapse:collapse;" bordercolor="<%=c1%>" width="98%">
<tr>
  <td width="102%" height="24" bgcolor="<%=c2%>" background="pic/<%=sp%>3.gif">&nbsp;<img border=0 src=pic/fl.gif>
<font color="#FFFFFF"><b><%=kbbs(zhuti)%></b></font></td></tr>
<tr><td width="102%">
      <blockquote>
<p style="line-height: 120%; margin: 5"><br><%=ubb(body)%></p>
      </blockquote>
      </td>
    </tr>
    <tr><td width="100%" height="24" bgcolor="<%=c2%>" background="pic/<%=sp%>3.gif" align="right">
      <p style="margin: 5"><font color="#FFFFFF"><%=kbbs(name)%> 发表于 <%=riqi%></font></td>
    </tr>
    <tr>
        <td width="100%" height="25" align="center"> <a href=# onclick="window.close();"><img src="pic/close.gif" border="0" align="absmiddle"> 
          关闭窗口</a></td>
    </tr>
  </table>
  </center>
</div>
<%case"upload"
totable=int(check2(request.querystring("totable")))
id=check2(request.querystring("bbsid"))%>
<title>帖子浏览</title>
<link rel="stylesheet" type="text/css" href="css.css">
<body topmargin="0">
<%
set rs=myconn.execute("select top 1 * from bbs"&totable&" where bbsid="&id&"")
if rs.eof then
zhuti="帖子不存在!"
body="该上传文件所属的帖子不存在!"
showname=false
else
showname=true
bid=rs("bid")
if bid<>0 then
set rs1=myconn.execute("select top 1 zhuti,bd from bbs"&totable&" where id="&bid&"")
zhuti="RE:<a target=_blank href=show.asp?id="&bid&"&totable="&totable&"&bd="&bd&"><font color=#FFFFFF>"&kbbs(rs1("zhuti"))&"</font></a>"
set rs1=nothing
else
zhuti=kbbs(rs("zhuti"))
end if
body=rs("body")
end if
%>
<div align="center"><center><table border="1" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all; border-collapse:collapse;" bordercolor="<%=c1%>" width="98%">
<tr>
  <td width="102%" height="24" bgcolor="<%=c2%>" background="pic/<%=sp%>3.gif">&nbsp;<img border=0 src=pic/fl.gif>
<font color="#FFFFFF">&nbsp;<b><%=zhuti%></b></font></td></tr>
<tr><td width="102%">
      <blockquote>
<p style="line-height: 120%; margin: 5"><br><%=ubb(body)%></p>
      </blockquote>
      </td>
    </tr>
    <tr><td width="100%" height="24" bgcolor="<%=c2%>" background="pic/<%=sp%>3.gif" align="right">
      <p style="margin: 5"><%if showname=true then%><font color="#FFFFFF"><%=kbbs(rs("name"))%> 发表于 <%=rs("riqi")%></font><%end if%></td>
    </tr>
    <tr>
        <td width="100%" height="25" align="center"> <a href=# onclick="window.close();"><img src="pic/close.gif" border="0" align="absmiddle"> 
          关闭窗口</a></td>
    </tr>
  </table>
  </center>
</div>
<%set rs=nothing
end select%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -