如何将日期型数据转换为字符型?

[bigpig521]

向大家请教,如何将日期型数据转换为字符型?

即:比如我用 aa=now() 获取了当前时间,然后我想用这个时间转换成字符型的数据,作为另一个字段所用,同时要去掉 时间的连接符.(2006-01-01 09:21:21)------>> 20060101092121

谢谢!!!!!!!!!!

[sky0120]

'**********格式化时间
response.Write GetTimeValue(now)&"<BR>"
Rem 为VBScript的isDate缺陷而编写的函数,用on error resume next也拦不住
Function isTrueDate(TStr)

Dim T
T = TStr
T = Replace(Replace(Replace(Replace(Replace(Replace(Replace(T,"年","-"),"月","-"),"日"," "),"上午"," "),"下午"," ")," "," ")," "," ")

Dim N1,N2
N1 = inStr(T,"-")
If N1>0 Then N2 = inStrRev(T,"-")
If N1 = N2 and N1 >0 Then
isTrueDate = 0
Exit Function
End If

N1 = inStr(T,":")
If N1>0 Then N2 = inStrRev(T,"-")
If N1 = N2 and N1 >0 Then
isTrueDate = 0
Exit Function
End If

If isDate(TStr) Then
isTrueDate = 1
Else
isTrueDate = 0
End If

End Function
Function GetTimeValue(DateString)

Dim Temp,TempStr
If isNull(DateString) or isTrueDate(DateString) = 0 Then
GetTimeValue = 0
Exit Function
End If
Temp = CsTr(Year(DateString))
If Len(temp)<3 Then
Temp = Left(year(DEF_Now),2) & Temp
End If
TempStr = Temp

Temp = CsTr(month(DateString))
If Len(temp)<2 Then Temp = "0" & Temp
TempStr = TempStr & Temp

Temp = CsTr(day(DateString))
If Len(Temp) < 2 Then Temp = "0" & Temp
TempStr = TempStr & Temp

Temp = csTr(Hour(DateString))
If Len(Temp) < 2 Then Temp = "0" & Temp
TempStr = TempStr & Temp

Temp = CsTr(Minute(DateString))
If Len(Temp) < 2 Then Temp = "0" & Temp
TempStr = TempStr & Temp

Temp = CsTr(Second(DateString))
If Len(Temp) < 2 Then Temp = "0" & Temp
TempStr = TempStr & Temp

GetTimeValue = (TempStr)

End Function

[什么都不能]

year(date)&month(date)&day(date)&hour(time)&minute(time)&second(time)

[xzzhouhu]

<%
aa=now()
aa=replace(aa,"-","")
aa=replace(aa,":","")
aa=replace(aa," ","")
response.write(aa)
%>

[bigpig521]

呵呵,其实我不要那么复杂的,要实用就好,因为我只是想用这个时间值作为"购物时生成的订单的号码",谢谢大家!!!!!!!!
2楼的,现用!!
其他人的,也非常感谢!!!因为只有2分,所以不好安排给分,下次我会考虑周全的!!

[bigpig521]

顺便问一下:

rs.open "select * from user ",conn,1,1

中的“conn,1,1”是什么意思呀？？有什么用处呢？？后面的两个“1”取值可以更改吗？？有什么影响呢？？