showarticle.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

                              <td height="5"></td>
                            </tr>
                          </table>
                          <table class="tde" width="500" height="20" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F3F3F1">
                            <tr bgcolor="f2f2f2"> 
                              <td width="86%" height="24">&nbsp;&nbsp;<font color="#FFFFFF"><img src="Images/arrow.gif" width="11" height="14" align="absmiddle"> 
                                <font color="#666666"> 
                                <%response.write rs("Title")%>
                                </font> </font></td>
                              <td width="14%" class="title_maintxt"> <div align="center"> 
                                  <%
if rs("OnTop")=true then
	response.Write("<font color=#999999>顶</font>&nbsp;&nbsp;&nbsp;")
else
	response.write("&nbsp;&nbsp;&nbsp;")
end if
if rs("Hits")>=HitsOfHot then
	response.write("<font color=#999999>热</font>&nbsp;&nbsp;&nbsp;")
else
	response.write("&nbsp;&nbsp;&nbsp;")
end if
if rs("Elite")=true then
	response.write("<font color=#999999>荐</font>")
else
	response.write("&nbsp;&nbsp;")
end if
%>
                                </div></td>
                            </tr>
                          </table>
                          <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="5" class="tdbg_left2"></td>
                            </tr>
                          </table>
                          <%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1	
%>
                          <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="8" class="tdbg_left2"></td>
                            </tr>
                          </table>
                          <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="6" class="tdbg_left2"></td>
                            </tr>
                          </table>
                          <strong><font color="#2F99CC"size="3"><%=rs("Title")%></font></strong> </div>
                        <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="6" class="tdbg_left2"></td>
                          </tr>
                        </table>
                        <div align="center"><strong> </strong>［ 
                          <%
		dim Author,CopyFrom
		Author=rs("Author")
		CopyFrom=rs("CopyFrom")
		response.write "作者："
		if instr(Author,"|")>0 then
			response.write "<a href='mailto:" & right(Author,len(Author)-instr(Author,"|")) & "'>" & left(Author,instr(Author,"|")-1) & "</a>"
		else
			response.write Author
		end if
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;文章来源："
		if instr(CopyFrom,"|")>0 then
			response.write "<a href='" & right(CopyFrom,len(CopyFrom)-instr(CopyFrom,"|")) & "'>"& left(CopyFrom,instr(CopyFrom,"|")-1) & "</a>"
		else
			response.write CopyFrom
		end if
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;点击数：" & rs("Hits") & "&nbsp;&nbsp;&nbsp;&nbsp;责任编辑："
		set tUser=conn.execute("select UserID from [User] where UserName='" & rs("Editor") & "'")
		if tUser.bof and tUser.eof then
			response.write rs("Editor")
		else
			response.write "<a href='ShowUserInfo.asp?UserID=" & tUser(0) & "'>" & rs("Editor") & "</a>"
		end if
		%>
                          ］ </div></td>
                    </tr>
                  </table>
                  <table width="99%" border="0" align="center" cellpadding="0" cellspacing="5">
                    <tr> 
                      <td height="195" valign="top"> <%call ShowArticleContent()%> </td>
                    </tr>
                  </table>
                  <table width="500" height="50" border="0" align="center" cellpadding="0" cellspacing="5" bgcolor="#F3F3F1" class="tde">
                    <tr> 
                      <td> <li>上一篇文章： 
                          <% call ShowPrevArticle(200) %>
                        </li>
                        <li>下一篇文章： 
                          <% call ShowNextArticle(200) %>
                      </td>
                    </tr>
                  </table>
                  <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="25" class="tdbg_left2"> <div align="right">【<a href="Comment.asp?ArticleID=<%=rs("ArticleID")%>" target="_blank">发表评论</a>】【<font color="#666666"> 
                          <script language="JavaScript">
function bookmarkit(){window.external.addFavorite('http://www.qt66.com','非常视觉')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#666666">收藏此文</font></a>')
</script>
                          </font>】【<a href="printpage.asp?ArticleID=<%=rs("ArticleID")%>">打印此文</a>】【<a href="javascript:window.close();">关闭窗口</a>】</div></td>
                    </tr>
                  </table>
                  <table class="tde" width="500" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F3F3F1">
                    <tr> 
                      <td ><strong>&nbsp;<img src="Images/TEAM.gif" width="16" height="16" align="absmiddle">&nbsp;网友评论：</strong>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）</td>
                    </tr>
                  </table>
                  <table width="98%" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="6" class="tdbg_left2"></td>
                    </tr>
                  </table>
                  <table   width="500" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td valign="top" > <table class="tde" width="100%" border="0" cellspacing="5" cellpadding="0">
                          <tr> 
                            <td> <% call ShowComment(10) %> </td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td height="6" valign="top"></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table></td>
          <td></td>
        </tr>
        <tr> 
          <td height="10"></td>
          <td></td>
          <td></td>
        </tr>
      </table></td>
    <td width="5">&nbsp;</td>
  </tr>
  <tr> 
    <td height="4"></td>
    <td></td>
    <td></td>
  </tr>
</table>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>
<!--#include file="end.asp"-->