图5-13会员管理中心，修改基本资料、查看管理订单、修改密码、管理社圈
图5-14个人主页界面设计
会员与会员之间实现“加为好友”“互相留言”，查看会员发布的主题，加入的社圈等。
实质会员主页是调用所以与会员有关的数据表，并查找显示出来。
<% Set Rs_user=Server.CreateObject("ADODB.RecordSet")
Rs_user.Open "Select User_photo From [Group_user] Where User_loginname='"&Rs("user_friend_name")&"'",conn,1,1 %>
<img src="<%IF Not Rs.EOf Then Response.write Rs_user("User_photo") End IF%>" width="53" height="52" border="0" /></a>
代码解析：查找出该会员的好友，会员名='"&Rs("user_friend_name")&"，并显示头像。
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select Top 20 Topic_id,Topic_group_id,Topic_title,Topic_time From Group_topic Where Topic_username='"&User_name&"' order by Topic_time desc",conn,1,1
代码解析：查找出Group_topic数据表最新的20个主题，该会员所发布的主题并显示出来。
本系统开发的理念与出发点是：无论商家还是普通的会员，都有一种家的感觉，也就是说，拥有灵活的空间，会员拥有自己的一片天地，每个会员都能建立自己的社圈，在社圈中交友、组织活动等等。
5.5.3会员创建社圈
图5-15社圈创建界面设计
图5-16会员个人社圈界面设计
社圈的概念是每个会员都能够拥有的一个子网站，它是基于论坛形式的圈子空间，能够加入成员，发起讨论话题、发布社圈照片、发起社圈活动，充分提升会员主人翁意识和互动性。从技术上来看，我们并不需要为每个社圈都建立数据表，只是在一个大社圈数据表划分若干个虚拟的小社圈，众多的小社圈再结合具有实体店铺的商家黄页就组成了我们所倡议的网络生活社圈。
社圈实质是利用三个最基本的表Group社圈资料表、 Group_topic社圈话题表和 Group_reply话题回复表组成的，三个表环环紧扣，Group_topic表中的Topic_group_id列对应Group表中的group_id列，Group_reply表中的Reply_topic_id列对应Group_topic表中的topic_id列。
社圈模块的实现关键在于调用：
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open
"Select Group_name,Group_Url,Group_style,Group_class,Group_pic,Group_content,Group_label, Group_loginname,Group_check, Group_peoplecount,Group_topiccount,Group_datetime From [Group] Where Group_id='"&id&"'",conn,1,1
代码解析：会员社圈主页中申明调用Group表中Group_id等于请求查看的'"&id&"'的数据，也就是读取该社圈的名称、创建人、社圈类别、主题数等资料，也就是说在会员个人社圈中，只调用数据库中属于该会员的数据，这样就把小社圈划分出来了。
读取社圈的主题：
<% Dim sql,n
sql = "Select Top 16 Topic_id,Topic_title,Topic_title_color,Topic_username,Topic_click,Topic_isbest,Topic_top,Topic_updatetime from Group_topic Where Topic_group_id='"&id&"' order by Topic_top desc,Topic_updatetime desc"
Set Rs = Server.CreateObject("ADODB.Recordset") %>
代码解析：查找出Group_topic表中该社圈编号Topic_group_id等于页面请求'"&id&"'编号的最新的16个主题
显示该社圈发布的活动
<% Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select Top 7 id,Active_group_id,Active_name From Group_Active Where Active_group_id='"&id&"' order by Active_time desc",conn,1,1
While Not Rs.Eof %>
<a href="HuoDong_See.asp?a=<%=Rs("id")%>"><%if len(Rs("Active_name"))>16 then response.Write left(Rs("Active_name"),16) else response.Write Rs("Active_name") end if%></a> %>
代码解析：查找出Group_Active表中该社圈编号Active_group_id等于页面请求'"&id&"'编号的最新的7个活动。
目前的设计进度，社圈的部分功能还没完全实现，如会员修改社圈的资料、管理社圈内话题、管理成员等，这些方面的实现是必要的，我将会继续完成后续的开发。
5.6商家黄页模块设计
5.6.1基本资料展示
图5-17 商品列表展示、动态地图、点评留言多功能一体的商家黄页设计
商家黄页设计的出发点是打造小商家都能拥有独立管理的平台，这个管理平台得到推广使用就必须拥有商家所需求的功能，且后台简单易用。
商家黄页主页的调用，类似于会员主页，从商家留言数据表、商家资料数据表、商家产品数据表调出与商家编号相关的数据，并在主页显示出来。
<% Set rs=Server.Createobject("Adodb.Recordset") rs.open
"Select top 1 Product_image,Product_name,Product_price,Product_cozaa_price, Product_sell_price,Product_content,Product_count,Product_date,Product_Bq_id from Bq_Product where Product_id="&Product_id,conn,1,1
If rs.RecordCount=0 Then
Response.Write "<script>alert('没有找到该商品！');window.history.back();</script>"
Response.End()
End If %>
代码解析：商家主页中调用Bq_Product商品数据表，搜索出Product_id="&Product_id 的数据，即把商品数据表中该商家的数据显示出来。
5.6.2动态地图标注与展示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>