favorites.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&"')")
error2("已经添加到网络收藏夹!")

case "del"

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


end select

top
%> <title>控制面板</title><table width=97% 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=Default.asp?menu=listtitle><%=clubname%></a><br>　<img src="images/bar.gif" border="0"><img src="images/openfold.gif">　控制面板</td></tr></table><br><TABLE  align=center width="95%" class=a1><TBODY><TR><Td align="center"><b><font color="#FFFFFF"><a href="usercp.asp"><font color="#FFFFFF">控制面板首页</font></a></TH> </font></b><TD align="center"><b><font color="#FFFFFF"><a href="EditProfile.asp"><font color="#FFFFFF">基本资料修改</TH> </font></a></font></b><TD align="center"><b><font color="#FFFFFF"><a href="EditProfile.asp?menu=contact"><font color="#FFFFFF">编辑论坛选项</TH></font></a></font></b><TD align="center"><b><font color="#FFFFFF"><a href="EditProfile.asp?menu=pass"><font color="#FFFFFF">用户密码修改</TH> </font></a></font></b><TD align="center"><b><font color="#FFFFFF"><a href="message.asp"><font color="#FFFFFF">用户短信服务</TH> </font></a></font></b><TD align="center"><b><font color="#FFFFFF"><a href="friend.asp"><font color="#FFFFFF">编辑好友列表</TH> </font></a></font></b><TD align="center"><b><font color="#FFFFFF"><a href="favorites.asp"><font color="#FFFFFF">用户收藏管理</TH></font></a></font></b></TR></TBODY></TABLE><HR width="95%" SIZE=1><table width="95%" border=0 align=center cellPadding=3 cellSpacing=1 class=a2><tr><td vAlign="top" colSpan="3"  class=a1 align="center"><b>&gt;&gt; 您的收藏夹 &lt;&lt;</b></td></tr><tr><td width="69%" align="center" bgcolor="#FFFFFF"><b>标 题</b></td><td width="20%" align="center" bgcolor="#FFFFFF"><b>时间</b></td><td width="11%" align="center" bgcolor="#FFFFFF"><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 bgcolor="#FFFFFF"><img src=images/ie.gif> <a target=_blank href="<%=rs("url")%>"><%=rs("name")%></a></td><td align=center bgcolor="#FFFFFF"><%=rs("addtime")%>　</td><td align=center bgcolor="#FFFFFF"><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"  class=a1 align="center"><b>&gt;&gt; 添加新链接 &lt;&lt;</b></td></tr><tr><td align="center" colspan="3" bgcolor="#FFFFFF"><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
%>