无组件上传文字与图片至数据库之gztiger解决方案
敬业的IT人
互联网
佚名
2008-1-31 2:22:59
<!-- 郑 重 声 明
这是免费代码，从《化境无组件上传图片2.0》修改而来，目的只为对这问题有困扰的朋友有所帮助，
并对《化境无组件上传图片2.0》的作者说声：谢谢！本代码在iis5+access2000+ASP测试通过
——gztiger
-->
<HTML>
<head>
<title>化境编程界无组件上传文字与图片至数据库之gztiger解决方案 修改者：gztiger </title>
<meta http-equiv="Content-Type" content="text/HTML; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="upfile.ASP" enctype="multipart/form-data" >
<table border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#CCCCCC" width="91" height="23">
<tr>
<td align="left" valign="middle" height="18" width="18"> </td>
<td bgcolor="#CCCCCC" align="left" valign="middle" height="18" width="67"> 文件上传</td>
</tr>
</table>
<table width="71%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr bgcolor="#CCCCCC">
<td height="22" align="left" valign="middle" bgcolor="#CCCCCC"> 化境编程界文件上传修改版
修改者：<a href=http://www.pcdog.com/network/case/04/12/"mailto:gztiger@21cn.com">gztiger</a> </td>
</tr>
<tr align="left" valign="middle" bgcolor="#eeeeee">
<td bgcolor="#eeeeee" height="92">
<!--此处可任意添加多个文本与文件框
在upfile.ASP中对应添加TextN=Trim(upload.form("TextN")) 、Rs("imagedataN")=Image_Set(N)
回显提交信息就不用说了 ,数据库表中亦要添加相对字段名:)
-->
文本框1:<input type="text" name="Text1" value="图片与文本上传测试1" ><br>
文本框2:<input type="text" name="Text2" value="图片与文本上传测试2" ><br>
文本框3:<input type="text" name="Text3" value="图片与文本上传测试3" ><br>
图象1 :<input type="file" name="Image1" style="width:400" value=""><br>
图象2 :<input type="file" name="Image2" style="width:400" value=""><br>
图象3 :<input type="file" name="Image3" style="width:400" value=""><br>
文本框4:<input type="text" name="Text4" value="图片与文本上传测试4" ><br>
文本框5:<input type="text" name="Text5" value="图片与文本上传测试5" ><br>
文本框6:<input type="text" name="Text6" value="图片与文本上传测试6" ><br>
文本框7:<input type="text" name="Text7" value="图片与文本上传测试7" >
</td>
</tr>
<tr align="center" valign="middle" bgcolor="#eeeeee">
<td bgcolor="#eeeeee" height="24"> <input type="submit" name="Submit" value="提 交" class="bt">
<input type="reset" name="Submit2" value="清 空" class="bt"> </td>
</tr>
</table>
</form>
</body>
</HTML>
upfile.ASP -----------------------------------------------------------------------------------------
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="upload_5xsoft.inc"-->
<title>化境编程界文件上传修改版 修改者：gztiger </title>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象
Text1=Trim(upload.form("Text1")) '----获取表单文本框信息(原来代码用for循环)-目的为了说明获取文本框信息的方法
Text2=Trim(upload.form("Text2"))
Text3=Trim(upload.form("Text3"))
Text4=Trim(upload.form("Text4"))
Text5=Trim(upload.form("Text5"))
Text6=Trim(upload.form("Text6"))
Text7=Trim(upload.form("Text7"))
iCount=0
n=1
response.write "<br>"
for each formName in upload.objFile ''------------------列出所有上传了的文件
set file=upload.file(formName) ''--------------------生成一个文件对象
Image_countn=Image_countn&","&file.FileName '----------把图象名做成数组
if file.FileSize>0 then ''------------------------如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath("img/"&file.FileName) ''----------保存文件
end if
n=n+1
set file=nothing
next
set upload=nothing '-------------------------------'删除此对象
Image_Set=split(Image_countn,",")'---------------------返回数组
'------添加信息到数据库-------------------------------------
Connstr="DBQ="+server.mappath("database\img_text.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.createobject("ADODB.Connection")
Conn.Open Connstr
Set Rs=Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from imgdata"
Rs.Open Sqlstr,Conn,1,3
if not rs.eof then
id=Rs("id")+1
else
id=1
end if
Rs.Addnew
Rs("Text1")=Text1
Rs("Text2")=Text2
Rs("Text3")=Text3
Rs("Text4")=Text4
Rs("Text5")=Text5
Rs("Text6")=Text6
Rs("Text7")=Text7
Rs("imagedata1")=Image_Set(1)
Rs("imagedata2")=Image_Set(2)
Rs("imagedata3")=Image_Set(3)
Rs.Update
Rs.Close
Set Rs=Nothing
upload_ok=true
if upload_ok=true then
'-------回显提交信息---------------------------
response.Write("您上传的信息如下："&"<br>")
Connstr="DBQ="+server.mappath("database\img_text.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.createobject("ADODB.Connection")
Conn.Open Connstr
Set Rs=Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from imgdata order by id desc"
Rs.Open Sqlstr,Conn,1,1
%>
文本1:<%=Rs("Text1")%><br>
文本2:<%=Rs("Text2"
- 最新文章
- 无组件上传图片到数据库中，最完整解决方案，（可限制图片格式以..[01-31]
- hibernate的中文问题的解决方案[01-31]
- 奥运门票预售系统崩溃 Radware专家支招献策[01-31]
- PHPBB MOD for Google 完全解决方案[01-31]
- 赛门铁克误杀系统文件 官方已出解决方案[01-31]
- 爱立信将向埃及电信提供光宽带解决方案[01-31]
- 相关文章
- 无组件上传图片到数据库中，最完整解决方案，（可限制图片格式以..[01-31]
- hibernate的中文问题的解决方案[01-31]
- PHPBB MOD for Google 完全解决方案[01-31]
- 赛门铁克误杀系统文件 官方已出解决方案[01-31]
- 爱立信将向埃及电信提供光宽带解决方案[01-31]
- 博科推出新FICON-over-IP 解决方案[01-31]
