后台不能删减资料怎么办

用纯ASP代码实现图片上传到指定

<% '判断是否添加了文件 Dim ulFileName, ulResult ulSaveToPath="/upload" '保存文件路径 ulMaxFileSize = 1000000 '文件大小限制 1000,000 ulResult = DoUploadFile(ulMaxFileSize, ulFileName) Function DoUploadFile(MaxUpLoadSize, FileName) Dim Upload, File, formName, formPath, FileExt FileName = "" Set Upload = New upload_yf...全部

  <% '判断是否添加了文件 Dim ulFileName, ulResult ulSaveToPath="/upload" '保存文件路径 ulMaxFileSize = 1000000 '文件大小限制 1000,000 ulResult = DoUploadFile(ulMaxFileSize, ulFileName) Function DoUploadFile(MaxUpLoadSize, FileName) Dim Upload, File, formName, formPath, FileExt FileName = "" Set Upload = New upload_yfly '建立上传对象 IF IsNull(Upload。
  File) THEN DoUploadFile= 6 EXIT Function END IF IF Upload。File。Count = 0 Then DoUploadFile= 5 'No File uploaded Else Set File = Upload。
  File("ulFileToUpload") If File。FileName = "" Then DoUploadFile= 4 'No File uploaded Else '上传文件不是空的时候处理上传 '在目录后加(/) formPath=upload。
  Form("ulSaveFilePath") If。收起