你的位置:| 首页网站建设asp上传图片到文件夹路径到access数据库→文章正文  
文章导航


asp上传图片到文件夹路径到access数据库

首先建立一个总文件夹作为服务器文件夹,之后建一个子文件夹名为pic,在服务器文件夹下建立一个数据库为pic.mdb,其他 具体的代码如下:
1.conn.asp:

<%
dim conn
dim connstr
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("pic.mdb")
conn.open connstr
%>

2.index.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片显示</title>
</head>

<body bgcolor="#999933">
<table width="500" border="1" bordercolor="#00FF00" align="center">
<tr>
<td width="37%"><div align="center">图片编号</div></td>
<td width="63%"><div align="center">图片显示</div></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from pic"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.Write("数据库中暂无资料!请<a href='upload.asp'>上传</a>!")
else
do while not rs.eof or rs.bof
%>
<tr>
<td width="37%"><div align="center"><%=rs("id")%></div></td>
<td width="63%"><div align="center"><img src=<%=rs("pic")%>></div></td>
</tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%>
<tr>
<td width="37%"><div align="center"><a href="chuli.asp">上传照片</a></div></td>
<td width="63%"><div align="center"><a href="shanchu.asp">删除照片</a></div></td>
</tr>
</table>
</body>
</html>

3.chuli.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<!--#include file="conn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片显示</title>
</head>
<body>
<form action="chuli.asp" method="post" enctype= enctype="multipart/form-data" name="form1">
<input type="file" name="f1">
<input type="submit" name="Submit" value="提交">
</form>
</body>
<%
on error resume next
dim a,b,c
c= Server.CreateObject("scripting.filesystemobject")
a=request("f1")
for i=1 to len(a)
b=mid(a,len(a)-i+1,1)
if b="\" then
exit for
end if
c=b+c
next
c="pic\"&c
response.Write(c)
%>
<%
dim t1,t2,t3
t1=a
t2=server.MapPath(c)
if t1<>"" then
set t3=server.CreateObject("scripting.filesystemobject")
t3.copyfile t1,t2,true
set rs=server.CreateObject("adodb.recordset")
sql="select * from pic"
rs.open sql,conn,1,3
rs.addnew
rs("pic")=c
rs.update
rs.close
response.Redirect("index.asp")
set rs=nothing
set conn=nothing
end if
%>
</html>

  上一页 1 2 3 4 5 下一页
 
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553