账号通
    

账号  

密码  

7294

查看

23

回复
主题:【连载】小改动实现多用户商城,欢迎指正 [收藏主题] 转到:  
z95469 当前离线

78

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:1085 分
登录次数:68 次
注册时间:2007/8/22
最后登录:2019/2/22
z95469 发表于:2007/11/8 10:01:00   | 只看该作者 查看该作者主题 21楼 
科汛在线考试系统(NET)

呵呵呵,此处就要实现关联了。

删掉自定义部分。

<tr class="tdbg">
                               
                                      <td  width="12%" height="25" align="center"><span>选择店铺:</span></td>
                                      <td width="88%"><%  '此处若改动,需要根据数据库设计更改字段名称等,显示商铺下拉列表
         'Response.Write KSUser.KS_D_F(ChannelID,UserDefineFieldValueStr)
         dim mylistRs
         set mylistRs =  server.CreateObject("adodb.recordset")
         'response.Write("Select id,title From KS_U_dianpu Where ArticleInput='" & KSUser.UserName &"' and verific=1 ")
         mylistRs.open "Select id,title From KS_U_dianpu Where ArticleInput='" & KSUser.UserName &"' and verific=1 ",Conn,1,1
         if mylistRs.eof then
           response.Write("<script>window.alert('你还没有申请商铺,或者是商铺没有审核通过,请先申请或等待审核通过才能发布商品!');location.href='User_MyShop.asp?action=Add&ChannelID=112';</script>")
         else
           response.Write("<select name=""KS_ShopID"">")
         do while not mylistRs.eof
          if mylistRs("id") = KS_ShopID then
           response.Write("<option value="""&mylistRs("ID")&""" selected>"&mylistRs("title")&"</option>")
          else
           response.Write("<option value="""&mylistRs("ID")&""">"&mylistRs("title")&"</option>")
          end if
          mylistRs.movenext
         loop
         end if
         mylistRs.close
         set mylistRs = nothing
         response.Write("</select>")
          
      %></td>
                              </tr>

 

 

:):):)

不解释了,自己看吧。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
z95469 当前离线

78

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:1085 分
登录次数:68 次
注册时间:2007/8/22
最后登录:2019/2/22
z95469 发表于:2007/11/8 9:58:00   | 只看该作者 查看该作者主题 22楼 
科汛在线网校系统

上面修改大约在117航左右呵呵呵。

下面修改商品管理页面,实现与店铺的管理。

在原来文件266行左右开始有一段:

UserDefineFieldArr=KSUser.KS_D_F_Arr(ChannelID)
    If IsArray(UserDefineFieldArr) Then
    For I=0 To Ubound(UserDefineFieldArr,2)
      If i=0 Then
        UserDefineFieldValueStr=KS_A_RS_Obj(UserDefineFieldArr(0,I)) & "||||"
      Else
        UserDefineFieldValueStr=UserDefineFieldValueStr & KS_A_RS_Obj(UserDefineFieldArr(0,I)) & "||||"
      End If
    Next
     End If

380行左右

<%Response.Write KSUser.KS_D_F(ChannelID,UserDefineFieldValueStr)%>

作用就是调用自定义的字段及生成相应的网页控件。

不符合要求啊,没办法,改!!!

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
z95469 当前离线

78

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:1085 分
登录次数:68 次
注册时间:2007/8/22
最后登录:2019/2/22
z95469 发表于:2007/11/8 9:53:00   | 只看该作者 查看该作者主题 23楼 
做在线知识付费 选科汛云开店

在user目录下有User_MyArticle.asp.

该文件问注册用户在许可的情况下发布文章模型信息的管理代码。

为了不损害源文件,复制一下,

User_MyProduct.asp,User_MyShop.asp。两个,分别实现商品和店铺信息管理,呵呵呵。

注意还要修改,UserAjax.asp文件,实现在发布商品和申请店铺的时候指向我们自己的文件。

For K=0 To Ubound(SQL,2)
    select Case SQL(1,K)
     Case 1
     if sql(2,k) = "店铺" then%>
    <li><a href="User_MyShop.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyShop.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">申请</A></li>
   <%else
    if sql(2,k) = "商品" then%>
     <li><a href="User_MyProduct.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyProduct.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
    <%else%>
     <li><a href="User_MyArticle.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyArticle.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
    <% end if
   end if
   Case 2%>
   <li><a href="User_MyPhoto.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyPhoto.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
   <%Case 3%>
   <li><a href="User_MySoftWare.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MySoftWare.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
   <%Case 4%>
   <li><a href="User_MyFlash.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyFlash.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
   <%Case 7%>
   <li><a href="User_MyMovie.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MyMovie.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
   <%Case 8%>
   <li><a href="User_MySupply.asp?ChannelID=<%=SQL(0,K)%>" target="main"><%=SQL(2,K)%>管理</a> <a href="User_MySupply.asp?action=Add&ChannelID=<%=SQL(0,K)%>" target="main">发布</A></li>
   <%
    End Select
   Next

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
z95469 当前离线

78

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:1085 分
登录次数:68 次
注册时间:2007/8/22
最后登录:2019/2/22
z95469 发表于:2007/11/8 9:46:00   | 只看该作者 查看该作者主题 24楼 
做在线知识付费 选科汛云开店

1,好,先说思路。

以文章系统作为模板建立两个新模型:店铺和商品。根据你的需要做以下扩展字段。

下面注意了:

重要:在商品模型中添加一字段:ks_shopid,此字段用来关联店铺信息。

遇到问题,科讯系统支持的自定字段的前台展示有文本框,单选框,多选框,下拉列表,我们在发布产品的时候肯定是采用下拉列表的方式,但是我们的店铺信息不固定啊,怎么办?

改!!!

:(:(
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.10901秒 powered by KesionCMS 9.0