上传文件的窗口

2006-6-27 8:24:34　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　

 

'函数名：PosImageWin
'作  用：上传选择文件窗口，可自动提取文件名及类型
'参  数：PfUrlstr ---- 处理二进制文件信息的URL地址
'返回值：网页HTML文件
'示  例：库结构例子 CREATE TABLE [IMAGES]  ([ID] int IDENTITY (1,1) NOT NULL PRIMARY KEY,[MC]  varchar(50),[LX] varchar(20),[MEM] Text,[IMGS] image)
'**************************************************
Public Function PosImageWin(ByVal PfUrlstr)
  PosImageWin=""
  PosImageWin=PosImageWin &  "<center><table border='0' width='0' cellspacing='0' cellpadding='0' style='font-size: 9pt'>" & vbCrlf
  PosImageWin=PosImageWin &  "<SCRIPT LANGUAGE=JAVASCRIPT>"&vbCrlf
  PosImageWin=PosImageWin &  "function ckfilelx(){"&vbCrlf
  PosImageWin=PosImageWin &  "tempwjm=POFile.ImageFs.value;"&vbCrlf
  PosImageWin=PosImageWin &  "fgwjm=tempwjm.split('.');"&vbCrlf
  PosImageWin=PosImageWin &  "newwjm=fgwjm.reverse();"&vbCrlf
  PosImageWin=PosImageWin &  "POMem.ImageType.value=newwjm[0].toUpperCase();"&vbCrlf
  PosImageWin=PosImageWin &  "tempwjm=newwjm[1].toUpperCase();"&vbCrlf
  PosImageWin=PosImageWin &  "fgwjm=tempwjm.split('\\');"&vbCrlf
  PosImageWin=PosImageWin &  "newwjm=fgwjm.reverse();"&vbCrlf
  PosImageWin=PosImageWin &  "POMem.ImageName.value=newwjm[0].toUpperCase();"&vbCrlf
  PosImageWin=PosImageWin &  "POMem.ImageReadme.value=newwjm[0].toUpperCase();"&vbCrlf
  PosImageWin=PosImageWin &  "}"&vbCrlf
  PosImageWin=PosImageWin &  "function Reedit(){POFile.reset();POMem.reset();}"&vbCrlf
  PosImageWin=PosImageWin &  "function PostDo(){if (POFile.ImageFs.value==''){alert('没有选择文件哟！');}else{bc.innerHTML='正在上传，请稍后...';POFile.action=POFile.action+'&mc='+POMem.ImageName.value+'&lx='+POMem.ImageType.value+'&mem='+POMem.ImageReadme.value;bc.style.visibility='visible';ReEd.disabled=true;PoSe.disabled=true;POFile.submit();POFile.ImageFs.disabled=true;}}"&vbCrlf
  PosImageWin=PosImageWin &  "</SCRIPT>"&vbCrlf
  PosImageWin=PosImageWin &  "<tr><form method='POST' name='POFile' enctype='multipart/form-data' ACTION='"&PfUrlstr&"' target='tempa'><td width='100%' valign='middle'>" & vbCrlf
  PosImageWin=PosImageWin &  "选择文件：<input type='file' name='ImageFs' ONCHANGE='ckfilelx();' style='font-size: 9pt;width:300;'>" & vbCrlf
  PosImageWin=PosImageWin &  "</td></form></tr>" & vbCrlf
  PosImageWin=PosImageWin &  "<tr><form method='POST' name='POMem'><td width='100%' valign='middle'>" & vbCrlf
  PosImageWin=PosImageWin &  "文件ID号：<input type='text' name='ImageID' ReadOnly  style='font-size: 9pt;width:300;'><br>" & vbCrlf
  PosImageWin=PosImageWin &  "文件名称：<input type='text' name='ImageName'  style='font-size: 9pt;width:300;'><br>" & vbCrlf
  PosImageWin=PosImageWin &  "文件类型：<input type='text' name='ImageType' ReadOnly style='font-size: 9pt;width:300;'><br>" & vbCrlf
  PosImageWin=PosImageWin &  "文件介绍：<textarea rows='8' name='ImageReadme' cols='20' style='font-size: 9pt;width:300;'>还没有</textarea>" & vbCrlf
  PosImageWin=PosImageWin &  "</td></form></tr>" & vbCrlf
  PosImageWin=PosImageWin &  "<tr><td width='100%' valign='middle' align='center'>" & vbCrlf
  PosImageWin=PosImageWin &  "<input type='button' value='重置' name='ReEd' OnClick='Reedit();'>&nbsp;&nbsp;<input type='button' value='上传' name='PoSe' OnClick='PostDo();'>" & vbCrlf
  PosImageWin=PosImageWin &  "</td></tr></table></center><div id='bc' name='bc' style='position: absolute; left: 45%; top:40%; z-index: 0;background-color: #EAEAEA;visibility: hidden;' valign='middle' align='center'></div>" & vbCrlf
  PosImageWin=PosImageWin &  "<iframe src='' ID='tempa' NAME='tempa' frameborder='0' width='0' height='0' style='width:0;Height:0;'>" & vbCrlf
End Function

>> 相关文章