【连载】小改动实现多用户商城，欢迎指正

1，首先说一下科讯cms的一个小的功能限制，

在内容页面是不能调用分页类型的标签的。

即使是Ajax调用也不行。

怎么办，改。

呵呵呵，研究了近一个月了，总体来说比较好用，但是对于初学者确实是有一定的难度。

谢谢各位支持啊

plus\AjaxSql.asp:

46行左右，添加： FunctionSQL=Replace(FunctionSQL,"{$CurrInfoID}",request("infoid"）)

哦快乐。呵呵呵呵

最后，祝大家使用快乐，科讯真的很强呵呵呵呵

没做好呢而

www.kfbaihe.com

商铺页面

http://www.kfbaihe.com/Html/dianpu/hunshasheying/82518293324658.htm

看啊看那

ks_inc\page.js：

改两处：

42行：

function Page(curPage,labelid,classid,installdir,url,refreshtype,specialid)

改为：

function Page(curPage,labelid,classid,installdir,url,refreshtype,specialid,infoid)

里面添加：this.infoid=infoid;

function loadData(p)

 xhr.open("get",installdir+url+"?labelid="+escape(labelid)+"&classid="+classid+"&refreshtype="+refreshtype+"&specialid=" +specialid+"&curpage="+p,true);

改为：

xhr.open("get",installdir+url+"?labelid="+escape(labelid)+"&classid="+classid+"&refreshtype="+refreshtype+"&specialid=" +specialid+"&curpage="+p+"&infoid="+infoid,true);

继续，快要大功告成了.hahahh

前面说了，系统功能限制，内容也是不能放分页标签的啊，怎么办，最重要的哦；

3个文件：

ks_cls\KS.DIYCls.asp,ks_inc\page.js,plus\AjaxSql.asp

KS.DIYCls.asp:51行左右：Function GetPageStr(SqlLabel)

原：GetPageStr=GetPageStr & "Page(1,'" & SqlLabel & "','" & Application(KS.SiteSN & "RefreshFolderID") &"','" & KS.Setting(3) & "','plus/ajaxsql.asp','','');" & vbcrlf

改，增加当前信息字段：

GetPageStr=GetPageStr & "Page(1,'" & SqlLabel & "','" & Application(KS.SiteSN & "RefreshFolderID") &"','" & KS.Setting(3) & "','plus/ajaxsql.asp','','','"&Application(KS.SiteSN & "RefreshInfoID")&"');" & vbcrlf
   

好，下面奖更重要的，在店铺内容页面实现ajax调用产品列表，呵呵呵呵。

大虾们就不要见笑了，也希望科讯能够后续版本支持一下，呵呵呵呵

步骤：自定义标签：

此主题相关图片如下：111.gif

语句：select ID,Title,Intro,Picurl,KS_ShopID from KS_U_shangpin where KS_ShopID ={$CurrInfoID}

完成，呵呵。

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

删掉自定义部分。

<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>

不解释了，自己看吧。

上面修改大约在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)%>

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

不符合要求啊，没办法，改！！！

在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

1，好，先说思路。

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

下面注意了：

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

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

改！！！