问：

    请问首页调用留言的短日期[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

• 扩展阅读