mywen.asp
来自「在线发布系统 本系统有两大功能模块：用户模块和后台管理模块。用户模块模块主要实」· ASP 代码 · 共 105 行
ASP
105 行
<!--#include file="pd_user.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="710" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<!--#include file="left.asp"-->
<td width="1%"> </td>
<td width="69%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img/bg.gif" bgcolor="#F9E49D">
<tr>
<td height="20" bgcolor="#E1B142">我的文章</td>
<td width="20"> </td>
</tr>
<tr>
<td><table width="100%" border="0" bgcolor="#FFFFFF">
<tr>
<td><table width="100%" border="0" cellspacing="1" bgcolor="#E0E0E0">
<tr bgcolor="#FFFFFF">
<td width="15%"><div align="center" class="style1">文章分类</div></td>
<td width="40%" height="20"><div align="center" class="style1">文章标题</div></td>
<td width="15%"><div align="center" class="style1">更新日期</div></td>
<td width="15%"><div align="center" class="style1">修改</div></td>
<td width="15%"><div align="center" class="style1">删除</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" bgcolor="#E0E0E0">
<%
sql="select * from wen where wen_user='"&request.Cookies("user_name")&"' order by wen_date desc"
set objrs=conn_str(sql)
for i=1 to objrs.recordcount
if i>28 then exit for
if len(objrs("wen_title"))>12 then
title=left(objrs("wen_title"),12)&"……"
else
title=objrs("wen_title")
end if
%>
<tr bgcolor="#FFFFFF">
<td width="15%" height="20" align="center"><a href="#"><%=objrs.fields("wen_nsort")%></a></td>
<td width="40%" height="20" align="center"><a href="show_wen.asp?id=<%=objrs("wen_id")%>"><%=title%></a></td>
<td width="15%" height="20" align="center"><%=objrs.fields("wen_date")%></td>
<td width="15%" align="center"><a href="g_wen.asp?id=<%=objrs("wen_id")%>&method=gai">修改</a></td>
<td width="15%" align="center"><a href="inc_gwen.asp?id=<%=objrs("wen_id")%>&method=del">删除</a></td>
</tr>
<%
objrs.movenext
next
if objrs.recordcount<28 then
for i=1 to 28-objrs.recordcount
%>
<tr bgcolor="#FFFFFF">
<td width="15%" height="20" align="center"></td>
<td width="40%" height="20" align="center"></td>
<td width="15%" height="20" align="center"></td>
<td width="15%" align="center"></td>
<td width="15%" align="center"></td>
</tr>
<%
next
end if
%>
</table></td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="20" bgcolor="#F9E49D"><div align="right">您所发布的文章总数：<%=objrs.recordcount%>篇</div></td>
<%close_str(objrs)%>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<br>
<hr align="center" width="710">
<!--#include file="foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?