微标asp无组件上传类v1.3（无刷新ajax上传，可检查图片木马，支持多文件，utf-8版）

2018-08-13 09:22:49 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python+whisper/vosk实现语音识别 Whisper 是一个由 OpenAI 开发的人工智能语音识别模型，它能够将语音转换为文本。Whisper 模型特别之处在于它的设计目标是能够理解和转录多种语言的语音，包括但不限于英语。Whisper 模型在训练时使用了大量不同语言的语音数据，这使得它具有很好的跨语言能力。Vosk 是一个开源的语音识别库，它可以在离线环境下工作，不依赖于任何外部服务。Vosk 基于Kaldi语音识别框架，支持多种语言，包括中文。Vosk提供了多种预训练模型，可以根据需求选择适合的模型进行语音识别。阅读详情

请将本程序放到你的虚拟主机上运行，如果本地有iis也可以。有些同学有简易iis服务器，不适用本程序的，因为有部分中文字符不能识别导致无法运行。
如果需要上传单文件可以把index.htm中的multiple="multiple"删除掉，对应的多文件前端显示及处理需要您对upload.asp进行修改调整，然后前端ajax获取数据进行处理。

关于“无组件上传类 Version 0.96”修改摘要：
'修改点： v0.97 修复了一个错误。当用户在同一个file控件选择多个文件上传时file.add语句会出错， 2018-06-04
' 　原因是键值冲突，本版本对键值做了唯一化处理。
' v0.98 将Charset="gb2312" 改成Charset="utf-8"，所有文件格式都改成utf8了 2018-8-11
' 修改了在上传的时候检查图片是否被注入了代码，比如<% 、request 等关键字符

相关参数设置：

1.ajax_upload.asp中的参数设置说明：
（1）.SavePath 上传目录，默认为“uploadfiles”。

2.clsUpload.asp中的参数设置说明：
（1）.AllowFiles 所允许上传的文件格式，默认为"jpg,jpeg,gif,png"。
（2）.MaxDownFileSize 允许上传的文件大小，默认30M，注意iis默认限制就几百k，您需要在iis那儿做设置，网站 - asp - 限制属性 - 最大请求实体主体限制，加上两个0，改成20000000，这样就改成20M了。

3.index.htm中的参数说明
在第27和32行，分别是判断类型和大小的，可手动修改。这里是前端检测文件类型和大小的，可减轻服务器工作。后端要等文件post完成才能开始检测，假设误选择了个几百兆的exe、rar等文件网页直接卡死。

提示：在clsUpload.asp的第134行对文件中可能存在的危险asp代码做了简单的检查，具体是判断是否包含“request”字符串，如果需要对其他代码判断可在此处修改。建议不要以判断<%、eval、%>这3个特殊字符串来确定图片木马，因为正常文件中可能也有，而且有些图马文件没有<%。

程序提供了两个图马文件供测试，用记事本打开可以看到底部的asp代码。自己也可以做图片木马文件，具体做法自己百度。

asp无组件上传类v0.98，几大特色：
1.无组件
2.可检测简单的图片木马文件
3.支持中文命名的图片
4.ajax无刷新，不用frame！
5.可返回图片服务器路径
6.速度快
7.支持多文件
8.全新utf-8版
9.免费稳定

详细介绍：https://blog.csdn.net/sysdzw/article/details/80562058
下载地址：https://github.com/sysdzw/aspupload

...全文

