favorites.asp

ASP整套的建站源代码

<!-- #include file="setup.asp" -->
<%

if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if

select case Request("menu")
case "add"

if Request.ServerVariables("request_method")="POST" then
url=Request("url")
else
url=Request.ServerVariables("http_referer")
end if

conn.execute("insert into favorites(username,name,url)values('"&Request.Cookies("username")&"','"&Request("name")&"','"&url&"')")
succtitle="已经成功添加到网络收藏夹"
message="<li><a href=javascript:history.back()>返回上一页</a><li><a href=favorites.asp>返回网络收藏夹</a><li><a href=index.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=javascript:history.back()>")


case "del"

conn.execute("delete from [favorites] where username='"&Request.Cookies("username")&"' and id="&Request("id")&"")


end select

top
%>







<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title>控制面板</title>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif">　控制面板</td>
</tr>
</table>
<br>



<TABLE  align=center width="730" background=images/title_sub.gif>
  <TBODY>
  <TR>
    <Td align="center"><b><font color="#000000"><a href="usercp.asp">
    <font color="#000000">控制面板首页</font></a></TH> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="editprofile.asp">
    <font color="#000000">基本资料修改</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=contact"><font color="#000000">联系资料修改</TH></font></a></font></b><TD align="center"><b><font color="#000000">
    <a href="editprofile.asp?menu=pass"><font color="#000000">用户密码修改</TH> </font>
    </a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="message.asp">
    <font color="#000000">用户短信服务</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="friend.asp">
    <font color="#000000">编辑好友列表</TH> </font></a> </font>
    </b>
    <TD align="center"><b><font color="#000000"><a href="favorites.asp">
    <font color="#000000">用户收藏管理</TH></font></a></font></b></TR></TBODY></TABLE>
<HR width="730" SIZE=1>

<table style="WIDTH: 730" cellSpacing=0 cellPadding=3 align=center border=1 borderColor=a4b6d7>
  <tr>
    <td vAlign="top" colSpan="3" width="691"  background=images/title_sub.gif align="center">
    <font color="#000000"><b>&gt;&gt; 您的收藏夹 &lt;&lt;</b></font></td>
  </tr>
  <tr>
    <td width="471" align="center"><b>标 题</b></td>
    <td width="144" align="center"><b>时间</b></td>
    <td width="63" align="center"><b>操作</b></td>
  </tr>
  <%
  

  
sql="select * from favorites where username='"&Request.Cookies("username")&"' order by id Desc"
rs.Open sql,Conn


pagesetup=10 '设定每页的显示数量
count=conn.execute("Select count(id)from favorites where username='"&Request.Cookies("username")&"'")(0)

If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1 
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
on error resume next
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup


i=0 
Do While Not RS.EOF and i<pagesetup 
i=i+1 


%>
<tr>
<td><img src=images/ie.gif> <a target=_blank href="<%=rs("url")%>"><%=rs("name")%></a></td>
<td align=center><%=rs("addtime")%>　</td>
<td align=center><a href="?menu=del&id=<%=rs("id")%>"><img src=images/del.gif border=0></a></td>
</tr>
<%          
RS.MoveNext
loop
RS.Close      
%>     
  <tr>
    <td vAlign="top" colSpan="3" width="691"  background=images/title_sub.gif align="center">
    <font color="#000000"><b>&gt;&gt; 添加新链接 &lt;&lt;</b></font></td>
  </tr>

  <tr>
    <td align="center" colspan="3">

<form method=post name=form action=favorites.asp>
<input type=hidden name=menu value=add>
<b>标 题：</b><INPUT size=20 name=name>　<b>连接地址：</b><INPUT size=40 name=url value="http://">　<input type=submit value="添 加" name="Submit">
    </td></form>
  </tr>
  
</table><center><br>Page：[
  <% 
 for i=1 to TotalPage
  If i<>PageCount then
  Response.Write "<a href=?topage="& i &">" & i & "</a> " 
  else
  Response.Write ""&i&" "
  end if
 next
 %>
 ]<br>
<%
htmlend
%>