鱼常游而忘飞

公司网站不能访问了。

查了一下，这台服务器不知道什么时候增加了个垃圾。
工具：
http://www.114best.com/ip/114?w=
好在Godaddy有Dedicate IP。经过10分钟等待，搞定。

Share and Enjoy:

不使用GETDATE()
使用
DATEADD(hh, 8, GETUTCDATE())

Share and Enjoy:

Function BinaryToString(binData, CharSet)
Dim objStream
Dim strTmp
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
‘ init stream
Set objStream = Server.CreateObject(“ADODB.Stream”)
If CharSet<>”" Then
objStream.CharSet = CharSet
Else
Err.Raise vbObjectError + 1, “IllegalArgument”, “Charset is required”
End If
objStream.Mode = adModeReadWrite
objStream.Type = adTypeBinary
objStream.Open
‘ write bytes into stream
objStream.Write binData
objStream.Flush
‘ rewind stream and read text
objStream.Position = 0
objStream.Type = adTypeText
strTmp = objStream.ReadText
‘ close up and return
objStream.Close
BinaryToString [...]