为节省服务器开销,以下示例均未配置真实上传接口,所以每次上传都会报提示:请求上传接口出现异常,这属于正常现象。
<%@//引入单元或类定义或函数定义 uses SysUtils,classes; %> <%!//声明变量 %> <% //先把附件存到指定的目录 if (Pos('multipart/form-data', Request.ContentType) > 0) then Request.DecodeFJ('c:\xxxxxx\'); Response.ContentType := 'application/json';//返回json类型 //如果不成功,返回code的值大于0即可 //返回JSON数据 print( ' { '#13#10 + ' "code": 0 '#13#10 + ' ,"msg": "" '#13#10 + ' ,"url": "' + stringreplace(Request.Params.values['AttatchFiles'],'\','\\',[rfReplaceAll]) + '" '#13#10 + ' ,"data": { '#13#10 + ' "src": "" '#13#10 + ' } '#13#10 + ' } '); end. %>
预览图:
预览图:
点击上传,或将文件拖拽到此处
文件名 | 大小 | 状态 | 操作 |
---|