为节省服务器开销,以下示例均未配置真实上传接口,所以每次上传都会报提示:请求上传接口出现异常,这属于正常现象。
<%@//引入单元或类定义或函数定义
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.
%>
预览图:
预览图:
点击上传,或将文件拖拽到此处
| 文件名 | 大小 | 状态 | 操作 |
|---|