<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="function.asp"-->
<%
username1=checkstr(trim(Request("user")))

PageShowSize = 10            '每页显示多少个页
MyPageSize   = 10           '每页显示多少条
	
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
	MyPage=1
Else
	MyPage=Int(Abs(Request("page")))
End if

if username1="" then
	Response.Write "<script>alert('未指定参数');history.back()</script>"
	Response.End
end if

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_wygkcn_Type_Table &" order by E_typeorder"
rs.Open rs.Source,conn,1,1

dim ArrayE_typeid(10000),ArrayE_typename(10000),Arraytypecontent(10000)
typeCount=rs.RecordCount
for i=1 to typeCount
	ArrayE_typeid(i)=rs("E_typeid")
	ArrayE_typename(i)=rs("E_typename")
	Arraytypecontent(i)=rs("typecontent")
	rs.MoveNext
next
rs.Close
set rs=nothing
%>
<%
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * from "& db_User_Table &" where "& db_User_Name &"='"&username1&"'"
rs2.Open rs2.Source,ConnUser,1,1
if not rs2.eof then
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=username1%>的博客日志__<%=eChSys_Com%></title>
<link href="CSS/Wygkcn_Home.css" rel=stylesheet type=text/css>
<LINK href="CSS/Wygkcn_News.css" rel="stylesheet" type=text/css>
</head>
<BODY ONLOAD="newCalendar()" OnUnload="window.returnValue = document.all.ret.value;" topmargin="0"> 
<!--内容部分开始-->
<div id="EC_Content">
<!--#include file="Top.asp"-->
<!--中间内容部分开始-->
<div id=zl_center>
<!--左边部分开始-->
<div class="zl_left float_left">
<div class="new_art lianmu_bg">
<H3>博客主人</H3>
<DIV class=new_art_list>
<ul class=list>


	<%if rs2(db_User_Face)<>"" then%>
		<%if UserTableType = "EChuang" then%>
			<%if rs2(db_User_Face)<>"images/nopic.gif" then %>
				<img src="<%=rs2(db_User_Face)%>" border="0" width="120">
			<%else%>
				<%if rs2(db_User_sex)="保密" then %>
				<img src="images/nopic.gif" border="0" >
				<%else%> 
					<%if  rs2(db_User_sex)="先生" then %>
				   <img src="images/Image9.gif" border="0" >
				    <%else%>
					<%if  rs2(db_User_sex)="女士" then %>
				   <img src="images/Image18.gif" border="0" >
					<%end if%>
				    <%end if%>
			    <%end if%>
		    <%end if%>
        <%else%>
		<%if UserTableType="Dvbbs" then%>
			<img src="<%=BbsPath%><%=rs2(db_User_Face)%>" border="0" width="<%=rs2(db_User_FaceWidth)%>" height="<%=rs2(db_User_FaceHeight)%>"> 
			<%''显示用户头像，加'bbs/'前缀路径,使图文系统直接显示定向到论坛头像%><br>
			<a href="<%=BbsPath%>dispuser.asp?name=<%=username1%>" target="_blank"><font color=blue>论坛中的个人资料</font></a><br><br>
		<%end if%>
	  <%end if%>
  <%else%>
	<% if rs2(db_User_sex)="保密" then %>
				<img src="images/nopic.gif" border="0" >
	<%else%> 
		<%if  rs2(db_User_sex)="先生" then %>
				<img src="images/Image9.gif" border="0" >
		<%else%>
			<%if  rs2(db_User_sex)="女士" then %>
				<img src="images/Image18.gif" border="0" >
			<%else%> 
			<%end if%>
		<%end if%>
	<%end if%> 
  <%end if%>			

<li>·昵称:<%=username1%></li>
<li>·真实姓名:<%=rs2("fullname")%></li>
<%if db_Birthday_Select = "EChuang" then%>
<li>·单位:<%=rs2("E_DepName")%> </li>
<li>·部门:<%=rs2("E_DepType")%></li>
<li>·生日:<%=rs2(db_User_Birthyear)%>-<%=rs2(db_User_Birthmonth)%>-<%=rs2(db_User_Birthday)%></li>
<%else%>
	<%if db_Birthday_Select = "Text" then%>
