📄 jhbbs.asp

📁 树型ASP论坛下载
💻 ASP
字号:
<!--#include file="opendb.asp" -->
<%
indexid=request("indexid")
if indexid<>"" then
 indexid=cint(indexid)
else%>
  <script language="javascript"> 
  alert("非法进入，请退出！");
  //document.location.href="/index.asp"
  history.go(-1);
  </script>
<%end if%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="bbs.css" rel="stylesheet" type="text/css">

</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<div align="center">
<% 
sql="select * from yfindex where indexid="&indexid&""
set rscust=server.createobject("adodb.recordset")
rscust.open sql,conn,1,3 %>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <td align="center" valign="top"><br> <table width="95%" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td><table width="100%" border="0" align="center" cellpadding="3" class="px14">
                <tr bgcolor="#FFFFCC">
                  <td height="22" align="center" bgcolor="#0065CA"><font color="#FFFFFF">论 
                    坛 精 华 区</font></td>
                </tr>
                <tr bgcolor="#FFFFCC"> 
                  <td height="22" bgcolor="#BCDFFE">标题:<font color="#CC0000"><%=server.HTMLEncode(rscust("title"))%></font></td>
                </tr>
              </table>
              <br> <center>
                <table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#D6EEFA">
                  <tr> 
                    <td width="42%"><img src="images/<%=trim(rscust("classid"))%>.gif" border="0"> 
                      作 者: <a href="user.asp?userid=<%=rscust("userid")%>"  title=<%=rscust("area")%><%=rscust("nickname")%><%if rscust("sex")=true then%>先生<%else%>小姐/女士<%end if%>:<%=rscust("email")%>><%=rscust("nickname")%></a> 于 <%=rscust("time")%> 在本版发表</td>
                    <td width="31%" align="right"><font color="#666666">来自：<%=rscust("ip")%></font></td>
                    <td width="27%" colspan="5" align="right"> <a href="../history.go(-1)">[返回]</a> 
                    </td>
                  </tr>
                </table>
                <table width="100%" border="0" class="10t" cellpadding="12" cellspacing="0" bgcolor="#E9F5FC">
                  <tr> 
                    <td width="100%" valign="top" colspan="8" height="41"> <% s=server.HTMLEncode(rscust("content"))  
    outs=""  
    for i=1 to len(s)  
      ch=mid(s,i,1)  
      if i>1 then  
        if ch=" " and mid(s,i-1,1)=" " then  
        ch="&nbsp;"  
        end if  
      end if  
      if ch=chr(13) then   
        ch="<br>"  
      end if  
      outs=outs+ch  
    next  
%> 
    <p><%=outs%></p>
	<%u=rscust("usign") '签名档
	if u<>"" and rscust("userid") <>""then
	Response.Write("<p>============================<br>")
	usign="usign"&u
	 set rs_u=server.createobject("adodb.recordset")  
     resql_u="select "&usign&" from users where userid="&rscust("userid") 
    rs_u.open resql_u,conn,1,3
	If u=1 Then
	Response.Write(server.HTMLEncode(rs_u("usign1")))
	end if
	If u=2 Then
	Response.Write(server.HTMLEncode(rs_u("usign2")))
	end if
	If u=3 Then
	Response.Write(server.HTMLEncode(rs_u("usign3")))
	end if
	set rs_u=nothing
 End If 
 Response.Write("</p>")
    %>
        </td>
                  </tr>
                </table>
                <hr width="100%" size="1">
                <% set rs=server.createobject("adodb.recordset")  
                resql="select * from yfrep where indexid="&indexid&" order by time"  
                rs.open resql,conn,1,3  
                if rs.RecordCount>0 then  
                do while not rs.eof
                %>
                <table width="100%" border="0" cellpadding="3" cellspacing="0" bgcolor="#D6EEFA">
                  <tr> 
                    <td width="42%"><img src="images/<%=trim(rs("classid"))%>.gif" border="0"> 
                      作 者: <a href="user.asp?userid=<%=rscust("userid")%>"  title=<%=rscust("area")%><%=rscust("nickname")%><%if rscust("sex")=true then%>先生<%else%>小姐/女士<%end if%>:<%=rscust("email")%>><%=rs("nickname")%></a> 于 <%=rs("time")%>回复</td>
                    <td width="31%" align="right"><font color="#666666">来自：<%=rs("ip")%></font></td>
                    <td width="27%" colspan="2" align="right">&nbsp; </td>
                  </tr>
                </table>
                <table width="100%" border="0" class="10t" cellpadding="12" cellspacing="0" bgcolor="#E9F5FC">
                  <tr> 
                    <td width="100%" valign="top" colspan="8"> <% s=server.HTMLEncode(rs("content"))
    outs=""  
    for i=1 to len(s)  
      ch=mid(s,i,1)  
      if i>1 then  
        if ch=" " and mid(s,i-1,1)=" " then  
        ch="&nbsp;"  
        end if  
      end if  
      if ch=chr(13) then   
        ch="<br>"  
      end if  
      outs=outs+ch  
    next  
%> <p><%=outs%></p>
	<%u=rs("usign") '签名档
	if u<>"" and rs("userid") <>""then
	Response.Write("<p>============================<br>")
	usign="usign"&u
	 set rs_u=server.createobject("adodb.recordset")  
     resql_u="select "&usign&" from users where userid="&rs("userid") 
    rs_u.open resql_u,conn,1,3
	If u=1 Then
	Response.Write(server.HTMLEncode(rs_u("usign1")))
	end if
	If u=2 Then
	Response.Write(server.HTMLEncode(rs_u("usign2")))
	end if
	If u=3 Then
	Response.Write(server.HTMLEncode(rs_u("usign3")))
	end if
	set rs_u=nothing
 End If 
 Response.Write("</p>")
    %>
</td>
                  </tr>
                </table>
                <hr width="100%" size="1">
 <%
  rs.movenext  
  loop  
 end if  
%>
              </center>
              <br>
              <br> <br>
              <%  
rscust.Close  
rs.Close  
set rscust=nothing  
set rs=nothing  
conn.close%> </td>
          </tr>
        </table></td>
    </tr>
  </table>
  
</div>
</body>
</html>
⌨️ 快捷键说明

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