本方案的优点：

1、可以关闭和开通
2、可以应用到任何一个模型
3、可以在自定义模型中使用
4、可以方便的调用出字段

效果如下：

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg

修改步骤

1、修改模型，给模型增加地区字段选项

   文件admin/KS.Model.asp

   A、找到约316行，如下代码：

   FieldVal    = Split("简短标题|归属栏目|完整标题|文章属性|转向链接|关 键 字|文章作者|文章来源|文章导读|文章内容|图片地址|上传图片|添加日期|文章等级|点 击 数|模板选择|自定义文件名|归属专题|收费选项|标题属性|立即发布|附件上传||||||||||||||||||||","|")

   增加一个地区选项：

   FieldVal    = Split("简短标题|归属栏目|完整标题|文章属性|转向链接|关 键 字|文章作者|文章来源|文章导读|文章内容|图片地址|上传图片|添加日期|文章等级|点 击 数|模板选择|自定义文件名|归属专题|收费选项|标题属性|立即发布|附件上传|地区||||||||||||||||||||","|")
  
   B、找到约503行，同样添加一个地区选项，修改后的代码如下：

   var str="简短标题|归属栏目|完整标题|"+itemname+"属性|转向链接|关 键 字|"+itemname+"作者|"+itemname+"来源|"+itemname+"导读|"+itemname+"内容|图片地址|上传图片|添加日期|"+itemname+"等级|点 击 数|模板选择|自定义文件名|归属专题|收费选项|标题属性|立即发布|附件上传|地区";

   C、把604到608行替换成以下代码：

       <td width=120><input type='checkbox' value='1' name='A(20)'<%if FieldBit(20)=1 then Response.Write(" checked") %>><input class="textbox" type="text" value="<%=FieldVal(20)%>" name="V20" /></td>
    <td width=120><input type='checkbox' value='1' name='A(21)'<%if FieldBit(21)=1 then Response.Write(" checked") %>><input class="textbox" type="text" value="<%=FieldVal(21)%>" name="V21" /><font color=red>U</font></td>
          <td width=120><input type='checkbox' value='1' name='A(22)'<%if FieldBit(22)=1 then Response.Write(" checked") %>><input class="textbox" type="text" value="<%=FieldVal(22)%>" name="V22" /></td>
                               <td width=120></td>
                               <td width=120></td>

2、修改数据库

   A、给文章表KS_Article增加省市字段
      Province City 类型为文本型

   B、给模型表KS_Channel中的文章系统FieldBit字段增加一个“地区”的值：如：
      立即发布|附件上传|地区||（仿此修改）
  

3、修改文章编辑，增加输入选项

   修改admin/KS.Article.asp

   A、约31行后，增加省市字段变量
      Private Province,City

   B、约159行后增加以下代码，给变量赋值
      Province       = RS("Province")
      City           = RS("City")

   C、约623行后增加以下代码，给添加文章时增加输入框
     '省市-----------------------------------------------------------------------------------------
                If F_B_Arr(22)=1 Then
   .Write "              <tr class='tdbg'>"
   .Write "                <td class='clefttitle'><div align='right'><strong>" & F_V_Arr(22) & ":</strong></div></td>"
   .Write "                <td><script src='/plus/area.asp' language='javascript'></script></td>"
                        .write "                </tr>"
                End If
    '省市----------------------------------------------------------------------------------------------------
  
   D、约815行后增加以下代码（保存文章用）
      Province    = KS.G("Province")
      City        = KS.G("City")

   E、约971行后增加以下代码（修改文章用）
      RS("Province")       = Province
      RS("City")           = City

   F、约1067行后增加以下代码 （审核文章用）
      RS("Province")       = Province
      RS("City")           = City

4、修改KS_CLS/Kesion.Label.CommonCls.asp，增加自定义字段输出
  
     大约316行左右，找到：

     case else
        echo ShCls.run(sTemp)
        If left(sTemp,3)="KS_" Then
        echo GetNodeText(Lcase(sTemp))   '输出自定义字段

    在后面加入：
       elseIf left(sTemp,3)="US_" Then'输出任意字段 ,为了区别官方的标签,我们在这里自定义了一个前缀US
      echo GetNodeText(Lcase(right(sTemp,len(sTemp)-3)))

6、修改好的文件：（未包括数据库文件）
  编码gb2312

10月26日补丁文件

*解决会员中心投稿无法显示地区选项的问题

*解决修改文章时无法获取地区默认值的问题

同时感谢网站建设专家对获取默认值的修改方案

全新文件打包下载

下载信息  [文件大小：58.54 KB 下载次数： 次]

点击下载文件:6

10月26日补丁文件

*解决会员中心投稿无法显示地区选项的问题

*解决修改文章时无法获取地区默认值的问题

同时感谢网站建设专家对获取默认值的修改方案