<li>·生日:<%=year(rs2(db_User_birthday))%>-<%=month(rs2(db_User_birthday))%>-<%=day(rs2(db_User_birthday))%></li>
	<%end if%>
<%end if%>
<%if db_Sex_Select = "EChuang" then%>
<li>·性别:<%=rs2(db_User_sex)%></li>
<%else%>
	<%if db_Sex_Select = "Number" then%>
<li>·性别:<%if rs2(db_User_Sex)="0" then%>女<%else%>男<%end if%></li>
	<%end if%>
<%end if%>
<li>·EMAIL:<A HREF="mailto:<%=rs2(db_User_Email)%>"><%=rs2(db_User_Email)%></A></li>
<li>·注册时间:<%=year(rs2(db_User_RegDate))%>-<%=month(rs2(db_User_RegDate))%>-<%=day(rs2(db_User_RegDate))%></li>

</ul>
</div>
</div>
<div class="new_art lianmu_bg">
<H3>博客日历</H3>
<DIV class=new_art_list>
<!--日历开始-->
<STYLE TYPE="text/css"> 
.today {font-weight:bold;BACKGROUND: #6699cc} 
.satday{color:green} 
.sunday{color:red} 
.days {font-weight:bold} 
</STYLE>
<script language="JavaScript"> 
//中文月份,如果想显示英文月份，修改下面的注释 
/*var months = new Array("January?, "February?, "March", 
"April", "May", "June", "July", "August", "September", 
"October", "November", "December");*/ 
var months = new Array("一月", "二月", "三月", 
"四月", "五月", "六月", "七月", "八月", "九月", 
"十月", "十一月", "十二月"); 
var daysInMonth = new Array(31, 28, 31, 30, 31, 30, 31, 31, 
30, 31, 30, 31); 
//中文周 如果想显示 英文的，修改下面的注释 
/*var days = new Array("Sunday", "Monday", "Tuesday", 
"Wednesday", "Thursday", "Friday", "Saturday");*/ 
var days = new Array("日","一", "二", "三", 
"四", "五", "六"); 
function getDays(month, year) { 
//下面的这段代码是判断当前是否是闰年的 
if (1 == month) 
return ((0 == year % 4) && (0 != (year % 100))) || 
(0 == year % 400) ? 29 : 28; 
else 
return daysInMonth[month]; 
} 

function getToday() { 
//得到今天的年,月,日 
this.now = new Date(); 
this.year = this.now.getFullYear(); 
this.month = this.now.getMonth(); 
this.day = this.now.getDate(); 
} 

today = new getToday(); 

function newCalendar() { 

today = new getToday(); 
var parseYear = parseInt(document.all.year 
[document.all.year.selectedIndex].text); 
var newCal = new Date(parseYear, 
document.all.month.selectedIndex, 1); 
var day = -1; 
var startDay = newCal.getDay(); 
var daily = 0; 
if ((today.year == newCal.getFullYear()) &&(today.month == newCal.getMonth())) 
day = today.day; 
var tableCal = document.all.calendar.tBodies.dayList; 
var intDaysInMonth =getDays(newCal.getMonth(), newCal.getFullYear()); 
for (var intWeek = 0; intWeek < tableCal.rows.length;intWeek++) 
for (var intDay = 0;intDay < tableCal.rows[intWeek].cells.length;intDay++) 
{ 
var cell = tableCal.rows[intWeek].cells[intDay]; 
if ((intDay == startDay) && (0 == daily)) 
daily = 1; 
if(day==daily) 
//今天，调用今天的Class 
cell.className = "today"; 
else if(intDay==6) 
//周六 
cell.className = "sunday"; 
else if (intDay==0) 
//周日 
cell.className ="satday"; 
else 
//平常 
cell.className="normal"; 

if ((daily > 0) && (daily <= intDaysInMonth)) 
{ 
cell.innerText = daily; 
daily++; 
} 
else 
cell.innerText = ""; 
} 
} 

function getDate() { 
var sDate; 
//这段代码处理鼠标点击的情况 
if ("TD" == event.srcElement.tagName) 
if ("" != event.srcElement.innerText) 
{ 
sDate = document.all.year.value + "年" + document.all.month.value + "月" + event.srcElement.innerText + "日"; 
//alert(sDate); 
window.open ("BlogResult.asp?keyword="+document.all.year.value+"-"+document.all.month.value+"-"+event.srcElement.innerText+"&user=<%=username1%>&action=UpdateTime") 
} 
} 
			</script>
<input type="hidden" name="ret">
<table width="100%" border="0" cellpadding="0" cellspacing="0" id="calendar">
<thead>
	<tr>
		<TD COLSPAN=7 ALIGN=CENTER>
<SELECT ID="month" ONCHANGE="newCalendar()"> 
	<SCRIPT LANGUAGE="JavaScript"> 
	for (var intLoop = 0; intLoop < months.length; 
	intLoop++) 
	document.write("<OPTION VALUE= " + (intLoop + 1) + " " + 
	(today.month == intLoop ? 
	"Selected" : "") + ">" + 
	months[intLoop]); 
	</SCRIPT> 
</SELECT>

<SELECT ID="year" ONCHANGE="newCalendar()"> 
	<SCRIPT LANGUAGE="JavaScript"> 
	for (var intLoop = today.year-50; intLoop < (today.year + 10); 
	intLoop++) 
	document.write("<OPTION VALUE= " + intLoop + " " + 
	(today.year == intLoop ? 
	"Selected" : "") + ">" + 
	intLoop); 
	</script>
</select>
<br><br></td>
	</tr>
<tr class="days" align=center> 
<script language="JavaScript"> 
document.write("<TD class=satday>" + days[0] + "</TD>"); 
for (var intLoop = 1; intLoop < days.length-1; 
intLoop++) 
document.write("<TD>" + days[intLoop] + "</TD>"); 
document.write("<TD class=sunday>" + days[intLoop] + "</TD>"); 
</script>
				</tr>
			  </thead>
				<tbody border=1 cellspacing="0" cellpadding="0" id="dayList" align=CENTER onClick="getDate()">
<script language="JavaScript"> 
for (var intWeeks = 0; intWeeks < 6; intWeeks++) { 
document.write("<TR style='cursor:hand'>"); 
for (var intDays = 0; intDays < days.length; 
intDays++) 
document.write("<TD></TD>"); 
document.write("</TR>"); 
} 
</script>
				</tbody>
		  </table>
<!--日历结束-->
</div>
</div>
<div class="new_art lianmu_bg">
<H3>栏目分类</H3>
<DIV class=new_art_list>
<%
dim menuid
dim menuname
'dim menucontent
dim menuview
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from "& db_wygkcn_BigClass_Table &" order by E_bigclassorder"
rs11.Open rs11.Source,conn,1,1
i=1
Dim ArraymenuID(1000),ArraymenuName(1000)
while not rs11.EOF
	RecordCount=rs11.RecordCount
	menuid=rs11("E_BigClassID")
	menuname=rs11("E_BigClassName")
	'menucontent=rs11("bigclasscontent")
	menuview=rs11("E_BigClassView")
	TdString="<br><font color='#000000'>·</font>&nbsp;<a href='blogResult.asp?keyword="& username1 &"&action=editor&E_BigClassID="&menuid&"' >"& menuName &"</a><br>" 
	Response.Write TdString
	ArraymenuID(i)=menuID
	ArraymenuName(i)=menuName
	i=i+1
	rs11.MoveNext
wend
rs11.close
set rs11=nothing
%>
</div>
</div>
<div class="new_art lianmu_bg">
<H3>博客介绍</H3>
<DIV class=new_art_list>
<ul>
<li>·blog名称:<%=CutStr(nohtml(rs2("content")),28)%></li>
<li>·日志总数:<%=rs2("number")%></li>
<li>·登陆次数:<%=rs2(db_User_LoginTimes)%></li>
<li>·建立时间:<%=year(rs2(db_User_RegDate))%>-<%=month(rs2(db_User_RegDate))%>-<%=day(rs2(db_User_RegDate))%></li>
</ul>
</div>
</div>

<div class="new_art lianmu_bg">
<H3>博客留言</H3>
<DIV class=new_art_list>
<!--#include file="ReviewIndex.asp"-->
</div>
</div>

<div class="new_art lianmu_bg">
<H3>友情博客</H3>
<DIV class=new_art_list>
<!--#include file="BlogtopUser.asp" -->
</div>
</div>


</div>
<!--左边部分结束-->

<!--右边部分开始-->
<div class="zl_right float_right">

<div id=blog_cnt>
<H6><A HREF="index.asp" >[网站首页]</A>&nbsp;&nbsp;<%=CutStr(nohtml(rs2("content")),40)%>&nbsp;&nbsp;<A HREF="Bloguser.asp?user=<%=username1%>">[博客首页]</A></H6>

<div class="list_blogcnt">
<ul>
<%
			set rs=server.CreateObject("ADODB.RecordSet")
			if session("key")="" then
				rs.Source="select * from "& db_wygkcn_Article_Table &" where editor='" & username1 & "' and Checked=1 order by EC_ArticleID DESC"
			end if
			if session("key")="super" or session("key")="typemaster" or session("key")="bigmaster" or session("key")="smallmaster" or session("key")="check" then
				rs.Source="select * from "& db_wygkcn_Article_Table &" where editor='" & username1 & "' and Checked=1 order by EC_ArticleID DESC"
			end if
			if session("key")="selfreg" then
				if session("reglevel")=3 then
					rs.Source="select * from "& db_wygkcn_Article_Table &" where editor='" & username1 & "' and Checked=1 order by EC_ArticleID DESC"
				end if
				if session("reglevel")=2 then
					rs.Source="select * from "& db_wygkcn_Article_Table &" where editor='" & username1 & "' and Checked=1 order by EC_ArticleID DESC"
				end if
				if session("reglevel")=1 then
					rs.Source="select * from "& db_wygkcn_Article_Table &" where editor='" & username1 & "' and Checked=1 order by EC_ArticleID DESC"
				end if
			end if

			rs.Open rs.Source,conn,1,1
			rs.PageSize=20
			rs.CacheSize = RS.PageSize
			for i=1 to rs.PageSize *(page-1)
				if not rs.EOF then
					rs.MoveNext
				end if
			next

			Response.Write "<li style='text-align:center'>"
			if rs.EOF then
				Response.Write "<font color=red>该会员博客还没有文章！</font>"
			else
				rs.PageSize     = MyPageSize
				MaxPages         = rs.PageCount
				rs.absolutepage = MyPage
				total            = rs.RecordCount
				Response.Write "该会员博客共有" & total & "篇文章，当前第"& myPage &"/"& MaxPages &"页，每页"& rs.PageSize &"条"
			end if
			Response.Write "</li>"

			If Not rs.eof then
				i = 0
				do until rs.Eof or i = rs.PageSize
				if rs("picname")<>"" then
					img="<font color=red>[图]</font>"
				else
					img=""
				end if

				title=htmlencode4(trim(rs("title")))
				dim E_BigClassID
				E_BigClassID=rs("E_BigClassID")
				set rs11=server.CreateObject("ADODB.RecordSet")
				rs11.Source="select * from "& db_wygkcn_BigClass_Table &" where E_BigClassID="&E_BigClassID&""

				If  E_BigClassID <>"" Then
				
				rs11.Open rs11.Source,conn,1,1
				E_typeid=rs11("E_typeid")
				E_BigClassName=rs11("E_BigClassName")
				rs11.Close
	
				fileExt=lcase(getFileExtName(rs("picname")))
				Content=htmlencode4(rs("Content"))
				content=replace(content,"[---分页---]","")
				
				End if
%>

<li>
<div class="blog_cnt">
<div class="blog_title">
<% If  E_BigClassID <>"" Then %>
[<%=E_BigClassName%>]
<% else %>
[无大类栏目]
<% End if %>
·<a href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" target=_blank title="<%=title%>"><%=CutStr(title,50)%></a>
</div>
<div class="blog_info">
<%=username1%>发表于(<%=rs("UpdateTime")%>)&nbsp;&nbsp;点击数[<font color="#ff0000"><%=rs("click")%></font>] 
</div>
<div class="blog_content">
<%=CutStr(nohtml(rs("Content")),300)%>

                          <%if rs("picname")=("") then%>
                          <%else%>
                          <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                          <p align="center"><img  src="<%=FileUploadPath & rs("picname")%>" onload='javascript:if(this.width>500) this.width=500' border=0 ></p>
                          <%end if%>
                          <%if fileext="swf" then%>
                          <p align="center">
                            <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="500"  border=0 >
                              <param name=movie value="<%=FileUploadPath & rs("picname")%>">
                              <param name=quality value=high>
                              <param name='Play' value='-1'>
                              <param name='Loop' value='0'>
                              <param name='Menu' value='-1'>
                              <embed src="<%=FileUploadPath & rs("picname")%>" width="500" border=0  pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
                            </object>
                          </p>
                        <%end if%>
                        <%end if%>
</div>
<div class="blog_other">| <a href="wygkcn_ShowArticle.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" target=_blank >阅读全文</a> | <a href="Review.asp?EC_ArticleID=<%=rs("EC_ArticleID")%>" target=_blank >回复</a> | 
</div>

</div>
</li>
<%
rs.MoveNext
i = i + 1
loop
%>
</ul>

</div>
<div class=blog_pages>
第 <%=Mypage%>/<%=Maxpages%>页，每页 <%=MyPageSize%> 条
<%
			url="Bloguser.asp?user=" & username1
			PageNextSize=int((MyPage-1)/PageShowSize)+1
			Pagetpage=int((total-1)/rs.PageSize)+1
			if PageNextSize >1 then
				PagePrev=PageShowSize*(PageNextSize-1)
				Response.write "<a href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
				Response.write "<a href='" & Url & "&page=1' title='第1页'>页首</a> "
			end if
			if MyPage-1 > 0 then
				Prev_Page = MyPage - 1
				Response.write "<a href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
			end if

			if Maxpages>=PageNextSize*PageShowSize then
				PageSizeShow = PageShowSize
			Else
				PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
			End if
			
			If PageSizeShow < 1 Then PageSizeShow = 1
				for PageCounterSize=1 to PageSizeShow
				PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
				if PageLink <> MyPage Then
					Response.write "<a href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
				else
					Response.Write "<B>["& PageLink &"]</B> "
				end if
				If PageLink = MaxPages Then Exit for
				Next

				if Mypage+1 <=Pagetpage  then
					Next_Page = MyPage + 1
					Response.write "<a href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
				end if

				if MaxPages > PageShowSize*PageNextSize then
					PageNext = PageShowSize * PageNextSize + 1
					Response.write " <A href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
					Response.write " <a href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
				End if
			end if
			rs.close					
			%>
</div>
</div>

</div>
<!--右边部分结束-->
<div class=clear_float></div><!--清除浮动属性-->

</div>
<!--中间内容部分结束-->
<!--#include file="bottom.asp"-->
</div>
<!--内容部分结束-->
</body>
</html>
<%
else
Response.Write "<script>alert('无此用户！');javascript:window.close();</script>"

Response.End
end if
rs2.close
set rs2=nothing

%>