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