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

📄 showtopic.asp

📁 一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的 的的 饿的饿恶毒
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="conn.asp"-->
<!--#include file="lbb.asp"-->
<%
TopID=Request("topid")
ID=Request("id")
TopicID=Request("TopicID")


%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>{崭}设计_v1.0     [http://www.picicn.com]</title>
<link href="stely.css" rel="stylesheet" type="text/css">
</head>

<body>
<!--#include file="top.asp"-->
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
        <tr>
          <td height="24" background="images/link_bg.gif" class="yellow"> 　<img src="images/link_vt.gif" width="13" height="13" align="absmiddle"> 您当前的位置：<a href="index.asp"><span class="red">{崭}设计</span></a> >>> <%
		sql="select * from topforum where ID="&TopID
		set rs=Server.CreateObject("ADODB.Recordset")
		rs.open sql,conn,1,1
		%><span class="red"><%=rs("Title")%></span>
            <%rs.close%>            >>> <%
		sql="select * from forum where ID="&ID&" and TopForum="&TopID
		set rs=Server.CreateObject("ADODB.Recordset")
		rs.open sql,conn,1,1
		ForumTitle=rs("Title")
		%><a href="forum.asp?id=<%=ID%>&topid=<%=TopID%>"><span class="red"><%=ForumTitle%></span></a><%rs.close%> >>> <%
		sql="select * from topic where ID="&topicid&""
		set rs=Server.CreateObject("ADODB.Recordset")
		rs.open sql,conn,1,3
		rs.update
		rs("Click")=rs("Click")+1
		rs.update
		%><%=rs("Title")%></td>
        </tr>
    </table></td>
  </tr>
  <tr>
  <%sql="select * from users where username='"&rs("UserName")&"'"
  set rec=Server.CreateObject("ADODB.Recordset")
  rec.open sql,conn,1,1
  %>
    <td height="6" bgcolor="#FFFFFF"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" background="images/7_bg.gif"><img src="images/7_bg.gif" width="1" height="10"></td>
  </tr>
  <tr>
    <td width="26" bgcolor="#FF4E00"><img src="images/8_left.gif" width="26" height="23"></td>
    <td bgcolor="#FF4E00" class="white">本贴主题</td>
  </tr>
  <tr>
    <td colspan="2" background="images/9_bg.gif"><img src="images/9_bg.gif" width="1" height="3"></td>
  </tr>
</table>

<table width="100%"  border="0" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td background="images/top_td_bg.gif" bgcolor="f4f4f4"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>[本主题楼主] <%=rs("title")%></td>
        <td>&nbsp;</td>
        <td align="right"><%if session("username")<>"游客" then%><a href="#replys"><img src="images/ico/reply.gif" width="60" height="18" border="0" onClick="reply.bodys.value='';"> </a><%end if%><a href="#replybottom"><img src="images/ico/replybottom.gif" width="60" height="18" border="0"></a></td>
      </tr>
    </table></td>
    <td width="230" background="images/top_td_bg.gif" bgcolor="f4f4f4" class="red"><b>作者：</b><%=rec("UserName")%>(<%=rec("SEX")%>)</td>
  </tr>
  <tr>
    <td bgcolor="f4f4f4"><table width="100%" height="150"  border="0" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
        <td valign="top" bgcolor="#FFFFFF">
          <table width="100%" height="90"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="100" rowspan="3" align="center" valign="top">
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="<%=rec("fice")%>" width="90" height="90"></td>
                  </tr>
                  <tr>
                    <td height="23"><span class="red">·<%=rec("username")%></span></td>
                  </tr>
                </table></td>
              <td height="13"><img src="images/pp_11.gif" width="25" height="13"></td>
              <td height="13" background="images/pp_21.gif"><img src="images/pp_21.gif" width="1" height="13"></td>
              <td width="13" height="13" valign="top" background="images/pp_32.gif"><img src="images/pp_31.gif" width="13" height="12"></td>
            </tr>
            <tr>
              <td width="25" height="90" valign="top" background="images/pp_13.gif"><img src="images/pp_12.gif" width="25" height="13"></td>
              <td bgcolor="#FFFBEE"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0" style=" table-layout:fixed;word-break:break-all">
                    <tr>
                      <td><p><%=lbb(rs("body"))%></p>
                                    <p align="right"><%=rs("Entertime")%></p></td>
                    </tr>
                  </table></td>
              <td width="13" background="images/pp_32.gif"><img src="images/pp_32.gif" width="13" height="100%"></td>
            </tr>
            <tr>
              <td width="25" height="13"><img src="images/pp_14.gif" width="25" height="13"></td>
              <td height="13" background="images/pp_22.gif"><img src="images/pp_22.gif" width="1" height="13"></td>
              <td width="13" height="12" align="right" background="images/pp_22.gif"><img src="images/pp_33.gif" width="12" height="13"></td>
            </tr>
          </table>
          <hr size="1" noshade color="cccccc">
          <%=rec("QM")%>
          <hr size="1" noshade color="cccccc">
         <span class="red">[联系楼主]</span> <span class="yellow">个人主页：<%if rec("userpage")<>"无" then%><a href="<%=rec("userpage")%>" target="_blank"><%=rec("userpage")%></a><%else%><%=rec("userpage")%><%end if%> / 电子邮件：<a href="mailto:<%=rec("email")%>" target="_blank"><%=rec("email")%></a> / 通讯工具：<%=rec("QQ")%> / 站内短信</span></td>
      </tr>
    </table></td>
    <td width="230" valign="top" bgcolor="f4f4f4"><table width="100%" height="130"  border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
        <td bgcolor="#FFFFFF">文章总数：<%=rec("Tcount")%> | 精华文章：<%=rec("Tcounts")%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF">注册时间： <%=rec("regtime")%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF">金钱数：<%=rec("money")%> | 魅力值：<%=rec("glamour")%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF">在线状态：<%
	sql="select * from Online where Username='"&rec("Username")&"'"
	set sss=Server.CreateObject("ADODB.Recordset")
	sss.open sql,conn,1,1
	if sss.recordcount<>0then
	response.write("在线")
	else
	response.write("离线")
	end if
	%> | 登陆次数：<%=rec("Dlcs")%></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF"><%if session("username")=rec("username") or session("username")="Desner" then%><a href="#" onClick="window.open('edtopic.asp?topicID=<%=rs("ID")%>&topicclass=1','edtopic','width=500,height=540')">编辑</a><%end if%>　<%if session("username")=rec("username") or session("username")="Desner" then%><a href="deltopic.asp?TopID=<%=TopID%>&ID=<%=ID%>&TopicID=<%=TopicID%>">删除</a><%end if%></td>
      </tr>
    </table></td>
  </tr>

</table>
<table width="100%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td background="images/10_bg.gif"><img src="images/10_bg.gif" width="2" height="23"></td>
    </tr>
</table>
<%
rs.close
rec.close
%>

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" background="images/7_bg.gif"><img src="images/7_bg.gif" width="1" height="10"></td>
  </tr>
  <tr>
    <td width="26" bgcolor="#FF4E00"><img src="images/8_left.gif" width="26" height="23"></td>
    <td bgcolor="#FF4E00" class="white">主题回复</td>
  </tr>
  <tr>
    <td colspan="2" background="images/9_bg.gif"><img src="images/9_bg.gif" width="1" height="3"></td>
  </tr>
</table>
<table width="100%"  border="0" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
<%
sql="select * from Reply where ToPicID="&ToPicID&" order by ID"
set rply=Server.CreateObject("ADODB.Recordset")
rply.open sql,conn,1,1
if rply.recordcount=0 then
response.write("<tr><td align=center class=white bgcolor=ff2300>本主题暂无回复！</td></tr>")
else
k=1
do while not rply.eof
%>
<%
	sql="select * from users where username='"&rply("username")&"'"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
	%>
  <tr>
    <td background="images/top_td_bg.gif" bgcolor="f4f4f4"><b>第[<span class="red"><%=k%></span>]楼：</b><span class="red"><%=rply("Title")%></span></td>
    <td width="230" background="images/top_td_bg.gif" bgcolor="f4f4f4" class="red"><b><span class="red">作者：</span></b><%=rply("UserName")%>(<%=rs("SEX")%>)</td>
  </tr>
  <tr>
    <td valign="top" bgcolor="f4f4f4"><table width="100%" height="150"  border="0" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
        <tr>
          <td valign="top" bgcolor="#FFFFFF">
            <table width="100%" height="90"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="100" rowspan="3" align="center" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="<%=rs("fice")%>" width="90" height="90"></td>
                  </tr>
                  <tr>
                    <td height="23"><span class="red">·<%=rs("username")%></span></td>
                  </tr>
                </table></td>
                <td height="13"><img src="images/pp_11.gif" width="25" height="13"></td>
                <td height="13" background="images/pp_21.gif"><img src="images/pp_21.gif" width="1" height="13"></td>
                <td width="13" height="13" valign="top" background="images/pp_32.gif"><img src="images/pp_31.gif" width="13" height="12"></td>
              </tr>
              <tr>
                <td width="25" height="90" valign="top" background="images/pp_13.gif"><img src="images/pp_12.gif" width="25" height="13"></td>
                <td bgcolor="#FFFBEE"><table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0" style=" table-layout:fixed;word-break:break-all">
                  <tr>
                    <td><p><%=lbb(rply("body"))%></p>
                  <p align="right"><%=rply("retime")%></p></td>
                  </tr>
                </table>
                </td>
12

⌨️ 快捷键说明

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