<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<%
articleid=request("articleid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from article where articleid="&articleid&" order by articleid desc",conn,1,3 
rs("hits")=rs("hits")+1
rs.update
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>日志</title>
<style type="text/css">
BODY {
	scrollbar-face-color:#DDDDDD;
	scrollbar-highlight-color: #cccccc;
	scrollbar-shadow-color: #CCCCCC;
	scrollbar-3dlight-color: #F5F5F5;
	scrollbar-darkshadow-color: #F5F5F5;
	scrollbar-track-color: #F0F0F0;
	scrollbar-arrow-color: #FFFFFF;
	margin-left: 10px;
	margin-top: 10px;
	margin-right: 10px;
	margin-bottom: 10px;
}
</style>
<SCRIPT language=javascript>
function unselectall()
{
    if(document.form1.chkAll.checked){
	document.form1.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function ConfirmDel()
{
   if(confirm("确定要删除吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}

</SCRIPT>
<%if rs("magic")<>"" and  rs("magic")>1 then%>
<script language="javascript">
<!--
function clock(){
i=i-1
if(i>0)setTimeout("clock();",500);
else ad.style.display="none";}
var i=10
clock();
//-->
</script>
<%else%><%end if%> 
<link href="new/css.CSS" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--

.STYLE1 {
	color: #333333;
	font-weight: bold;
}
#ad {
	position:absolute;
	left:20;
	top:40;
	width:400px;
	height:300px;
	z-index:1;
}
-->
</style></head>

<body>


<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1" height="1"></td>
    <td height="1" bgcolor="#BCBCBC"></td>
    <td width="1" height="1"></td>
  </tr>
  <tr>
    <td bgcolor="#BCBCBC"></td>
    <td height="27" align="center"><table width="97%" cellpadding="0" cellspacing="0">
      <tr>
        <Td width="20" align="center"><img src=user/008.gif width="10" height="11"></td>
          <Td>
            <%
		 userid=request("userid")
		 
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&rs("classid"),conn,1,1
%><%
				
		set tUsers=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")

		
		%>
            <font color="#123579">[&nbsp;<a href=logclass.asp?userid=<%=tUsers(0)%>&classid=<%=classrs("classID")%>><font color="#123579"><%=classrs("classname")%></font></a>&nbsp;]&nbsp;</font></td>
        </tr>
    </table></td>
    <td bgcolor="#BCBCBC"></td>
  </tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
    <td height="1" background="user/li_x_02.gif"></td>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
  </tr>
  <tr>
    <td bgcolor="#BCBCBC"></td>
    <td height="27" align="center" bgcolor="#ffffff"><table width="95%" height="30" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="35" align="center" valign="middle"> <table width="100%" height="4"  border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td></td>
              </tr>
            </table>
            <% if rs("TitleFontColor")<>"" then%>
            <font color=<%=rs("TitleFontColor")%> style='FONT-SIZE: 14px'><strong><%=rs("title")%></strong> 
            
            </font> 
            <%else%>
            <font style='FONT-SIZE: 14px'><strong><%=rs("title")%></strong></font> 
            
            <%end if%>
            
            <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>
            &nbsp;<img src=user/ico_new.gif border="0"> 
            <%else%>
            <% end if%>
          </td>
        </tr>
        <tr> 
          <td height="1" background="user/li_x_02.gif"></td>
        </tr>
        <tr> 
          <td align="center" valign="bottom"><table width="100%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="f2f2f2">
              <tr> 
                <td width="33%"> &nbsp;&nbsp; 
                  <%
				
		response.write "作者："
		set tUser=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
		if tUser.bof and tUser.eof then
			response.write rs("Editor")
			
		else
			response.write "<a href='user.asp?userid=" & tUser(0) & "&mdid=indexd&htm=indexs.asp?userid=" & tUser(0) & "' target=_blank>" & rs("Editor") & "</a>"
		end if
		
		%>
                  <%
				
		
		set tUsers=Conn_User.execute("select " & db_User_usermane & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
		
		
		%>
                </td>
                <td width="33%" align="center"><font style='FONT-SIZE: 11px' color='#333333'>点击:<%=rs("hits")%></font> 
                </td>
                <td width="33%" align="right"><font color='#333333' style='FONT-SIZE: 11px'><%=year(rs("UpdateTime"))%>.<%=month(rs("UpdateTime"))%>.<%=day(rs("UpdateTime"))%>&nbsp;&nbsp;</font> 
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="98%" cellpadding="10" cellspacing="0">
        <tr> 
          <Td><p><%=rs("Content")%></p></td>
        </tr>
      </table></td>
    <td bgcolor="#BCBCBC"></td>
  </tr>
  <tr>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
    <td height="1" background="user/li_x_02.gif"></td>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
  </tr>
</table>
<%
articleid=rs("articleid")
set rsc=server.createobject("adodb.recordset")
sql="select * from [articlecomment] where articleid="&articleid
rsc.open sql,Conn,1,1

%>
<%do while not rsc.eof %>
<%
usernames=rsc("UserName")
set rsuser=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&usernames&"'"
rsuser.open sql,Conn_user,1,1

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#BCBCBC"></td>
    <td height="25" align="left" bgcolor="F0F0F0"><table width="100%" height="25"  border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="10"></td>
          <td width="13" align="left"><img src="user/bbs_s02_04.gif" width="11" height="11"></td>
        <td><table width="100%"  border="0" cellspacing="0" cellpadding="3">
          <tr>
            <td><p><a href="user.asp?userid=<%=rsuser("userid")%>&mdid=indexd&htm=indexs.asp?userid=<%=rsuser("userid")%>" target="_blank"><font style='FONT-SIZE: 11px' color='#1F3174' class="no"><%=rsc("username")%></font></a>&nbsp;&nbsp;<font style='FONT-SIZE: 11px' color='#666666'>(<%=rsc("writetime")%>)</font>&nbsp;&nbsp;<%=rsc("content")%></p></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td bgcolor="#BCBCBC"></td>
  </tr>
  <tr>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
    <td height="1" background="user/li_x_02.gif"></td>
    <td width="1" height="1" bgcolor="#BCBCBC"></td>
  </tr>
</table>
<%rsc.movenext
  loop
  %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <form name="form1" method="post" action="articleCommentsave.asp">
    <tr>
      <td bgcolor="#BCBCBC"></td>
      <td height="30" align="left" bgcolor="#FFFFFF"><table height="28"  border="0" align="left" cellpadding="0" cellspacing="0">
        <tr>
          <td width="15">&nbsp;</td>
          <td width="35" align="left">评论:</td>
          <td><%if Request.Cookies("asp163")("username") <>"" then%>
                <input name="Content" class="inputnoa" type="text" size="53">
                <%else%>
                <input name="Content2" class="inputno" type="text" size="53" value=登录后发表评论 readonly>
                <%end if%>
                <input name="userid" type="hidden" size="50" value="<%=request("userid")%>">
                <input name="articleid" type="hidden" size="50" value="<%=rs("articleid")%>">
				<input name="action" type="hidden" size="50" value="show"></td>
          <td width="58" align="center"><%if Request.Cookies("asp163")("username") <>"" then%>
                <input name="imageField" type="image" src="user/enter.gif" width="46" height="16" border="0"></td>
          <td width="15"></td>
          <%else%>
          <table width="100%" height="3"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td></td>
            </tr>
          </table>
          <img src="user/enter.gif">
          <%end if%>
        </tr>
      </table></td>
      <td bgcolor="#BCBCBC"></td>
    </tr>
  </form>
  <tr>
    <td width="1" height="1" ></td>
    <td height="1" bgcolor="#BCBCBC"></td>
    <td width="1"></td>
  </tr>
</table>
<table width="100%" height="8"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="40%" align="right">&nbsp;</td>
    <td align="right" valign="bottom">
      <%
	  
	  sql="Select Top 1 ArticleID,Title From Article Where Deleted=False and ArticleID>" & rs("ArticleID") & "and editor='"&rs("Editor")&"' order by ArticleID asc"
	  Set rsNext= Server.CreateObject("ADODB.Recordset")
	  rsNext.open sql,conn,1,1
	  if rsNext.Eof then
	  	response.write "<img src=user/nextss.gif border=0>"
	  else
	  	response.write "<a href='Article_Show.asp?ArticleID="&rsNext("ArticleID")& "&userid="&userid&"'><img src=user/nexts.gif border=0></a>"
	  end if
	  rsNext.close
	  set rsNext=nothing
	  %>
      &nbsp;<%


	  editor=rs("editor")
	  sql="Select Top 1 ArticleID,Title From Article Where Deleted=False and ArticleID<" & rs("ArticleID") & "and editor='"&rs("Editor")&"' order by ArticleID desc"
	
	  Set rsPrev= Server.CreateObject("ADODB.Recordset")
	  rsPrev.open sql,conn,1,1
	  if rsPrev.Eof then
	  	response.write "<img src=user/press.gif border=0>"
	  else
	  	response.write "<a href='Article_Show.asp?ArticleID="&rsPrev("ArticleID")& "&userid="&userid&"'><img src=user/pres.gif border=0></a>"
	  end if
	  rsPrev.close
	  set rsPrev=nothing
	  %></td>
  </tr>
</table>
<%if rs("magic")<>"" and  rs("magic")>1 then%><div id="ad" name="ad" align="center">

      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="400" height="300">
        <param name="movie" value="swf/<%=rs("magic")%>.swf">
        <param name="quality" value="high">
        <param name="wmode" value="transparent">
        <embed src="swf/<%=rs("magic")%>.swf" width="400" height="300" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
      </object>

</div><%else%><%end if%>
