哎再求一个大家烦的不能再烦的问题，无组件文件上传到文件夹同时混合上传表单项到数据库

2004-04-10 01:51:10 117 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Microsoft.Photos.exe停止交互怎么办？Win10照片应用卡死完整修复指南 UWP应用是Windows 10系统内置组件的重要形态，它们运行在沙箱容器中，依赖系统服务与媒体框架。当照片应用这类UWP程序无法及时处理窗口消息时，系统便会判定其“已停止与Windows交互”并强制结束，表现为打开图片卡死或闪退。其背后常见原因包括缓存损坏、应用包注册异常、显卡驱动兼容性不佳或系统组件缺失。排查时应遵循先重置应用、再清理缓存、然后重新注册包、最后检查驱动与系统健康的顺序。本文从UWP运行机制出发，结合真实维修案例，系统梳理了针对Microsoft.Photos.exe报错的修复步骤与避坑经阅读详情

稻香老农的我怎么看着也是只上传文件，没涉及上传表单项啊

...全文

Windows 游戏 EXCEPTION_ACCESS_VIOLATION 修复：3类硬件问题与5步软件排查法本文提供Windows游戏EXCEPTION_ACCESS_VIOLATION错误的终极修复指南，涵盖3类硬件问题（内存故障、显卡问题、超频不稳定）和5步软件排查法（文件验证、驱动更新、DEP调整等），帮助玩家彻底解决0xFFFFFFFFFFFFFFFF内存访问冲突问题。阅读详情

seaonce

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

seaonce 2004-04-10

打赏
举报

终于搞定了

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

seaonce 2004-04-10

打赏
举报

Microsoft VBScript 运行时错误错误 '800a01b6'

对象不支持此属性或方法: 'objFile'

/moban1/product-1.asp，行39

这是怎么回事啊

snowleaf 2004-04-10

打赏
举报

http://expert.csdn.net/Expert/topic/2933/2933833.xml?temp=.5429193

lawdoor 2004-04-10

打赏
举报

如何？？

lawdoor 2004-04-10

打赏
举报

简单说明：
本例是相册里像片的上传。
其中的groupID是隐藏域传递的大类的ID
其中的albumID是隐藏域传递的小类的ID
file1-->>file5是文件
photoTitle1-->>photoTitle5 是像片的标题
photoIntro1-->>photoIntro5 是像片的简介
photoWidth1-->>photoWidth5 是像片的宽度
photoHeight1-->>photoHeigth5 是像片的高度
photoSize1-->>photoSize5 是像片的大小。

提交页面
=============
请见
www.blueidea.com/bbs/newsdetail.asp?id=1249224&posts=current
==================================================

处理页面
====================================
<%@ CODEPAGE="936"%>
<%
Server.ScriptTimeOut=5000 '--脚本超时设置为5000
%>



<%
set upload=new upload_5xsoft '建立上传对象

formPath="upfile/" '--上传路径

upFileSize=1048576 '设置文件限制为1M

iCount=0 '--上传文件个数的计数

'-----------检查是否有在此位置上传的权限--------这里省略。。。。
groupID=trim(upload.form("groupID"))
albumID=trim(upload.form("albumID"))
'-----------检查权限完成------

if errMsg="" then '--如果以上的检查没有错误，那么继续
for each formName in upload.objFile '列出所有上传了的文件
set file=upload.file(formName) '生成一个文件对象
if file.FileSize>0 then '如果 FileSize > 0 说明有文件数据
fileOK=1
fileExt=lcase(right(file.Filename,4))
'===================检查后缀名=====
if LCase(fileEXT)<>".gif" and LCase(fileEXT)<>".jpg" and LCase(fileEXT)<>".bmp" and LCase(fileEXT)<>".png" then
errMsg=errMsg+"文件:"&file.Filename&" 不是图片文件！ "
fileOK=0
end if
'==========检查文件大小=====
if file.FileSize>upFileSize then
errMsg=errMsg+"文件:"&file.Filename&" 的大小大于"&upFileSize\1024&"KB！ "
fileOK=0
end if
if fileOK=1 then '--如果通过检查，那么保存文件
randomize
ranNum=int(900*rnd)+100
filename=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&ranNum&fileExt
file.SaveAs Server.mappath(formPath&filename) '让文件名不重复，保存文件
'===添加文件的信息到数据库里===
myIndex=right(formName,1) '--取得序号，如file1取得为1，file2取得为2
temp_photoTitle=upload.form("photoTitle"+myIndex) '--这四行取得文件对应的标题，简介，宽度，高度等
temp_photoIntro=upload.form("photoIntro"+myIndex)
temp_photoWidth=upload.form("photoWidth"+myIndex)
temp_photoHeight=upload.form("photoHeight"+myIndex)
'========检查输入，为空则给初值===
temp_photoTitle=replace(trim(temp_photoTitle),"'","''")
if temp_photoTitle="" then
temp_photoTitle="没有填写"
end if
temp_photoIntro=replace(trim(temp_photoIntro),"'","''")
if temp_photoIntro="" then
temp_photoIntro="没有填写"
end if
if temp_photoWidth="" or not IsNumeric(temp_photoWidth) then
temp_photoWidth=160
end if
if temp_photoHeight="" or not IsNumeric(temp_photoHeight) then
temp_photoHeight=120
end if
'=======插入数据库===
sql="insert into TBL_PHOTO(albumID,groupID,userName,addTime,photoFilename,photoTitle,photoIntro,photoClick,photoSize,photoWidth,photoHeight,locked,viewPassword) values("&albumID&","&groupID&",'"&session("userName")&"','"&Now()&"','"&filename&"','"&temp_photoTitle&"','"&temp_photoIntro&"',1,"&file.FileSize&","&temp_photoWidth&","&temp_photoHeight&",'no','')"
conn.execute sql
sql="update TBL_ALBUM set photoCount=photoCount+1 where albumID="&albumID
conn.execute sql
sql="update TBL_GROUP set photoCount=photoCount+1 where groupID="&groupID
conn.execute sql
'======输出上传成功信息===
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&filename&" 成功! "
iCount=iCount+1
end if
end if
set file=nothing
next
end if
set upload=nothing ''删除此对象
response.write " "&iCount&" 个文件上传结束!"
response.write " <a href='photo_listphoto.asp?albumID="&albumID&"'>返回相册</a>"
'=============如果有错，输出错误信息=========
if errMsg<>"" then
response.write " "&errMsg
response.write "<INPUT type='button' onClick='history.go(-1)' value='返回' class='myInput'>"
end if
conn.close
set conn=nothing
%>

seaonce 2004-04-10

打赏
举报

没人是吧
我顶

哎再求一个大家烦的不能再烦的问题，无组件文件上传到文件夹同时混合上传表单项到数据库

相关推荐