『动易』首页调用留言的短日期[2005-9-17]怎么设为[09-17]呢？--打印文章

『动易』首页调用留言的短日期[2005-9-17]怎么设为[09-17]呢？来源于瑞达科技网

作者：佚名文章来源：网络点击数更新时间：2011/1/9 文章录入：瑞达责任编辑：瑞达科技

问：

请问首页调用留言的短日期[2005-9-17]怎么设为[09-17]呢？

       'KindId    KindId=0表示调用所有类别的最新留言，KindId为不同的值对应不同类别。
       'KindName 　为0不显示留言类别,为1显示留言类别，本参数只有KindID设置为0才有效
       'num        显示数量
       'tlen         留言长度
       'orders     如果为1 则按留言时间排序其它按ID排序
       'info         留言主题后面的信息 0 不显示 1 用户名 2 短日期+长时间 3 短日期 4 时间

请问首页调用留言的短日期[2005-9-17]怎么设为[09-17]呢？

答：

在GuestBook/newguest.asp中，修改

Case 3 '短日期格式
Response.Write "document.write('　[<font color=green>" & FormatDateTime(rsGuest("GuestDatetime"), 2) & "</font>]');"

修改为

Case 3 '短日期格式
Response.Write "document.write('　[<font color=green>" & TransformDay（FormatDateTime(rsGuest("GuestDatetime"), 2)） & "</font>]');"

function TransformDay(byval strDay)
dim strTemp1,arrDay,strTemp2,i
strTemp1=cdate(strDay)
arrDay=""
TransformDay=arrDay
if strTemp1="" then exit function
strTemp2=split(strTemp1,"-")
for i=0 to ubound(strTemp2)
  if i>0 then
   if arrDay="" then
    arrDay=strTemp2(i)
   else
    arrDay=arrDay & "/" & strTemp2(i)
   end if
  end if
next
TransformDay=arrDay
end function

打印本文

关闭窗口