feat: new upload file php

wlzboy

2025-08-14 b3f8789cf8bf0d934f8431b1d7b564a756576b4b

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
<% 
Class CBase64 
  Private objXmlDom 
  Private objXmlNode 
  
  ' GetObjectParam() 这个函数实现参考了开源项目PJBlog 
  Private Function GetObjectParam() 
   On Error Resume Next 
   Dim Temp 
   GetObjectParam = "Microsoft.XMLDOM" 
   Err = 0 
   Dim TmpObj 
   Set TmpObj = Server.CreateObject(GetObjectParam) 
   Temp = Err.Number 
   If Temp = 1 Or Temp = -2147221005 Then 
       GetObjectParam = "Msxml2.DOMDocument.5.0" 
    End If 
    Err.Clear 
    Set TmpObj = Nothing 
   Err = 0 
  End Function 
  
  Private Sub Class_Initialize() 
      Set objXmlDom = Server.CreateObject(GetObjectParam()) 
  End Sub 
  
  Private Sub Class_Terminate() 
      Set objXmlDom = Nothing 
  End Sub 
  
  Public Function encode(AnsiCode) 
    encode = "" 
    Set objXmlNode = objXmlDom.createElement("tmp") 
    objXmlNode.datatype = "bin.base64" 
    objXmlNode.nodeTypedvalue = AnsiCode 
    encode = objXmlNode.Text 
    Set objXmlNode = Nothing 
  End Function 
  
  Public Function decode(base64Code) 
    On Error Resume Next 
    decode = "" 
    Set objXmlNode = objXmlDom.createElement("tmp") 
    objXmlNode.datatype = "bin.base64" 
    objXmlNode.Text = base64Code 
    decode = objXmlNode.nodeTypedvalue 
    Set objXmlNode = Nothing 
    If Err Then 
        Err.Clear 
    End If 
  End Function 
  
  ' 以下函数编码字符串 
  Public Function encodeText(ByVal str) 
    On Error Resume Next 
    Dim ado, r: r = "" 
    If str <> "" Then 
    Set ado = Server.CreateObject("ADODB.Stream") 
        With ado 
            .Charset = "gb2312" 
            .Type = 2 
            If .State = 0 Then .Open 
            .WriteText str 
            .Position = 0 
            .Type = 1 
            r = encode(.Read(-1)) 
            .Close 
        End With 
    Set ado = Nothing 
    End If 
    If Err Then Err.Clear: r = "" 
    encodeText = r 
  End Function 
  
  ' 以下函数解码字符串 
  Public Function decodeText(ByVal str) 
    On Error Resume Next 
    Dim ado, r: r = "" 
    If str <> "" Then 
    Set ado = Server.CreateObject("ADODB.Stream") 
        With ado 
            .Charset = "gb2312" 
            .Type = 1 
            If .State = 0 Then .Open 
            .Write (decode(str)) 
            .Position = 0 
            .Type = 2 
            r = .ReadText(-1) 
            .Close 
        End With 
    Set ado = Nothing 
    End If 
    If Err Then Err.Clear: r = "" 
    decodeText = r 
  End Function 
End Class 
%>