如题：
下面粉色文件：shipjc.mp4，在web文件夹里，按理说路径是对的
页面代码：
'内容区域顶部
sb.AppendLine("<div class='main_top m_8 p_10'>")
sb.AppendLine("<span class='f_left'></span>")
sb.AppendLine("<p class='f_left'>视频教程</p>")
sb.AppendLine("<a href='#' class='f_right'>>>资源整合 高效利用</a>")
sb.AppendLine("</div>")
'内容区域
sb.AppendLine("<div class=''>")
sb.AppendLine("<div class='bg_white'> ")
sb.AppendLine("<div class='clearfix' style='margin: 0 7px 7px 7px'><span style='color:red;'>提示:因为免手动登录,同时兼容微信公众号+微信小程序+微信网站,进入系统有点慢,请谅解!进入后,速度很好哦!</span></div>")
sb.AppendLine("<div class='clearfix' style='margin:0 7px 0 7px;'><video src='shipjc.mp4' width='100%' scrolling='no' border='0' controls poster='images/shipjc.jpg'></video></div>")
sb.AppendLine("</div>")
sb.AppendLine("</div>")
httprequest，已经加上mp4了：
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css",".zip",".rar",".txt",".doc",".woff",".woff2",".ttf","mp4" '这里加上了js扩展名 '缓存".html",".htm",这些文件更新后,无法刷新的
e.CacheTime = 7200 '缓存文件2小时 '1小时为3600
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
[此贴子已经被作者于2021/8/23 16:17:28编辑过]
加好友 
发短信
Post By：2021/8/23 15:25:00 [显示全部帖子]
