28,391
社区成员
发帖
与我相关
我的任务
分享为什么我接不到值？
<%@language=vbscript codepage=936 %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
call upload_0() '使用化境无组件上传类
%>
</body>
</html>
<%
sub upload_0() '使用化境无组件上传类
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
the_pic_width=cint(upload.form("pic_width"))
If Upload.Files.count=0 Then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('请选择上传照片')" & vbcrlf)
response.write("</script>" & vbcrlf)
response.end
Else
'----------------------------
For Each File in Upload.Files
if file.size>1048576 then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('"&file.name&"大小超过1M')" & vbcrlf)
response.write("</script>" & vbcrlf)
response.end
else
'response.Write(File.ImageType)
If File.ImageType <> "GIF" and File.ImageType <> "JPG" and File.ImageType <> "PNG" and File.ImageType<>"BMP" Then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('文件格式只能是JPE、GIF、PNG或BMP!')" & vbcrlf)
response.Write("</script>" & vbcrlf)
isgo=false
else
picname="T" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now)
pic=picname & File.ExtractFileName
filepath=server.MapPath("UploadFiles\")
file.saveas filepath & "\" & pic
'response.Write(filepath & "\" & pic)
'----------------------------
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open filepath & "\" & pic
' Draw frame: black, 2-pixel width
Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
Jpeg.Canvas.Pen.Width = 0
'response.Write(jpeg.width)
if the_pic_width="" or the_pic_width=0 then
the_pic_width=120
end if
if cint(Jpeg.OriginalWidth)>the_pic_width then
jpeg.width=the_pic_width
jpeg.height=int(jpeg.OriginalHeight*(the_pic_width/Jpeg.OriginalWidth))
end if
Jpeg.Canvas.DrawBar 0, 0, jpeg.width,jpeg.height
Jpeg.Quality =80
'response.Write(filepath & "\" & pic)
Jpeg.save filepath & "\" & pic
response.Write("<script language=javascript>" & vbcrlf)
response.Write("alert('上传成功')" & vbcrlf)
response.Write("parent.parent.document.the_pic.src='editor/UploadFiles/" & pic & "';")
response.Write("parent.parent.form1.pic.value='UploadFiles/" & pic & "';")
response.Write("parent.parent.form1.ispic.status=true;")
response.Write("</script>" & vbcrlf)
end if
end if
next
set file=nothing
set jpeg=nothing
end if
set Upload=nothing
end sub
%>
<input name="isadd" type="hidden" value="yes">
<input name="pic_str" type="hidden" value="">
<input name="pic" type="hidden" value="">
这是哪个的
为什么NAME为PIC的没有值？
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
call upload_0() '使用化境无组件上传类
%>
</body>
</html>
<%
sub upload_0() '使用化境无组件上传类
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
the_pic_width=cint(upload.form("pic_width"))
If Upload.Files.count=0 Then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('请选择上传照片')" & vbcrlf)
response.write("</script>" & vbcrlf)
response.end
Else
'----------------------------
For Each File in Upload.Files
if file.size>1048576 then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('"&file.name&"大小超过1M')" & vbcrlf)
response.write("</script>" & vbcrlf)
response.end
else
'response.Write(File.ImageType)
If File.ImageType <> "GIF" and File.ImageType <> "JPG" and File.ImageType <> "PNG" and File.ImageType<>"BMP" Then
response.write("<script language=javascript>" & vbcrlf)
response.write("alert('文件格式只能是JPE、GIF、PNG或BMP!')" & vbcrlf)
response.Write("</script>" & vbcrlf)
isgo=false
else
picname="T" & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now)
pic=picname & File.ExtractFileName
filepath=server.MapPath("UploadFiles\")
file.saveas filepath & "\" & pic
'response.Write(filepath & "\" & pic)
'----------------------------
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open filepath & "\" & pic
' Draw frame: black, 2-pixel width
Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
Jpeg.Canvas.Pen.Width = 0
'response.Write(jpeg.width)
if the_pic_width="" or the_pic_width=0 then
the_pic_width=120
end if
if cint(Jpeg.OriginalWidth)>the_pic_width then
jpeg.width=the_pic_width
jpeg.height=int(jpeg.OriginalHeight*(the_pic_width/Jpeg.OriginalWidth))
end if
Jpeg.Canvas.DrawBar 0, 0, jpeg.width,jpeg.height
Jpeg.Quality =80
'response.Write(filepath & "\" & pic)
Jpeg.save filepath & "\" & pic
response.Write("<script language=javascript>" & vbcrlf)
response.Write("alert('上传成功')" & vbcrlf)
response.Write("parent.parent.document.the_pic.src='editor/UploadFiles/" & pic & "';")
response.Write("parent.parent.form1.pic.value='UploadFiles/" & pic & "';")
response.Write("parent.parent.form1.ispic.status=true;")
response.Write("</script>" & vbcrlf)
end if
end if
next
set file=nothing
set jpeg=nothing
end if
set Upload=nothing
end sub
%>
<input name="isadd" type="hidden" value="yes">
<input name="pic_str" type="hidden" value="">
<input name="pic" type="hidden" value="">
这是哪个的
为什么NAME为PIC的没有值？
...全文
请发表友善的回复…
发表回复
tglflzqlmy 2008-06-06
- 打赏
- 举报
都没有
jhwcd 2008-06-05
- 打赏
- 举报
能不能说的详细点，有点含糊。
其他的name有值吗？
其他的name有值吗？
xiaojing7 2008-06-05
- 打赏
- 举报
人品
