📄 wj.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="chkstr.inc"-->
<%
session("userName")=request.querystring("username")
username=session("userName")
page=request.querystring("page")
sql="Select * from admin Where username='"&username&"'"
set rs=conn.execute(sql)
%>
<html>
<head>
<LINK
href="images/css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=fly_user%>--->><%=username%>的个人文集</title>
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
-->
</style>
<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<center>
<table width="760" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="bottom">
<TABLE height=159 cellSpacing=0 cellPadding=0 width=350 border=0>
<TBODY>
<TR>
<TD vAlign=bottom background=images/abu.gif> <TABLE cellSpacing=0 cellPadding=0 width="93%" align=center
border=0>
<TBODY>
<TR>
<TD> </TD></TR>
<TR>
<TD> </TD></TR>
<TR>
<TD class="a" >
<DIV
align=right><%=rs("other")%> </DIV></TD></TR>
<TR>
<TD> </TD></TR></TBODY></TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="195" align="right"><img src="images/wenji_05.gif" width="195" height="113"><img src="images/wenji_09.gif"><img src="images/wenji_12.gif" width="102" height="107"></td>
</tr>
</table>
<table width="760" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><TABLE cellSpacing=2 cellPadding=2 width="75%" align=center
border=0 class="f">
<TBODY>
<TR>
<TD><FONT
color=#666666><%=rs("content")%></FONT></TD></TR></TBODY></TABLE></td>
<td width="102">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class="f" >
<TBODY>
<TR>
<TD width="12%">□</TD>
<TD width="88%"><A
href=userinfo.asp?username=<%=username%>
>作者基本资料</A></TD></TR>
<TR>
<TD width="12%">□</TD>
<TD width="88%"><a href="mailto:<%=RS("email")%>?subject=来自东安文学网的交流邮件">作者联系信箱</A></TD></TR>
<TR>
<TD width="12%" valign="top">□</TD>
<TD width="88%">本文集共有<br>
<font color=red><%=rs("amount")%></font> 篇文章</TD>
</TR>
</TBODY></TABLE></td>
</tr>
<tr>
<td align="center" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width=564 align=center border=0>
<TBODY>
<TR align=middle>
<TD vAlign=top width="100%" colSpan=2 height=10>
<%set rst=server.createobject("adodb.recordset")
sql ="select * from article where zznews='"&session("userName")&"' and typename like '小说' order by dateandtime Desc"
rst.open sql,conn,1,1
if not rst.eof then
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 class="f" >
<TBODY>
<TR>
<TD bgColor=#f3f3f3 colSpan=4><font color="#FF0000"><font color="#CC0000">■小说</font></font></TD>
</TR>
<%do while not rst.eof %>
<TR>
<TD width="8%"> </TD>
<TD vAlign=top width="40%">
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%rst.movenext
if not rst.eof then%>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%else%>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
</TD>
<%end if%>
</TR>
<% rst.movenext
loop
%>
</TBODY>
</TABLE>
<%end if %>
<%set rst=server.createobject("adodb.recordset")
sql ="select * from article where zznews='"&session("userName")&"' and typename like '诗歌' order by dateandtime Desc"
rst.open sql,conn,1,1
if not rst.eof then
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 class="f" >
<TBODY>
<TR>
<TD bgColor=#f3f3f3 colSpan=4><font color="#FF0000"><font color="#CC0000">■诗歌</font></font></TD>
</TR>
<%do while not rst.eof %>
<TR>
<TD width="8%"> </TD>
<TD vAlign=top width="40%">
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%rst.movenext
if not rst.eof then %>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%else%>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
</TD>
<%end if%>
</TR>
<% rst.movenext
loop
%>
</TBODY>
</TABLE>
<%end if %>
<%set rst=server.createobject("adodb.recordset")
sql ="select * from article where zznews='"&session("userName")&"' and typename like '散文' order by dateandtime Desc"
rst.open sql,conn,1,1
if not rst.eof then
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 class="f" >
<TBODY>
<TR>
<TD bgColor=#f3f3f3 colSpan=4><font color="#CC0000">■散文</font></TD>
</TR>
<%do while not rst.eof %>
<TR>
<TD width="8%"> </TD>
<TD vAlign=top width="40%">
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%rst.movenext
if not rst.eof then %>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%else%>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
</TD>
<%end if%>
</TR>
<% rst.movenext
loop
%>
</TBODY>
</TABLE>
<%end if %>
<%set rst=server.createobject("adodb.recordset")
sql ="select * from article where zznews='"&session("userName")&"' and typename like '杂文' order by dateandtime Desc"
rst.open sql,conn,1,1
if not rst.eof then
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 class="f" >
<TBODY>
<TR>
<TD bgColor=#f3f3f3 colSpan=4><font color="#CC0000">■杂文</font></TD>
</TR>
<%do while not rst.eof %>
<TR>
<TD width="8%"> </TD>
<TD vAlign=top width="40%">
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%rst.movenext
if not rst.eof then %>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
<LI><a href="openarticle.asp?id=<%=rst("newsid")%>" target="_blank"><%=rst("title")%></a></LI>
</TD>
<%else%>
<TD width="8%"> </TD>
<TD vAlign=top width="40%" height=19>
</TD>
<%end if%>
</TR>
<% rst.movenext
loop
%>
</TBODY>
</TABLE>
<%end if %>
</TD></TR></TBODY></TABLE>
<br>
<TABLE cellSpacing=0 cellPadding=0 width="93%" border=0 class="f" >
<TBODY>
<TR vAlign=center align=middle>
<TD bgColor=#f3f3f3 colSpan=4>
<DIV align=center>© 作品版权所有，未经<a href="http://www.52da.com/wx" target="_blank">东安原创文学网</a>或作者<a href="mailto:<%=RS("email")%>?subject=来东安文学网的交流邮件"><%=username%></A>同意，其他媒体一律不得转载
</DIV>
</TD></TR></TBODY></TABLE>
<br>
</td>
<td valign="top" align="center" width="102" 路> <br>
<a href="grwj.asp"><img src="images/wenji_13.gif" width="57" height="68" border="0" alt="返回文集首页"></a></td>
</tr>
</table>
</center>
<!--#include file="mai.htm"-->
</body>
</html>
<%
rs.close
set rs=nothing
rst.close
set rst=nothing
conn.close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -