如何response.Write出两个数相除的结果,并且结果取小数后两位,同时加上kb?
做个文件上传功能,在信息提交页有文件上传后的路径和文件大小两个文本框,然后用 <iframe> 的方式调用文件上传页,用的是风声无组件2.11,目前能在文件上传后自动把文件上传后的保存路径显示在信息提交页的路径文本框中,现在我想把这个文件的大小也自动显示在文件大小文本框中,目前有个问题,就是如何用response.Write出两个数相除的结果,并且结果取小数后两位,把这个值自动体现在信息提交页的文件大小文本框中?
信息提交页相关代码:
<input name= "BigImg " type= "text " class= "Input " id= "BigImg " size= "50 "> <input name= "Imgsize " type= "text " id= "Imgsize " class= "Input ">
<a href= "javascript:; " onClick= "javascript:open_win( 'Img_upload.asp?UpStyle=AddImg ', 'contact ',463,380, 'no '); "> 上传图片 </a>
Img_upload.asp相关代码如下:
<table width= "100% " border= "0 " cellspacing= "1 " cellpadding= "0 " style= "background-color:#F0F0F0; ">
<form name= "form111 " enctype= "multipart/form-data " method= "post " action= "Upload_Save.asp?UpStyle=AddProductImg ">
<tr>
<td width= "84% " class= "tdbg "> 大图：
<input name= "strPhoto2 " type= "file " id= "strPhoto2 ">
(不能超过1024K即1M) <br> 小图：
<input name= "strPhoto1 " type= "file " id= "strPhoto1 "> (不能超过150K) <input type= "submit " name= "Submit " value= "上 传 " class= "button01-out "> </td>
</tr>
</form> </table>
upload_save.asp部分代码如下:
<%
Sub Save_AddProductImg()
%>
<script language= "Javascript ">
function ShowUrl(BigUrl,SmallUrl,Imgsize)
{
window.opener.document.form1.BigImg.value=BigUrl;
window.opener.document.form1.SmallImg.value=SmallUrl;
window.opener.document.form1.Imgsize.value=Imgsize; '这个是我自己加上的
}
</script>
<%
dim request2
'建立上传对象
set request2=New UpLoadClass
'设置为手动保存模式
request2.AutoSave=2
Request2.FileType= "gif/jpg/jpeg/bmp "
'设置服务器文件保存路径
Request2.SavePath= "../UploadFiles/ "
'打开对象
request2.open()
%>
<table width= "100% " border= "0 " cellspacing= "1 " cellpadding= "0 " style= "background-color:#F0F0F0; ">
<tr>
<td>
<%
'设置产品大图最大为1024K
'当然这里还可以设置不同的保存路径，限制格式
request2.MaxSize=1024000
'如果保存大图成功
if request2.Save( "strPhoto2 ",0) then
'显示保存位置
Dim BigUrl
BigUrl=request2.SavePath&request2.Form( "strPhoto2 ")
response.Write( " <br> 产品大图: "&BigUrl)
If Left(BigUrl,3)= "../ " Then BigUrl=Right(BigUrl,Len(BigUrl)-2)
end if
'设置产品小图最大为200K
'任何时候都可以重设参数，重设参数对后面的save/open有效
'不过第二次调用open什么都不做
request2.MaxSize=204800
'如果保存小图成功，系统生成目标文件名
if request2.Save( "strPhoto1 ",0) then
'显示保存位置
Dim SmallUrl
SmallUrl=request2.SavePath&request2.Form( "strPhoto1 ")
response.Write( " <br> 小图: "&SmallUrl)
If Left(SmallUrl,3)= "../ " Then SmallUrl=Right(SmallUrl,Len(SmallUrl)-2)
end if
'-------说明开始------
'如果是正确的jpg/gig/png/bmp图片格式文件，还可以获取图片大小
Dim Imgsize
Imgsize=request2.form( "strPhoto2_size ")
response.Write( " <br> 大图尺寸： "&request2.form( "strPhoto2_size ")/1024)
'-------说明结束------
%> 程序运行后结果是:33.978515625 这样的效果,我想它在这个上传成功后的显示页显示为33.97kb,然后把33.97这个数值自动出现在信息提交页的Imgsize文本框中,代码该如何改?
[解决办法]
formatnumber(num)& "kb "