【多媒体处理】基于C++、Qt与FFmpeg的课堂视频自动分段与重点标记系统设计项目介绍基于C++、Qt与FFmpeg的课堂录屏视频自动分段与重点标记系统设计与实现（含模型描述及部分示例代码）内容概要：本文详细介绍了一个基于C++、Qt与FFmpeg的课堂录屏视频自动分段与重点标记系统的设计与实现。系统通过多模态分析技术，结合视频画面差异、音频特征（如短时能量、过零率、静音分析）以及时间上下文信息，实现对课堂视频的智能分段和重点内容识别。项目采用模块化架构，涵盖媒体解码、视觉与音频特征提取、多模态融合决策、片段构建与重点评分等功能，并通过Qt实现图形化交互界面，支持用户对自动生成的结果进行校正与导出。文中还提供了核心数据结构定义及关键算法的C++代码示例，包括帧抽样解码、画面差异计算、音频分析、边界融合与片段生成等，具备较强的工程落地能力。; 适合人群：具备C++编程基础，熟悉Qt框架和多媒体处理技术的中高级开发人员，以及从事教育信息化、视频分析、智能教学系统研发的相关技术人员。; 使用场景及目标：①用于课堂教学视频的自动化整理，提升教师后期剪辑与资源归档效率；②构建可解释的多模态分段模型，适应不同类型课程（如理工类、语言类）的教学节奏与特征；③改善学生对长视频的学习体验，实现知识点快速定位与重点内容优先复习；④作为可扩展的多媒体工程框架，支撑会议录像、培训视频等类似场景的内容结构化处理。; 阅读建议：此资源不仅提供理论模型描述，更侧重于实际工程实现，建议读者结合代码示例深入理解各模块设计思路，重点关注FFmpeg的流式解码、多线程处理机制与Qt信号槽通信的应用，并可根据需求集成OCR、语音识别等模块以进一步增强系统功能。立即下载

无·法

ASP 28,401 成员 356,938 内容

+ 关注 + 加入社区

切换为时间正序

无·法您的网络发生故障，内容加载失败！ 2020-03-27

打赏
举报

无·法您的网络发生故障，内容加载失败！ 2020-03-26

打赏
举报

无·法您的网络发生故障，内容加载失败！ 2020-03-26

打赏
举报

lm5580409 2018-12-07

打赏
举报

谢谢分享！！！！！！！！！

amuie 2018-10-15

打赏
举报

都说了正则不是完全对比，你可以当他是一个正则规则在一段代码里出现的次数，比如eval你可以判断eval后面有没有带括号，括号有没有引号，有没有代码，你可以先去了解下正则

无·法您的网络发生故障，内容加载失败！ 2018-10-15

打赏
举报

我的类里面判断方法，就是判断是否存在这些字。本想判断asp标记对中是否出现这个，但是发现有些图片图片文件乱码方式打开竟然没有百分号，所以asp标记对不能做为判断标准了。



vMumaKeyWord = split("request|execute|wscript.shell|activexobject|include|function|.encode|.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|.createobject","|") '

for intMKW=0 to ubound(vMumaKeyWord)

	if instr(strContent,vMumaKeyWord(intMKW))>0 then

		if instr(oFileInfo.FileType,"image/")>0 then

			oFileInfo.ErrCode=3

			oFileInfo.ErrMsg="要上传的图片“" & sFileName & "”含有木马。" & vMumaKeyWord(intMKW)

		else

			oFileInfo.ErrCode=4

			oFileInfo.ErrMsg="要上传的文件“" & sFileName & "”含有木马。" & vMumaKeyWord(intMKW)

		end if

		exit for

	end if

next

无·法您的网络发生故障，内容加载失败！ 2018-10-15

打赏
举报

引用 11 楼 amuie 的回复:

加入到fso.asp里就可以了，api改回easp就可以直接调用
我那个改了不少东西，你要可以发你，没上传git

没用过easp，想大概问下你的判断是否是用正则是否在一片“乱码”中判断关键字出现在<% %>内的？如果是这样那么没有意义。

amuie 2018-10-14

打赏
举报

http://111.231.91.58

amuie 2018-10-14

打赏
举报

加入到fso.asp里就可以了，api改回easp就可以直接调用
我那个改了不少东西，你要可以发你，没上传git

无·法您的网络发生故障，内容加载失败！ 2018-10-07

打赏
举报

引用 9 楼 amuie 的回复:

easp上改的一个mvc框架，你百度搜easp就有了

下载了没找到相关代码。可否直接贴下？如果合适的话添加到库里，可以将你大名加入。

amuie 2018-10-06

打赏
举报

easp上改的一个mvc框架，你百度搜easp就有了

无·法您的网络发生故障，内容加载失败！ 2018-10-05

打赏
举报

引用 7 楼 amuie 的回复:

引用 6 楼 sysdzw 的回复:
而且你的代码会误杀的。不能以判断script和eval为准的，因为正常的文件也会随机出现eval，然后图片文件通常都会有Description这的单词，你这script就包含了。
api是写的一个class框架类调用，意思就是正则判断，有注析，eval和script你完全可以在正则里写更详细的规则去判断，他不是InStr完全去对比字符串

