<body leftmargin="0" topmargin="0">
<form action="" method="post" enctype="multipart/form-data" name="frm_pic">
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</form>
1、只能上传<%=upFileType%>格式的图片<br>
2、图片大小请在<%=upFileSize%>K以内<br>
3、请对您所上传的图片内容负责
</body>
</html>
<%
Sub resultTip()
'本过程用于显示上传操作结果
Response.Write("<html><head>")
Response.Write("<meta http-equiv=Content-Type content=text/html; charset=gb2312>")
Response.Write("<title></title></head>")
Response.Write("<script>parent.frm_publish.P_Image.value='"&setFileName&"'</script>") '把文件名传递至父文件的隐藏表单控件
Response.Write("<body leftmargin=0 topmargin=0>")
Response.Write("<table><tr><td><font color=red><b>图片上传成功</b></font></td></tr></table>")
Response.Write("</body></html>")
<form action="" method="post" enctype="multipart/form-data" name="frm_pic">
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</form>
1、只能上传<%=upFileType%>格式的图片<br>
2、图片大小请在<%=upFileSize%>K以内<br>
3、请对您所上传的图片内容负责
</body>
</html>
<%
Sub resultTip()
'本过程用于显示上传操作结果
Response.Write("<html><head>")
Response.Write("<meta http-equiv=Content-Type content=text/html; charset=gb2312>")
Response.Write("<title></title></head>")
Response.Write("<script>parent.frm_publish.P_Image.value='"&setFileName&"'</script>") '把文件名传递至父文件的隐藏表单控件
Response.Write("<body leftmargin=0 topmargin=0>")
Response.Write("<table><tr><td><font color=red><b>图片上传成功</b></font></td></tr></table>")
Response.Write("</body></html>")
End sub
Function GetExtendName(FileName)
'本过程用于获取上传源文件的扩展名
dim ExtName
ExtName = LCase(FileName)
ExtName = mid(ExtName,instrRev(ExtName,"."))
GetExtendName = ExtName
End function
Sub showErr(msg)
'本过程用于显示操作错误信息
Response.Write(msg)
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
