[求助]谁有好的无组件上传代码？ - ASP技术论坛

fzlklmy

等　级：新手上路
帖　子：44
专家分：0
注　册：2006-3-29

楼主

问题点数：0 回复次数：15

[求助]谁有好的无组件上传代码？

如题
我现在急用，有的人麻烦帮我找个
我在网上找了好久，都看不懂，也不会用
我初学，不要笑我哦！

搜索更多相关主题的帖子: 组件　代码　初学　麻烦　

2006-04-11 11:17

rainic

等　级：贵宾
威　望：27
帖　子：2367
专家分：0
注　册：2005-8-9

第 3 楼

得分:0

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传图片</title>


<%
server.ScriptTimeout=999
if request.QueryString("action1")="upload" then
FileMaxSize=1048576*0.5
path="./pic/"
set upload=new upload_5xSoft '建立上传对象
for each formName in upload.file
set file1=upload.file(formName)
picname=file1.filename
filetype=Right(picname,4)
randomize
num = int(rnd * 999)
picname = Cstr( right(year(now),2) & month(now) & day(now) & hour(now) & minute(now) & Cstr(num) )
if strcomp(filetype,".jpg")=0 or strcomp(filetype,".JPG")=0 or strcomp(filetype,".gif")=0 or strcomp(filetype,".GIF")=0 Then
if strcomp(filetype,".jpg")=0 or strcomp(filetype,".JPG")=0 then
filetype=".jpg"
else filetype=".gif"
end if
if file1.FileSize>0 and file1.FileSize<FileMaxSize then
file1.SaveAs Server.mappath(path & picname & filetype) '保存文件
'''''''''''生成小图 START
on error Resume Next
Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''调用组件
Jpeg.Open Server.mappath(path & picname & filetype) ''打开图片
'''高与宽为原图片的1/2
'''Jpeg.Width = Jpeg.OriginalWidth / 2
'''Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Width = 120
Jpeg.Height = int((Jpeg.Width * Jpeg.OriginalHeight) / Jpeg.OriginalWidth)
Jpeg.Save Server.mappath(path & picname & "small" & filetype) '''保存图片
Jpeg.close
set Jpeg=nothing
''''''''生成小图 END

''''更新数据
filename2=picname& "small" & filetype
if err then
filename2=picname & filetype
end if
'保存数据到数据库 stsrt
ip=Request.ServerVariables("REMOTE_ADDR") '得到客户端IP
nick=filtrate(upload.Form("nick"),0,30)
picname=filtrate(upload.Form("picname"),0,30)
dct=filtrate(upload.Form("discription"),1,255)
address=filtrate(upload.Form("address"),1,50)
qq=filtrate(upload.Form("qq"),0,20)
if not isnumeric(qq) then
qq=0
end if
hp=filtrate(upload.Form("hp"),0,50)
kind=upload.Form("kind")
sql="insert into album(nick,filename,picname,description,ip,address,qq,hp,[kind])values('"&_
nick&"','"&filename2&"','"&picname&"','"&dct&"','"&ip&"','"&address&"','"&qq&"','"&hp&"','"&kind&"')"
connAlbum.execute(sql)
connAlbum.close
set connAlbum=nothing
'保存数据到数据库 end
else
set file1=nothing
set upload=nothing
response.Write("<script language=javascript>alert('你上传的图片大小超出限额.');window.location='./upload.asp';</script>")
response.end()
end if
else
set file1=nothing
set upload=nothing
response.Write("<script language=javascript>alert('你上传的格式不对吧?~!?~?');window.location='./upload.asp';</script>")
response.end()
end if
next
set file1=nothing
set upload=nothing
response.Write("<script language=javascript>alert('上传成功');window.location='./upload.asp';</script>")
else
%>
<link href="bodyandlink.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style>
<script language="javascript">
function check()
{
if(document.mainform.file.value=="")
{
alert("上传文件不能为空!");
document.mainform.file.focus();
return false;
}
if(document.mainform.nick.value=="")
{
alert("忘记写昵称啦!");
document.mainform.nick.focus();
return false;
}
if(document.mainform.picname.value=="")
{
alert("照片名称还没写呢!");
document.mainform.picname.focus();
return false;
}
if(document.mainform.discription.value=="")
{
alert("个性留言呢!");
document.mainform.discription.focus();
return false;
}
if(document.mainform.kind.value=="0")
{
alert("相片类型!");
document.mainform.kind.focus();
return false;
}
document.mainform.Submit.value="正在上传,请稍后";
return true;
}
</script>
</head>

<body>
<form action="upload.asp?action1=upload" method="post" enctype="multipart/form-data" name="mainform" onSubmit="return check()">
<br>
<table width="582" border="0" cellspacing="2" cellpadding="0" align="center" height="328">
<tr>
<td colspan="2"><a href="./">返回相册首页</a></td>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><font size="2">请填好资料再上传照片（</font><font size="2" color="#FF0000">*</font><font size="2"></font><font size="2">号为必须填写）</font></td>
<td colspan="2">图片不大于<%=FileMaxSize%>字节</td>
</tr>
<tr bgcolor="#CCCC99">
<td><font size="2" color="#FF0000">*</font><font size="2">文件上传：</font></td>
<td colspan="3"><font size="2">
<input type="file" name="file" id="file">
</font></td>
</tr>
<tr bgcolor="#CCCC99">
<td width="81"><font size="2" color="#FF0000">*</font><font size="2">昵　　称：</font></td>
<td width="174"><font size="2">
<input name="nick" type="text" id = "nick" size="15" maxlength="20">
</font></td>
<td width="88"><font size="2">来自何方：</font></td>
<td width="231"><font size="2">
<input name="address" type="text" id = "address" size="15" maxlength="20">
</font></td>
</tr>
<tr bgcolor="#CCCC99">
<td width="81"><font size="2">ＱＱ：</font></td>
<td width="174"><font size="2">
<input name="qq" type="text" id = "qq" size="15" maxlength="15">
</font></td>
<td width="88"><font size="2">个人主页：</font></td>
<td width="231"><font size="2">
<input name="hp" type="text" id="hp" size="20" maxlength="50">
</font></td>
</tr>

<tr bgcolor="#CCCC99">
<td width="81"><font size="2" color="#FF0000">*</font><font size="2">照片名称:</font></td>
<td width="174"><font size="2">
<input name ="picname" type="text" id = picname size="15" maxlength="15">
</font></td>
<td width="88"><font size="2" color="#FF0000">*</font><font size="2">图片类型：</font></td>
<td width="231"><font size="2"><select name="kind">
<option value="0" selected>请选择</option>
<option value="1">生活点滴</option>
<option value="2">自然风光</option>
<option value="3">动漫世界</option>
</select>
</font></td>
</tr>
<tr bgcolor="#CCCC99">
<td width="81"><font size="2" color="#FF0000">*</font><font size="2">个性留言：</font></td>
<td colspan="3"><font size="2"> </font><font size="2">
<textarea name="discription" id="discription" cols="50" rows="5" onKeyDown="if(this.value.length>250){alert('太长啦!');return false}">-</textarea>
</font></td>
</tr>
<tr bgcolor="#CCCC99" valign="top">
<td colspan="4" height="23"><div align="center"><font size="2"></font><font size="2"></font><font size="2"></font>
<font size="2">
<input name="Submit" type="submit" id="Submit" value="提交">
   <input type="reset" name="Submit3" value="重写">
</font></div></td>
</tr>
</table>
</form>
</body>
<%end if%>
</html>

我想应该可以看懂吧，中间还用了Persits.Jpeg图片处理组件