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

📄 view.asp

📁 5237 论坛.rar
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/Set.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/Level.asp" -->
<%
I=Request("I")
Set rsArticle = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tArticleManage Where rID="&I
rsArticle.Open Sql,ConnY,3,3
If rsArticle.Eof And rsArticle.Bof Then Response.Redirect "Error.asp?Error=3"
If rsArticle("rIsNeedPay") Then
If Session("IsPaid")<>"Yes" And rsArticle("rPoster")<>Session("SUserID") Then
Response.Redirect "Board.asp?S="&Forum_ID
End If
End If
State="品味"&Forum_TypeName&"之"&Forum_Name&"版面文章"
%>
<html>
<head>
<title><%=rsArticle("rTitle")%></title>
<%
rsArticle.Close
Set rsArticle=Nothing
%>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>" onLoad="MM_preloadImages('<%=Forum_Pic_Reply2%>','Images/WriteBack_2.gif','<%=Forum_Pic_Write2%>','<%=Forum_Pic_Vote2%>','<%=Forum_Pic_Fav2%>','<%=Forum_Pic_Edit2%>','Images/Pic/Q-Recommend_f2.gif','Images/Pic/Recommend_f2.gif','<%=Forum_Pic_Print2%>','<%=Forum_Pic_Save2%>','MM_callJS','form1.Content.focus()')" onkeydown='if(event.keyCode==13 && event.ctrlKey){form1.submit();}'">
<a name=Top></a> 
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_BorderColor%>">
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td height="20"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td>&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> &gt;&gt; 
            <a href="List.asp" onFocus="this.blur()">讨论组</a> &gt;&gt; <a href="List.asp?T=<%=Forum_TypeID%>"  onfocus="this.blur()"><%=Forum_TypeName%></a> 
            &gt;&gt; <a href="Board.asp?S=<%=Forum_ID%>" onfocus="this.blur()"><%=Forum_Name%></a> 
            &gt;&gt; <font color="<%=Forum_NavFontColor%>">ID.<%=I%></font></td>
          <td width="150"></td>
          <td width="18"> 
            <div align="center"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" id=infoimage align="texttop"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</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=info bgcolor="<%=Forum_BorderColor%>">
  <tr> 
    <td valign="top" bgcolor="<%=Forum_BgColor%>"> 
      <!--#include file="Inc/Tools.asp" -->
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder>
  <tr> 
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_BorderColor%>" class="font">
  <tr bgcolor="<%=Forum_BroadColor%>"> 
    <td height="16" colspan="2"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td width="30"><img src="<%=Forum_Pic_Announce%>" width="20" height="16"></td>
          <td> 
            <!--#include file="Inc/Broadcast.asp" -->
          </td>
          <td width="260"> 
            <div align="right"><a href="Reply.asp?S=<%=Forum_ID%>&I=<%=I%>" onClick="MM_nbGroup('down','group1','WriteBack','<%=Forum_Pic_Reply2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','WriteBack','<%=Forum_Pic_Reply2%>','Images/WriteBack_2.gif',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Reply1%>" width="80" height="20" border="0" align="absmiddle" name="WriteBack"></a> 
              <a href="Write.asp?S=<%=Forum_ID%>" onClick="MM_nbGroup('down','group1','WriteArticle','<%=Forum_Pic_Write2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','WriteArticle','<%=Forum_Pic_Write2%>','<%=Forum_Pic_Write2%>',1)" onFocus="this.blur()"><img src="<%=Forum_Pic_Write1%>" width="80" height="20" border="0" align="absmiddle" name="WriteArticle"></a> 
              <a href="Vote.asp?S=<%=Forum_ID%>" onFocus="this.blur()" onClick="MM_nbGroup('down','group1','Vote','<%=Forum_Pic_Vote2%>',1)" onMouseOut="MM_nbGroup('out')" onMouseOver="MM_nbGroup('over','Vote','<%=Forum_Pic_Vote2%>','<%=Forum_Pic_Vote2%>',1)"><img src="<%=Forum_Pic_Vote1%>" width="80" height="20" border="0" align="absmiddle" name="Vote"></a></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_BgColor%>"> 
    <td height="22" colspan="2"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="1" class="font">
        <tr> 
          <td>本版版主： 
            <!--#include file="Inc/Host.asp" -->
            <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
            </object></td>
          <td width="300"> 
            <%
    Set rsMain = Server.CreateObject("ADODB.Recordset")
    Sql = "Select *  From tArticleManage Where rID="&I
    rsMain.Open Sql,ConnY,3,3
	TG=rsMain("rReplyNum")
	If (rsMain("rReplyNum") Mod Forum_ReplyNum)<> 0 Then
	TP=Int(rsMain("rReplyNum")/Forum_ReplyNum)+1
	Else
	TP=Int(rsMain("rReplyNum")/Forum_ReplyNum)
	End If
    Set rsMainUser = Server.CreateObject("ADODB.Recordset")
    Sql = "Select *  From tUserManage Where rUserID='"&rsMain("rPoster")&"'"
    rsMainUser.Open Sql,ConnY,3,3
    %>
            <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='#Bottom' onFocus='this.blur()'>跳至页尾</a>"
			Else
			Response.Write "<font color="&Forum_UFontColor&">上一贴　下一贴</font>　<a href='#Bottom' onFocus='this.blur()'>跳至页尾</a>"
			End If
			%>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="20" width="20%" bgcolor="<%=Forum_AlternateColor2%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td>主　　题 <font color="<%=Forum_UFontColor%>">[<%=rsMain("rID")%>]</font></td>
        </tr>
      </table>
    </td>
    <td height="20" width="80%" bgcolor="<%=Forum_AlternateColor2%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="2" class="font">
        <tr> 
          <td> 
            <%
		  Response.Write CovHtml(rsMain("rTitle"))
		  Response.Write "&nbsp;&nbsp;<img src='"&Forum_Pic_PageNum&"' width='12' height='14' align='absmiddle'>"
		  If Request.QueryString("P")<>"" Then
		  Page=Request.QueryString("P")
		  Else
		  Page=1
		  End If
		  BG=1
          EG=TP
          If TP>=5 Then
             If Page>=3 then
                BG=Page-2
                If Page<=(TP-2) then
                   EG=Page+2
                Else
                EG=TP
                BG=TP-4
                end If
             Else
                BG=1
                EG=5
             end If
          end If
		  
		  If BG>1 Then Response.Write " <a href='View.asp?S="&Forum_ID&"&I="&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="&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="&I&"&P="&TP&"' onFocus='this.blur()' Title='最后一页'>&gt&gt</a>"
		  %>
          </td>
          <td width="80"> 
            <div align="right">楼 底</div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr bgcolor="<%=Forum_AlternateColor1%>"> 
    <td valign="top" width="20%"> 
      <table width="100%" border="0" cellspacing="4" cellpadding="0" class="font">
        <tr> 
          <td class="font" height="19"> 
            <div align="left"> 
              <% 
			  Select Case rsMainUser("rLevel")
			  Case 0
			  Response.Write("游    客")
			  Case 1
			  Response.Write("普通用户")
			  Case 2
		      Response.Write("社区版主")
			  Case 3
			  Response.Write("社区总管")
			  Case 4
			  Response.Write("站　　长")
			  End Select
			  %>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <div align="left"> 
              <%
			If rsMainUser("rPFace")="无" Then
			Response.Write "<a href='User.asp?I="&rsMainUser("rNickName")&"' onFocus='this.blur()'><img src='"&rsMainUser("rFace")&"' border='0'></a>"
			Else
			Response.Write "<a href='User.asp?I="&rsMainUser("rNickName")&"' onFocus='this.blur()'><img src='"&rsMainUser("rPFace")&"' border='0' Width='"&rsMainUser("rWidth")&"' Height='"&rsMainUser("rHeight")&"'></a>"
			End If
			%>
            </div>
          </td>
        </tr>
        <tr> 
          <td class="font"> 
            <%
123

⌨️ 快捷键说明

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