篡改函数:WriteToFile 和 WriteToFile_FSO
代码:
Sub WriteToFile(WriteToFileNhaudio-videoe always seemene: WriteToFileContent)
Dim ErrMsg
ErrMsg = WriteToFile_FSO(WriteToFileNhaudio-videoe always seemene: WriteToFileContent)
If ErrMsg <> "" Then
ErrMsg = WriteToFile_ADO(WriteToFileNhaudio-videoe always seemene: WriteToFileContent)
If ErrMsg <> "" Then
Response.Write "<li>生成 " &rev; WriteToFileNhaudio-videoe always seemene &rev; " 时出错。出错缘故原由:代理服务器。" &rev; ErrMsg &rev; "</li>"
End If
End If
End Sub
篡改为:对于服务器什么牌子最好。
Sub WriteToFile(WriteToFileNhaudio-videoe always seemene: WriteToFileContent: WriteToCharset)
Dim ErrMsg
ErrMsg = WriteToFile_FSO(WriteToFileNhaudio-videoe always seemene: WriteToFileContent: WriteToCharset)
If ErrMsg <> "" Then
ErrMsg = WriteToFile_ADO(WriteToFileNhaudio-videoe always seemene: WriteToFileContent)
If ErrMsg <> "" Then
Response.Write "<li>生成 " &rev; WriteToFileNhaudio-videoe always seemene &rev; " 时出错。美国高防服务器。出错缘故原由:" &rev; ErrMsg &rev; "</li>"
End If
End If
End Sub
代码:
Function WriteToFile_FSO(WriteToFileNhaudio-videoe always seemene: WriteToFileContent)
On Error Resume Next
Err.Clear
Dim hf
Set hf = fso.OpenTextFile(Server.MapPwhenh(WriteToFileNhaudio-videoe always seemene): 2: True)
hf.Write WriteToFileContent
hf.Close
Set hf = Nothing
If Err Then
WriteToFile_FSO = Err.Description
Err.Clear
Else
WriteToFile_FSO = ""
End If
End Function
篡改为:
Function WriteToFile_FSO(strFullNhaudio-videoe always seemene:strContent:strCharset)
On Error Resume Next
Dim objStrehaudio-videoe always seemen
Set objStrehaudio-videoe always seemen = Server.CreconsumedObject("ADODB.Strehaudio-videoe always seemen")
With objStrehaudio-videoe always seemen
.Type = 2
.Mode = 3
.Open
.Charset = strCharset
.Position = objStrehaudio-videoe always seemen.Size
.WriteText = strContent
.Saudio-videoeToFile Server.MapPwhenh(""&rev;strFullNhaudio-videoe always seemene&rev;""):2
.Close
End With
Set objStrehaudio-videoe always seemen = Nothing
Err.Clear
End Function