可否提供代码交流下？

amuie 2018-10-05

打赏
举报

引用 6 楼 sysdzw 的回复:

而且你的代码会误杀的。不能以判断script和eval为准的，因为正常的文件也会随机出现eval，然后图片文件通常都会有Description这的单词，你这script就包含了。

api是写的一个class框架类调用，意思就是正则判断，有注析，eval和script你完全可以在正则里写更详细的规则去判断，他不是InStr完全去对比字符串

无·法您的网络发生故障，内容加载失败！ 2018-10-04

打赏
举报

而且你的代码会误杀的。不能以判断script和eval为准的，因为正常的文件也会随机出现eval，然后图片文件通常都会有Description这的单词，你这script就包含了。

无·法您的网络发生故障，内容加载失败！ 2018-10-04

打赏
举报

引用 4 楼 amuie 的回复:

这才是木马检测

'检测图片是否合法

  Public Function isImg(ByVal Path)

    Path = absPath(Path) '获取绝对路径

    If Not isFile(Path) Then isImg = False : Exit Function

    Dim tamp, i, ext, sun, obj, str : obj = 0

    '检测图片内容非法字符

    str = "script|execute|eval|\#\@\~\^.+?\=\=\^\#\~\@|wscript.shell|activexobject|include|sub|function" &_

    "|.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|.createobject"

    '正则对比

    If Api.Str.Test(Read(Path), str) Then isImg = False : Exit Function

    '识别格式

    Select Case ExtOf(Path)

      Case ".jpg", ".jpeg" : ext = Array(&HFF, &HD8) : sun = 1

      Case ".gif" : ext = Array(&H47, &H49, &H46, &H39, &H38, &H61) : sun = 5

      Case ".png" : ext = Array(&H89, &H50, &H4E, &H47) : sun = 3

      Case ".bmp" : ext = Array(&H42, &H4D) : sun = 1

      Case Else isImg = False : Exit Function

    End Select

    With Server.CreateObject("ADODB.Stream")

      .Open

      .Type = 1

      .LoadFromFile Path

      .Position = 0

      tamp = .Read

      .Close

    End With

    '检测图片开头二进制特征

    For i = 0 To sun

      If Ascb(Midb(tamp, i + 1, 1)) = CByte(ext(i)) Then obj = obj + 1

    Next

    If (obj - 1) = sun Then isImg = True Else isImg = False

  End Function

有完整代码吗？api. 是什么？

amuie 2018-10-04

打赏
举报

这才是木马检测

'检测图片是否合法

  Public Function isImg(ByVal Path)

    Path = absPath(Path) '获取绝对路径

    If Not isFile(Path) Then isImg = False : Exit Function

    Dim tamp, i, ext, sun, obj, str : obj = 0

    '检测图片内容非法字符

    str = "script|execute|eval|\#\@\~\^.+?\=\=\^\#\~\@|wscript.shell|activexobject|include|sub|function" &_

    "|.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|.createobject"

    '正则对比

    If Api.Str.Test(Read(Path), str) Then isImg = False : Exit Function

    '识别格式

    Select Case ExtOf(Path)

      Case ".jpg", ".jpeg" : ext = Array(&HFF, &HD8) : sun = 1

      Case ".gif" : ext = Array(&H47, &H49, &H46, &H39, &H38, &H61) : sun = 5

      Case ".png" : ext = Array(&H89, &H50, &H4E, &H47) : sun = 3

      Case ".bmp" : ext = Array(&H42, &H4D) : sun = 1

      Case Else isImg = False : Exit Function

    End Select

    With Server.CreateObject("ADODB.Stream")

      .Open

      .Type = 1

      .LoadFromFile Path

      .Position = 0

      tamp = .Read

      .Close

    End With

    '检测图片开头二进制特征

    For i = 0 To sun

      If Ascb(Midb(tamp, i + 1, 1)) = CByte(ext(i)) Then obj = obj + 1

    Next

    If (obj - 1) = sun Then isImg = True Else isImg = False

  End Function

qq_42999894 2018-08-17

打赏
举报

收藏了。谢楼主

hookee 2018-08-13

打赏
举报

微标asp无组件上传类v1.3（无刷新ajax上传，可检查图片木马，支持多文件，utf-8版）

相关推荐