解决|上传|数据|数据库|无组件
曾一度为图片与文字上传至数据库困扰，《化境无组件上传图片2.0》写得很好，但不是完全适合自己。经过认真阅读源代码、修改与测试，将其改为无组件上传多条文字信息与多张图片至数据库。并在iis5+access2000+asp测试通过。现把源代码公布，希望能对那些曾经也被这问题困扰的朋友有所帮助。同时希望各位同道斧正。
声明：《化境无组件上传图片2.0》并非我写的，在此对《化境无组件上传图片2.0》的作者真诚说声：谢谢！
代码如下:
upfile.index ---------------------------------------------------------------------------------------
<!-- 郑 重 声 明
这是免费代码，从《化境无组件上传图片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="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 uplo