admin_wen.asp

在线发布系统 本系统有两大功能模块：用户模块和后台管理模块。用户模块模块主要实现的主要功能有：文章浏览功能、用户注册登陆能、文章发布功能、用户管理修改文章功能、文章搜索功能。后台管理模块模块主要实现

<!--#include file="conn.asp"-->
<!--#include file="inc.asp"-->
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="18%" align="center" valign="top"><p class="style6"><br>
                  <a href="admin_wen.asp?nsort=&#20154;&#29983;&#20043;&#26053;">『人生之旅』 </a> </p>
                <p class="style6"> <a href="admin_wen.asp?nsort=&#35799;&#27468;&#23478;&#22253;">『诗歌家园』</a></p>
                <p class="style6"> <a href="admin_wen.asp?nsort=&#24773;&#24863;&#19990;&#30028;">『情感世界』</a></p>
                <p class="style6"> <a href="admin_wen.asp?nsort=&#24189;&#40664;&#31505;&#35805;">『幽默笑话』</a></p>
                <p class="style6"> <a href="admin_wen.asp?nsort=&#22855;&#38395;&#36726;&#20107;">『奇闻轶事』</a></p>
                <p class="style6"> <a href="admin_wen.asp?nsort=&#32593;&#28023;&#25342;&#36125;">『网海拾贝』</a><br>
                </p></td>
              <td width="82%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="100%"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td colspan="2" align="center"></td>
                    
                    </tr>
                    <tr>
                      <td width="25%" align="center">
                       <%
					   if request.QueryString("nsort")="" then
					   sql="select * from wen"
					   else
					   sql="select * from wen where wen_nsort='"&request.QueryString("nsort")&"'"
					   end if
					   set rs=red(sql)
					   rs.pagesize=10
	if trim(request.querystring("page"))="" then
					current_page=1
					else
					Current_Page= CLng(request.querystring("Page")) 
					end if
					rs.absolutepage=current_page
					i=0
					%>
					  
      共<%=rs.recordcount%> 篇文章|</td>
                      <td width="75%"> 第 <%=current_page%>页 |
                          <%
			if current_page=1 then
			response.write "首页 | 上一页"
			else
			response.write"<a href='admin_wen.asp?page=1'>首页 |</a>"
			response.write"<a href='admin_wen.asp?page="&cstr(current_page-1)&"'> 上一页</a>"
			end if
			if current_page=rs.pagecount then
			response.write " | 下一页 | 尾页"
			else
			response.write"<a href='admin_wen.asp?page="&cstr(current_page+1)&"'>| 下一页</a>"
			response.write"<a href='admin_wen.asp?page="&cstr(rs.pagecount)&"'> | 尾页 </a>"
			end if
			%></td>
                    </tr>
                    <tr>
                      <td colspan="2"><table width="100%"  border="1" cellpadding="5" cellspacing="0" borderColor=#0099FF style="BORDER-COLLAPSE: collapse" >
                          <%do while not rs.eof and i<rs.pagesize
	%>
                          <tr onmouseover="this.style.backgroundColor='#F0F1FB'" 
        onmouseout="this.style.backgroundColor='#FFFFFF'">
                            <td class="tdx">
								<a href="admin_editwen.asp?id=<%=rs.fields("wen_id")%>" >编辑</a>&nbsp;<a href="inc_gwen.asp?id=<%=rs.fields("wen_id")%>">删除</a>&nbsp;<%=rs("wen_title")%><%sql="select wen_user from wen where wen_id="&rs("wen_id")
								set objrsrs=red(sql)%>
&nbsp;发布人:<%=objrsrs("wen_user")%> </td><%endred(objrsrs)%>
                          </tr>
                          <%rs.movenext
			  i=i+1
			  loop
			  endred(rs)
			  %>
                      </table></td>
                    </tr>
                  </table></td>
                </tr>
              </table></td>
            </tr>
</table>