调用的地方是：<iframe src='admin_upload.asp?action=modify'></iframe>
amdin_upload.asp
<%
Response.expires=-1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/UpLoadClass.asp"--> ’此处运用风声无组件上传图片
<%
If checkAdminLogin() = False Then '检验是否登录
Response.Redirect "admin_login.htm"
End If
Server.ScriptTimeOut=5000
Dim request2,rs,strSql,strAction
Set request2=New UpLoadClass '这个是风声上传里的
request2.Charset="utf-8"
request2.Open()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Upload Image</title>
<style type="text/css">body,form{margin:0;padding:0;background:#C6EBDE}#strPhoto{width:300px;}Input{font-family:"Verdana, Arial";font-size:9pt;color:#555555;background-color:#fefefe;border:1px solid #555555}</style>
</head>
<body>
<!--下面的表单用于提交图片-->
<form name="upimg" method="post" action="admin_upload.asp?toup=1" enctype="multipart/form-data"><input name="strPhoto" type="file" id="strPhoto" /> <input type="submit" name="upload" value="upload" /></form>
<%
’以下程序分为两部分，modify用于修改图片的地址(问题出在这个模块)，而main则是用于添加新商品的图片
strAction = Trim(Request.QueryString("action"))
If strAction = "modify" Then
Call modify() '修改商品图片
Else Call main() '添加新商品
End If
Sub main()
If Session("imgid") = "" Then
Response.Write "<div style='background:#999999;width:300px;height:14px;font:bold 10px Verdana;color:#FFFF00;' id='noticeimg'>Only images [jpg/gif] <200K are allowed!</div>"
If Request.QueryString("toup") = 1 Then
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from product"
rs.open strSql,G_CONN,1,3
rs.addnew
rs("imgpath")=request2.SavePath&request2.Form("strPhoto")
rs.update
'Aspjpeg组件生成两个尺寸的缩略图
Set Jpeg=Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(rs("imgpath"))
Jpeg.Open Path
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Quality = 90
Jpeg.Save Server.MapPath("upload\middle")&Mid(rs("imgpath"),7)
Jpeg.Width = Jpeg.OriginalWidth / 2 '在上一次计算的基础上
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("upload/small")&Mid(rs("imgpath"),7)'正反斜杠都行
Set Jpeg = Nothing
Session("imgid") = rs("id") '保存上传图片对应的id
rs.Close
Set rs = Nothing
Response.Write "<script>document.upimg.style.visibility='hidden';noticeimg.innerHTML='Image uploaded.'</script>"
End If
Else
Response.Write "<script>document.upimg.style.visibility='hidden'</script><div style='background:#999999;width:300px;height:14px;font:bold 10px Verdana;color:#FFFF00;'>Image uploaded.</div></body></html>"
End If
End Sub
Sub modify()
If Session("delimg") = "" Then
Response.Write "<div style='background:#999999;width:300px;height:14px;font:bold 10px Verdana;color:#FFFF00;' id='noticeimg'>No image need to be updated!</div>"
Response.End
Else
If Request.QueryString("toup") = 1 Then
Dim rs,strSql,temp
strSql="update product set imgpath ='"&request2.SavePath&request2.Form("strPhoto")&"' where id="&Session("delimgid")
G_CONN.Execute strSql
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select imgpath from product where id=" & Session("delimgid"),G_CONN,1,1
temp = rs("imgpath")
Set Jpeg=Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(temp)
Jpeg.Open Path
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Quality = 90
Jpeg.Save Server.MapPath("upload\middle")&Mid(temp,7)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("upload\small")&Mid(temp,7)
Set Jpeg = Nothing
rs.Close
Set rs = Nothing
Response.Write "<script>document.upimg.style.visibility='hidden';noticeimg.innerHTML='Image uploaded.'</script>"
End If
End If
End Sub
%>
由于刚学asp不久，水平挺菜的。。所以不足之处还有很多，望高手能够多多指出不足，好让小弟改进，衷心的谢谢大家！
[此贴子已经被作者于2007-8-20 17:21:55编辑过]
