📄 supimgdododo.asp
字号:
<!--#include file=../../inc/checkadmin.asp-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body {
margin-left: 8px;
margin-top: 1px;
font-size: 12px;
font-family: "宋体";
text-decoration: none;
}
-->
</style>
</head>
<body>
<%
'OPTION EXPLICIT
Server.ScriptTimeOut=8000
%>
<!--#include File=../../UpLoadClassdododo.asp-->
<%
dim request2,strPhoto,strPhoto_Name
'建立上传对象
set request2=New UpLoadClass
request2.open()
strPhoto=request2.Form("photo")
strPhoto_Name=request2.Form("photo_Name")
response.write "<script>parent.document.myform.simagePath.value='"&strPhoto&"'</script>"
photoerr=cint(request2.form("photo_Err"))
select case photoerr
case -1:
response.write ("<font color=red>--没有图片上传--</font>")
case 0:
response.write ("<font color=red>--图片上传成功--</font>")
case 1:
response.write ("<font color=red>--图片太大，拒绝上传--</font>")
case 2:
response.write ("<font color=red>--图片格式不对，拒绝上传--</font>")
case 3:
response.write ("<font color=red>--图片太大且格式不对，拒绝上传--</font>")
end select
%>
<%
'释放上传对象
set request2=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -