ASP将Excel数据导入到SQLServer的实现代码
30 浏览量
2021-01-02
09:24:58
上传
评论
收藏 51KB PDF 举报
ASP将将Excel数据导入到数据导入到SQLServer的实现代码的实现代码
代码如下:
<form action=”insert.asp” method=”post” enctype=”multipart/form-data” name=”form1″ onSubmit=”b1_onclick()”>
<table width=”500″ border=”1″ align=”center” cellpadding=”0″ cellspacing=”0″>
<tr>
<td colspan=”2″ bgcolor=”#999999″ class=”t”>选择文件
</td>
</tr>
<tr>
<td colspan=”2″ class=”t”> </td>
</tr>
<tr>
<td width=”126″ class=”t”>选择文件(excel)
</td>
<td width=”368″ class=”t”><label>
<input name=”filexls” type=”file” size=”35″>
</label></td>
</tr>
<tr>
<td colspan=”2″ class=”t”>
<label>
<input type=”submit” name=”Submit” value=”导入数据”>
</label>
<a href=”1122.asp” class=”t”>返回</a>
</td>
</tr>
</table>
</form>
<!–#include virtual=”/inc/clsdbctrl.asp”–>
<!–#include virtual=”/inc/function.asp”–>
<%
dim upfile_5xSoft_Stream
Class upload_5xSoft
dim Form,File,Version
Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version=”任翔专用上传程序”
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject(“Scripting.Dictionary”)
set File=CreateObject(“Scripting.Dictionary”)
set upfile_5xSoft_Stream=CreateObject(“Adodb.Stream”)
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)
vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
while iFormStart < iFormEnd
iStart=inString(iFormStart,”name=”””)
iEnd=inString(iStart+6,””””)
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,”filename=”””)
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,””””)
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
评论0