<!--#include file="UserManageClass.asp" -->
<!--#include file="../Inc/UbbCode.asp" -->
<%
dim htmlname,info
UserTrue=True
htmlname=SESSION("UserName")&"Weblog"
Response.contenttype="application/ms-download"
Response.AddHeader "Content-Disposition", "attachment;filename="&htmlname&".htm"
%>
<!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><%=Session("UserName")%>的日志备份</title>
<style type="text/css">
<!--
#body {
	font-size: 14px;
	line-height: 200%;
	font-weight: normal;
	color: #666666;
	background-color: #CCCCCC;
}
div,h1,p {
word-wrap: break-word;
}
.middle {
	padding: 5px;
	width: 780px;
	margin-top: 0px;
	margin-right: auto;
	margin-bottom: 5px;
	margin-left: auto;
	background-color: #FFFFFF;
}
.middle h1 {
	text-align: left;
	font-size: 14px;
	font-weight: bold;
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;
}
-->
</style>
</head>
<body id="body">
<%
set rs=conn.execute("select blog_info,Article_Title,Article_Time from Article where user_id="&Session("UserID")&" order by Article_ID desc")
do while not rs.eof
Info=rs("blog_info")
Info=UBBCode(Info)
Info=Replace(Info,"onmousewheel=","")
Info=Replace(Info,Chr(34) & "return bbimg(this)" &  Chr(34),"")
%>
<div class="middle">
	<h1>日志标题：<%=Rs("Article_Title")%> 时间：<%=Rs("Article_Time")%></h1>
	<p><%=Info%></p>
</div>
<%
	rs.movenext
loop
rs.close:Set rs=nothing
Set CblogObj=Nothing
%>
</body>
</html>
