view.asp

5237 论坛.rar

			  Case 4
			  Response.Write("站　　长")
			  End Select
			  %>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left"> 
              <%
			If rsReplyUser("rPFace")="无" Then
			Response.Write "<a href='User.asp?I="&rsReplyUser("rNickName")&"' onFocus='this.blur()'><img src='"&rsReplyUser("rFace")&"' border='0'></a>"
			Else
			Response.Write "<a href='User.asp?I="&rsReplyUser("rNickName")&"' onFocus='this.blur()'><img src='"&rsReplyUser("rPFace")&"' border='0' Width='"&rsReplyUser("rWidth")&"' Height='"&rsReplyUser("rHeight")&"'></a>"
			End If
			%>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left"> 
              <%
		    If rsReplyUser("rSex")=0 Then
		    Sexy="M"
		    ElseIf rsReplyUser("rSex")=1 Then
		    Sexy="F"
		    ElseIf rsReplyUser("rSex")=2 Then
		    Sexy="U"
		    End If
		    Response.Write rsReplyUser("rNickName")&" { "&Sexy&" }"
		    %>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <%
Set rsLevel = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tLevelManage"
rsLevel.Open Sql,ConnY,3,3
L=0
While Not rsLevel.Eof
If rsReplyUser("rExp")>rsLevel("rExp") Then L=L+1
rsLevel.MoveNext
Wend
rsLevel.Close
If L=0 Then L=L+1
Sql = "Select *  From tLevelManage Where rID="&L
rsLevel.Open Sql,ConnY,3,3
Response.Write rsLevel("rLevelName")
rsLevel.Close
%>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left">发表:<%=rsReplyUser("rPostNum")%>&nbsp;&nbsp;&nbsp;回复:<%=rsReplyUser("rReplyNum")%></div>
          </td>
        </tr>
        <tr> 
          <td class="font" height="15"> 
            <div align="left">注册时间:<%=Left(rsReplyUser("rRegTime"),10)%><br>
            </div>
          </td>
        </tr>
      </table>
    </td>
    <td width="80%" valign="top" bgcolor=<%
	If K Mod 2 Then
	Response.Write Forum_AlternateColor2
	Else
	Response.Write Forum_AlternateColor1
	End If
	%>> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td>发表于:<%=rsReply("rPostTime")%>,来源于:<%=rsReply("rAuthorIP")%> 
            <%
					  rsReply("rReadNum")=rsReply("rReadNum")+1
					  rsReply.Update
					  If rsReply("rLastModIfyTime")<>"" then
					  Response.Write(",由<a href=User.asp?I="&rsReply("rLastModfyUser")&" onFocus=this.blur()>"&rsReply("rLastModfyUser"))&"</a>修改于:"&rsReply("rLastModIfyTime")&","
					  End If
					  %>
            ,发贴心情:<img src="Images/Mood/<%=rsReply("rEmotion")%>.gif" width="15" height="15" align="absmiddle"><br>
            <font color="<%=Forum_UFontColor%>">----------------------------------------------------------------------------------------------------</font> 
          </td>
        </tr>
      </table>
      <%
	  If Session("SLevel")<1 And rsReply("rIsQuintessence") Then
	  Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='2' class='font' height='100'><tr><td> [<font color='"&Forum_PFontColor&"'>游客无权浏览该精华帖子</font>,请<a href='Login.asp' onFocus='this.blur()'>登录</a>,或者<a href='Reg.asp' onFocus='this.blur()'>注册</a>.]<br><br></td></tr></table>"
	  Else
	  If Not rsReply("rIsVisible") Then
	  %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font" height="100">
        <tr> 
          <td valign="top" height="60"> <%=UBB(rsReply("rContent"))%></td>
        </tr>
        <tr> 
          <td valign="bottom"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
              <tr> 
                <td height="24" valign="bottom" width="60">
                  <div align="center"><a href="View.asp?S=<%=Forum_ID%>&I=<%=Request("I")%>&P=<%=Request("P")%>&R=<%=rsReply("rID")%>#Bottom" onFocus="this.blur()"><font color="<%=Forum_PTimeColor%>">↓引用回复</font></a></div>
                </td>
                <td height="24" valign="bottom">
                  <div align="right"><a href="Edit.asp?S=<%=Forum_ID%>&I=<%=rsReply("rID")%>" onClick="MM_nbGroup('down','group1','ModIfy<%=j%>','<%=Forum_Pic_Edit2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','ModIfy<%=j%>','<%=Forum_Pic_Edit2%>','<%=Forum_Pic_Edit2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Edit1%>" width="11" height="11" border="0" name="ModIfy<%=j%>" alt="修改改帖子"></a> 
                    <a href="Fava.asp?S=<%=Forum_ID%>&I=<%=rsReply("rID")%>" onClick="MM_nbGroup('down','group','Favour<%=j%>','<%=Forum_Pic_Fav2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Favour<%=j%>','<%=Forum_Pic_Fav2%>','<%=Forum_Pic_Fav2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Fav1%>" width="11" height="11" border="0" name="Favour<%=j%>" alt="将该帖子加入个人收藏夹"></a> 
                    <a href="Print.asp?I=<%=rsReply("rID")%>" onClick="MM_nbGroup('down','group1','Print<%=j%>','<%=Forum_Pic_Print2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Print<%=j%>','<%=Forum_Pic_Print2%>','<%=Forum_Pic_Print2%>',1)" onFocus="this.blur()" target="_blank"><img src="<%=Forum_Pic_Print1%>" width="11" height="11" border="0" name="Print<%=j%>" alt="将该帖子转成文本打印格式"></a> 
                    <a href="#" onClick="MM_nbGroup('down','group1','Save<%=j%>','<%=Forum_Pic_Save2%>',1);WebBrowser.ExecWB(4,1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Save<%=j%>','<%=Forum_Pic_Save2%>','<%=Forum_Pic_Save2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Save1%>" width="11" height="11" border="0" name="Save<%=j%>" alt="将该帖子页面保存至本地"></a></div>
                </td>
                <td width="4">&nbsp;</td>
              </tr>
            </table>
            <font color="<%=Forum_UFontColor%>">----------------------------------------------------------------------------------------------------</font><br>
            <%=UBB(rsReplyUser("rPersonality"))%></td>
        </tr>
      </table>
      <%
	  Else
	  Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='2' class='font' height='100'><tr><td> [<font color='"&Forum_PFontColor&"'>该贴子已被管理员屏蔽</font>,如有疑问请查看本版面事件记录]<br><br></td></tr></table>"
	  End If
	  End If
	  %>
    </td>
    <%
	rsReplyUser.Close
	%>
  </tr>
  <%
  PageSize=PageSize-1
  rsReply.MoveNext
  j=j+1
  K=K+1
  Wend
  rsReply.Close
  %>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td height="22" colspan="2"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td> 
            <%
		  Response.Write "&nbsp;<img src='"&Forum_Pic_PageNum&"' width='12' height='14' align='Top'>"
		  If BG>1 Then Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&Request.QueryString("I")&"&P=1' onFocus='this.blur()' Title='第一页'>&lt&lt</a>"
             For U=BG to EG
               If U=Cint(Page) Then
                  Response.Write " <font color='"&Forum_PFontColor&"'>"&U&"</font>"
               Else
                  Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&Request.QueryString("I")&"&P="&U&"' Title='第"&U&"页' onFocus='this.blur()'>"&U&"</a>"
               End if
             Next
          If EG<TP Then Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&Request.QueryString("I")&"&P="&TP&"' onFocus='this.blur()' Title='最后一页'>&gt&gt</a>"
		  %>
          </td>
          <td width="300"> 
            <div align="right"> 
              <%
			If Not rsMain("rIsTop") Then
			Response.Write "<a href='PorN.asp?S="&Forum_ID&"&I="&Request.QueryString("I")&"&J=1&D="&rsMain("rLastReplyTime")&"' onFocus='this.blur()'>上一贴</a>　<a href='PorN.asp?S="&Forum_ID&"&I="&Request.QueryString("I")&"&J=0&D="&rsMain("rLastReplyTime")&"' onFocus='this.blur()'>下一贴</a>　<a href='#Top' onFocus='this.blur()'>跳至页首</a>"
			Else
			Response.Write "<font color='"&Forum_UFontColor&"'>上一贴　下一贴</font>　<a href='#Top' onFocus='this.blur()'>跳至页首</a>"
			End If
			%>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr><form name="form1" method="post" action="Quick.asp">
  <tr>
      
    <td height="22" bgcolor="<%=Forum_AlternateColor1%>">
        <div align="center">快速回复</div>
      </td>
    <td height="22" bgcolor="<%=Forum_AlternateColor2%>">
        <textarea name="Content" cols="100" rows="8" style="BACKGROUND-COLOR:<%=Forum_Css_Textfiled1_BackGroundColor%>; BORDER-BOTTOM: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>;BORDER-LEFT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-RIGHT: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; BORDER-TOP: 1px inset SOLID <%=Forum_Css_Textfiled1_BorderColor%>; COLOR: <%=Forum_Css_Textfiled1_FontColor%>; font-size:<%=Forum_Css_Textfiled1_FontSize%>"><%
		If Request("R")<>"" Then
		Set rsR = Server.CreateObject("ADODB.Recordset")
		Sql = "Select *  From tArticleManage Where rID="&Request("R")
		rsR.Open Sql,ConnY,3,3
		If Not rsR.Eof Then
		Response.Write "[color="&Forum_UFontColor&"]引用回复:"&rsR("rContent")&"[/color]"
		End If
		rsR.Close
		Set rsR=Nothing
		End If
		%></textarea>
    </td>
  </tr>
  <tr> 
    <td height="22" bgcolor="<%=Forum_AlternateColor1%>">
        <div align="center">操　　作</div>
      </td>
      <td height="22" bgcolor="<%=Forum_AlternateColor2%>">
        <input type="Image" src="<%=Forum_Pic_Reply2%>" name="Submit" onFocus="this.blur()" align="middle" alt="使用CTRL+ENTER快捷提交">
        <input type="hidden" name="IP" value="<%= Request.ServerVariables("REMOTE_ADDR") %>">
        <input type="hidden" name="S" value="<%=Forum_ID%>">
        <input type="hidden" name="I" value="<%=Request("I")%>">
      </td>
  </tr></form>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" id=online bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" -->
<a name=Bottom></a> 
</body>
</html>