Function Conv2Time(Time_in_num)
Time_in_num=CStr(Time_in_num)
Time_in_num=Replace(Time_in_num,".","'")
If Not Instr(Time_in_num,"'") Then Time_in_num=Time_in_num & "'"
If Right(Time_in_num,1)<>"'" Then Time_in_num=Time_in_num & """"
Conv2Time=Time_in_num
End Function
<%
function time(str) '转换函数
dim s,s1,s2
s=str
s1=split(s,".")
s2=s1(0)&"'"&s1(1)&""""
time=s2
end function
'调用函数
dim str
str="1.56"
response.write time(str)
%>