• λ我爱Aspx >> Asp.Net >> 用文本+ASP打造新闻发布系统

    • 用文本+ASP打造新闻发布系统

  • :aspxer  Դ:internet  :2007-5-15 20:47:10  ؼ:asp

  • FieldFileCTSize = InStrB(FieldFileCTStart,FormData,str2bin(VbCrLf & VbCrLf)) - FieldFileCTStart

    FormFileCT = bin2str(MidB(FormData,FieldFileCTStart,FieldFileCTSize))

    Else

    FormFileCT = ""

    End If

    '数据起始位置：2个CRLF开始

    DataStart = InStrB(PosOpenBoundary,FormData,str2bin(VbCrLf & VbCrLf)) + 4

    If FormFileName 〈〉 "" Then

    '数据长度，减1是因为数据文件的存取字节数问题(可能是AppendChunk方法的问题)：

    '由于字节数为奇数的图象存到数据库时会去掉最后一个字符导致图象不能正确显示,

    '字节数为偶数的数据文件就不会出现这个问题，因此必须保持字节数为偶数。

    DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 1

    FormFieldData = MidB(FormData,DataStart,DataSize)

    Else

    '数据长度，减2是因为分隔标志串前有一个CRLF

    DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 2

    FormFieldData = bin2str(MidB(FormData,DataStart,DataSize))

    End If

    '建立一个Dictionary集存储Form中各个Field的相关数据

    Set Field = CreateUploadField()

    Field.Name = FormFieldName

    Field.FilePath = FormFileName

    Field.FileName = GetFileName(FormFileName)

    Field.ContentType = FormFileCT

    Field.Length = LenB(FormFieldData)

    Field.Value = FormFieldData

    Fields.Add FormFieldName, Field

    PosOpenBoundary = PosCloseBoundary

    PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)

    Wend

    Set GetUpload = Fields

    End Function

    '把二进制字符串转换成普通字符串函数

    Function bin2str(binstr)

    Ҷƪл˵?
    第一页上一页12345678下一页尾页
  • һƪ一个ASP统计制作实例
    һƪ防范ASP木马的十大基本原则