asp vb sql 谁能解释下这段代码啊

来源:百度知道 编辑:UC知道 时间:2024/06/16 04:51:11
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

ofile.SaveToFile Server.mappath(FileName) '保存文件

response.write "文件上传成功!文件大小为:" & cstr(round(oFileSize/1024)) & "K"
select case PhotoUrlID
case 0
strJS=strJS & "parent.document.myform.PhotoUrl.value='" & fileName & "';" & vbcrlf
strJS=strJS & "parent.document.myform.PhotoSize1.value='" & cstr(round(oFileSize/1024)) & "';" & vbcrlf
case 1
strJS=strJS & "parent.document.myform.DownloadUrl.value='" & fileName & "';" & vbcrlf
strJS=strJS & "parent.document.myform.FileSize.value='" & cstr(round(oFileSize/1024)) & "';" & vbcrlf
case 2
strJS=strJS & &qu

if FoundErr<>true then '如果没有错误,founderr可能是上面的错误全局变量
randomize '初始化随机数
ranNum=int(900*rnd)+100'随机数为100-10000
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt '定义一个准备保存的文件

ofile.SaveToFile Server.mappath(FileName) '保存文件

response.write "文件上传成功!文件大小为:" & cstr(round(oFileSize/1024)) & "K" '提示文件上传成功
select case PhotoUrlID '对照片urlid进行处理
case 0 '如果是0
strJS=strJS & "parent.document.myform.PhotoUrl.value='" & fileName & "';" & vbcrlf 'js代码构造,父frame的myform表单中的photourl控件的值=文件名
strJS=strJS & "parent.document.myform.PhotoSize1.value='" & cstr(round(oFileSize/1024)) & "';" & vbcrlf 'js代码构造,父frame的myform表单中的pPhotoSize1控件的值=文件大小,kb单位
case 1 '如果是1,下面赋值都一样
strJS=strJS & "parent.document.myform.DownloadUrl.value='" & fileName & "&#