5个回答
展开全部
（一）准备工作，总共需要4个文件 3个asp文件 upload.asp uploadsave.asp upload_asjob.asp 还有一个图片上传到文件夹uppic （一个文件夹，上传的图片就传到里面）
（二）upload.asp 这是个上传图片的表单
代码如下：
Copy code <% Response.Buffer=True %>
<html>
<head>
<title>图片上传</title>
</head>
<body background="images/bg.gif" topmargin="30" style=""><div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="420" id="AutoNumber69" bgcolor="#F5F5F5">
<tr>
<td width="100%" bgcolor="#F5F5F5" bordercolor="#F5F5F5"><form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
<p align="center"><span style="font-size: 12px">图片上传:</span><br>
<br>
<INPUT type="file" class="f11" name="file1" size="23"><br>
<br>
<input type=submit name="submit" value="上 传" class=anniu >
<br>
<br>
<span style="font-size: 12px">文件格式为<font color="#EC5106">*.gif,*.jpg,*.jpeg
</font>
</span></p>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>
代码解释：
(1)<% Response.Buffer=True %>这是控制缓冲 缺省值为ture
(2)<form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
这里要注意的是enctype="multipart/form-data" 一定要multipart/form-data 因为我们上传的是图片 不是文字 类型要与图片匹配 <%
option explicit
dim conn,DBPath
dim rs,sql
'取得参数id
dim id
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from photo where id=" &id
rs.open sql,conn,1,1
'显示图片
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("img")
rs.close
'释放对象
set rs=nothing
set conn=nothing
%>
这是显示一张的图片的asp源码，相应的地方也应该需要改一改吧
sql="select * from photo where id=" &id
这里可能需要修改一下表单名，然后 where id 后面的条件也应该需要改一改
（二）upload.asp 这是个上传图片的表单
代码如下：
Copy code <% Response.Buffer=True %>
<html>
<head>
<title>图片上传</title>
</head>
<body background="images/bg.gif" topmargin="30" style=""><div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="420" id="AutoNumber69" bgcolor="#F5F5F5">
<tr>
<td width="100%" bgcolor="#F5F5F5" bordercolor="#F5F5F5"><form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
<p align="center"><span style="font-size: 12px">图片上传:</span><br>
<br>
<INPUT type="file" class="f11" name="file1" size="23"><br>
<br>
<input type=submit name="submit" value="上 传" class=anniu >
<br>
<br>
<span style="font-size: 12px">文件格式为<font color="#EC5106">*.gif,*.jpg,*.jpeg
</font>
</span></p>
</form>
</td>
</tr>
</table>
</center>
</body>
</html>
代码解释：
(1)<% Response.Buffer=True %>这是控制缓冲 缺省值为ture
(2)<form name="form1" method="post" action="uploadsave.asp" enctype="multipart/form-data">
这里要注意的是enctype="multipart/form-data" 一定要multipart/form-data 因为我们上传的是图片 不是文字 类型要与图片匹配 <%
option explicit
dim conn,DBPath
dim rs,sql
'取得参数id
dim id
id=request("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from photo where id=" &id
rs.open sql,conn,1,1
'显示图片
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("img")
rs.close
'释放对象
set rs=nothing
set conn=nothing
%>
这是显示一张的图片的asp源码，相应的地方也应该需要改一改吧
sql="select * from photo where id=" &id
这里可能需要修改一下表单名，然后 where id 后面的条件也应该需要改一改
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你说的让人不明白，到底是你自己的网站还是别人的网站会员管理中心，如果是自己的网站好做，你可以在相应的地方增加一个广告，然后用FTP工具把图片上传到一个文件夹里，在用DW页面工具做一个图片广告代码，把图片地址写在代码里，放在后台的那个广告位里就可以了。 晕，你到底懂不懂啊，不管是什么ASP，HPH，什么动态的，什么静态的，都是一样的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
例如：图片放在你项目中的 image 文件夹下，前台显示的时候 <img src="images/xxx.gif>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
