说明：支持中文的无组件文件上传ASP函数，由于ASP不支持二进制写入文件，所以存成文件时必须使用组件，本函数只提供截取上传文件的数据，可以写入到数据库。
Function GetUpload(FormData)
Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
“分隔标志串(+CRLF)
DivStr = LeftB(FormDa ...
用两种不同的方法来求实现数字字符串的最大，最小和平均值
dblHighestSoFar or IsNull(dblHighestSoFar) Then
dblHighestSoFar = CDbl(someNumbers(I))
End If
End If
Next
Max = dblHighestSoFar
End Function
Function Avg(someNumbers)
dblHighestSoFar = Null
For I = LBound(so ...
[code]
function IsValidEmail(email)
dim names, name, i, c
“Check for valid syntax in an email address.
IsValidEmail = true
names = Split(email, "@")
if UBound(names) 1 then
IsValidEmail = false
exit function
end if
for each name in names
if ...
[code]
= 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24
If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60
If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60
If intYears 0 Then
If intYears = 1 Then AppendStr ...
