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

📄 view.asp

📁 5237 论坛.rar
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		  If rsMainUser("rSex")=0 Then
		  Sexy="M"
		  ElseIf rsMainUser("rSex")=1 Then
		  Sexy="F"
		  ElseIf rsMainUser("rSex")=2 Then
		  Sexy="U"
		  End If
		  Response.Write rsMainUser("rNickName")&" { "&Sexy&" }"
		  %>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left"> 
              <%
Set rsLevel = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tLevelManage"
rsLevel.Open Sql,ConnY,3,3
j=0
While Not rsLevel.Eof
If rsMainUser("rExp")>rsLevel("rExp") Then j=j+1
rsLevel.MoveNext
Wend
rsLevel.Close
If J=0 Then J=J+1
Sql = "Select *  From tLevelManage Where rID="&j
rsLevel.Open Sql,ConnY,3,3
Response.Write rsLevel("rLevelName")
rsLevel.Close
%>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left">发表:<%=rsMainUser("rPostNum")%>&nbsp;&nbsp;&nbsp;回复:<%=rsMainUser("rReplyNum")%></div>
          </td>
        </tr>
        <tr> 
          <td class="font" height="15"> 
            <div align="left">注册时间:<%=Left(rsMainUser("rRegTime"),10)%><br>
            </div>
          </td>
        </tr>
      </table>
    </td>
    <td width="80%" bgcolor="<%=Forum_AlternateColor1%>" valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td>发表于:<%=rsMain("rPostTime")%>,来源于:<%=rsMain("rAuthorIP")%> 
            <%
					  rsMain("rReadNum")=rsMain("rReadNum")+1
					  rsMain.Update
					  If rsMain("rLastModIfyTime")<>"" then
					  Response.Write(",由<a href=User.asp?I="&rsMain("rLastModfyUser")&" onFocus=this.blur()>"&rsMain("rLastModfyUser"))&"</a>修改于:"&rsMain("rLastModIfyTime")&","
					  End If
					  %>
            发贴心情:<img src="Images/Mood/<%=rsMain("rEmotion")%>.gif" width="15" height="15" align="absmiddle"><br>
            <font color="<%=Forum_UFontColor%>">----------------------------------------------------------------------------------------------------</font> 
          </td>
        </tr>
      </table>
      <%
	  If Session("SLevel")<1 And rsMain("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 rsMain("rIsVisible") Then
	  %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font" height="100">
        <tr> 
          <td valign="top" height="60"> 
            <% 
'判断当前帖子是否含有投票项目
If rsMain("rIsVote") Then
'如果返回值为真,建立相关投票项目记录集
Set rsVote = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tVoteManage Where rIntBbsID="&rsMain("rID")
rsVote.Open Sql,ConnY,3,3
Vote=Split(rsVote("rVoteChoice"),"|")
VoteNum=Split(rsVote("rVoteNum"),"|")
MemberName=Session("SNickName")
Response.Write "<table border=0 cellpadding=0 cellspacing=3 width=""90%"" align=center Class=font><tr>"
Response.Write "<td colSpan=2 height=24>投票标题:"&rsMain("rTitle")&"</td></tr>"
Response.Write "<form action=VotePost.asp?S="&Forum_ID&"&V="&rsVote("rVoteType")&"&I="&rsMain("rID")&" Method=POST>"
For m = 0 To Ubound(Vote)
	If Cint(rsVote("rVoteType"))=1 Then
		Vote_1=""&Vote_1&""&m+1&".  <input type=radio name=PostVote value="""&m&""" onFocus=this.blur()>"&Vote(m)&"<br>"
	Else
		Vote_1=""&Vote_1&""&m+1&".  <input type=checkbox name=PostVote_"&m&" value="""&m&""" onFocus=this.blur()>"&Vote(m)&"<br>"
	End If
	Next 
	Response.Write "<tr><td width=""70%"">"&Vote_1&"</td>"
	Vote_1=""
	For m = 0 To Ubound(VoteNum)
		VoteNum_1=""&VoteNum_1&"票数：<font color='"&Forum_PFontColor&"'>"&VoteNum(m)&"</font><br>"
	Next
	Response.Write "<td width=""30%""><span style=""LINE-HEIGHT: 173%;"">"&VoteNum_1&"</span></td></tr>"
	VoteNum_1=""
	If MemberName="" Then
	Response.Write "<tr><td colSpan=2><br>您还没有登陆,不能进行投票.</td>"
	ElseIf MemberName="游客" Then
	Response.Write "<tr><td colSpan=2><br>您是游客,不能进行投票.</td>"
	Else
	If Instr(rsVote("rVoteUser"),MemberName)>0 Then
	Response.Write "<tr><td colSpan=2><br>您已经投过票了,看结果吧.</td>"
	Else
	Response.Write "<tr><td colSpan=2><br><input type=submit name=Submit value='投票' class=button onFocus=this.blur()>　<input type=Reset name=Submit value='重填' class=button onFocus=this.blur()></td>"
	End If
	End If
	Response.Write "</form>"
	Response.Write "</tr></table>"
Set rsVote=Nothing
Response.Write "<br>"
End If
%>
            <%=UBB(rsMain("rContent"))%></td>
        </tr>
        <tr> 
          <td valign="bottom"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
              <tr> 
                <td height="30" valign="bottom" width="60">
                  <div align="center"><a href="View.asp?S=<%=Forum_ID%>&I=<%=Request("I")%>&P=<%=Request("P")%>&R=<%=rsMain("rID")%>#Bottom" onFocus="this.blur()"><font color="<%=Forum_PTimeColor%>">↓引用回复</font></a></div>
                </td>
                <td height="30" valign="bottom">
                  <div align="right"><a href="Edit.asp?S=<%=Forum_ID%>&I=<%=rsMain("rID")%>" onClick="MM_nbGroup('down','group1','ModIfy','<%=Forum_Pic_Edit2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','ModIfy','<%=Forum_Pic_Edit2%>','<%=Forum_Pic_Edit2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Edit1%>" width="11" height="11" border="0" name="ModIfy" alt="修改改帖子"></a> 
                    <a href="Fava.asp?S=<%=Forum_ID%>&I=<%=rsMain("rID")%>" onClick="MM_nbGroup('down','group1','Favour','<%=Forum_Pic_Fav2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Favour','<%=Forum_Pic_Fav2%>','<%=Forum_Pic_Fav2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Fav1%>" width="11" height="11" border="0" name="Favour" alt="将该帖子加入个人收藏夹"></a> 
                    <a href="Print.asp?I=<%=rsMain("rID")%>" onClick="MM_nbGroup('down','group1','Print','<%=Forum_Pic_Print2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Print','<%=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" alt="将该帖子转成文本打印格式"></a> 
                    <a href="#" onClick="MM_nbGroup('down','group1','Save','<%=Forum_Pic_Save2%>',1);WebBrowser.ExecWB(4,1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Save','<%=Forum_Pic_Save2%>','<%=Forum_Pic_Save2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Save1%>" width="11" height="11" border="0" name="Save" alt="将该帖子页面保存至本地"></a></div>
                </td>
                <td width="4">&nbsp;</td>
              </tr>
            </table>
            <font color="<%=Forum_UFontColor%>">----------------------------------------------------------------------------------------------------</font><br>
            <%=UBB(rsMainUser("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>
  </tr>
  <%
  Set rsReply = Server.CreateObject("ADODB.Recordset")
  Sql = "Select *  From tArticleManage Where rRepID="&rsMain("rID")&" Order By rPostTime"
  rsReply.Open Sql,ConnY,3,3
  If Not rsReply.Eof Then
  Dim PageSize
  Dim RowNum
  rsReply.PageSize=Forum_ReplyNum
  PageSize=rsReply.PageSize
  If Request("P")<>"" Then
  CurrentPage=Cint(Request("P"))
  Else
  CurrentPage=1
  End If
  TotalNum=rsReply.RecordCount
  If (TotalNum Mod PageSize)=0 Then
  TotalPage=TotalNum \ PageSize
  Else
  TotalPage=TotalNum \ PageSize+1
  End If
  If CurrentPage<1 Then
  CurrentPage=1
  End If
  If CurrentPage>TotalPage Then
  CurrentPage=TotalPage
  End If
  rsReply.Move(CurrentPage-1)*PageSize
  End If
  Total=rsReply.RecordCount
  j=1
  K=1
  While Not rsReply.Eof And PageSize>0
  Set rsReplyUser = Server.CreateObject("ADODB.Recordset")
  Sql = "Select *  From tUserManage Where rUserID='"&rsReply("rPoster")&"'"
  rsReplyUser.Open Sql,ConnY,3,3
  %>
  <tr> 
    <td height="20" width="20%" bgcolor="<%=Forum_AlternateColor1%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td>回　　复 <font color="<%=Forum_UFontColor%>">[<%=rsReply("rID")%>]</font></td>
        </tr>
      </table>
    </td>
    <td height="20" width="80%" bgcolor="<%=Forum_AlternateColor1%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td><%=CovHtml(rsReply("rTitle"))%></td>
          <td width="80"> 
            <div align="right">第<font color=red><%=(CurrentPage-1)*15+K%></font>楼</div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="20" width="20%" 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="4" cellpadding="0" class="font">
        <tr> 
          <td class="font" height="19"> 
            <div align="left"> 
              <% 
			  Select Case rsReplyUser("rLevel")
			  Case 0
			  Response.Write("游    客")
			  Case 1
			  Response.Write("普通用户")
			  Case 2
		      Response.Write("社区版主")
			  Case 3
			  Response.Write("社区总管")
123

⌨️ 快捷键说明

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