会员中心 ——会员后台文章发布的时候，自定义时间类型也调用控件：

修改/KS_Cls/Kesion.MemberCls.asp

第154行左右加入红色部分代码：：

If F_Value=O_Value Then
         KS_D_F=KS_D_F & "<option value=""" &O_Value& """ selected>" & O_Text & "</option>"
        Else
         KS_D_F=KS_D_F & "<option value=""" & O_Value& """>" &O_Text & "</option>"
        End If
         End If
        Next
       KS_D_F=KS_D_F & "</select>"

[replyview]

'用户中心时间字段调用js控件
       Case 5
        KS_D_F=KS_D_F & "　 <input onClick=""WdatePicker()""  type=""text"" class=""textbox"" style=""width:" & F_Arr(7,i) & """ name=""" & F_Arr(0,i) & """ value=""" & F_Value & """>"[/replyview]

      Case 6
      O_Arr=Split(F_Arr(5,I),vbcrlf): O_Len=Ubound(O_Arr)
      For K=0 To O_Len

然后再在449行下面加入js引用：

<script src="../ks_inc/common.js"></script>

<script type="text/javascript" src="/JS/date/WdatePicker.js"></script>

----------------------------

会员中心 ——修改基本信息——修改的出生日期调用日历控件：

/User/User_EditInfo.asp

第174行

请填写正确的出生日期，格式：0000-00-00</td>
                            <td width="72%">&nbsp;&nbsp;
                                <input onClick="WdatePicker()"  name="Birthday" class="textbox" type="text" id="Birthday" value="<%=KSUser.Birthday%>" size="30" maxlength="50" />
                                <span style="color: red">*</span></td>

第270行左右：

If Trim(RSU(SQL(2,K)))=O_Value Then
          InputStr=InputStr & "<option value=""" & O_Value& """ selected>" & O_Text & "</option>"
          Else
          InputStr=InputStr & "<option value=""" & O_Value& """>" & O_Text & "</option>"
          End If
          Next
         InputStr=InputStr & "</select>"

[replyview]

        Case 5
     InputStr="<input type=""text"" onClick=""WdatePicker()"" class=""Wdate""  style=""width:" & SQL(4,K) & """ name=""" & lcase(SQL(2,K)) & """ value=""" & RSU(SQL(2,K)) & """>"

[/replyview]

        Case 6
          O_Arr=Split(SQL(6,K),vbcrlf): O_Len=Ubound(O_Arr)
          If O_Len>1 And Len(SQL(6,K))>50 Then BrStr="<br>" Else BrStr=""

加入红色那行代码即可！

----------------------------------------------------