excel导入sqlserver（excel导入sqlserver）.docVIP

excel导入sqlserver（excel导入sqlserver） 形式行动=“插入asp”method=“后”的enctype =“multipart/form-data”name=“Form1”onsubmit =“b1_onclick()” 表格宽度=“500”=“1”边境对齐=“中心”cellpadding =“0”=“0”单元格之间的距离 /tr TD colspan =“2”=“bgcolor # 999999”class=“t”选择文件 /tr TD colspan =“2”class=“t” / TD /tr TD宽度=“126”class=“t”选择文件（Excel） 宽度=“368”类=“T” 标签 输入名称=“filexls”type=“文件”=“35” 标签 /tr TD colspan =“2”class=“t” 标签 输入type=“提交”name=“提交”value=“导入数据” 标签 a href =“1122。ASP”class=“t”返回/a 表 表格 ！——#包括虚拟=“/公司/ clsdbctrl asp”-- ！——#包括虚拟=“/公司/功能。ASP”-- % 昏暗的upfile_5xsoft_stream 类upload_5xsoft 格式、文件、版本 私有子class_initialize 朦胧的开始，ifilenamestart，ifilenameend，朋友，vbenter，iformstart，iformend，文件 昏暗的strdiv，mformname，mformvalue，mfilename，mfilesize，mfilepath，idivlen，MSTR 版本=“任翔专用上传程序” 如果请求。totalbytes＜1 Exit Sub 设置形式= CreateObject（“脚本。词典》） 设置文件= CreateObject（“脚本。词典》） 集upfile_5xsoft_stream = CreateObject（“ADODB。流”） upfile_5xsoft_stream模式= 3。 upfile_5xsoft_stream类型= 1。 upfile_5xsoft_stream.open upfile_5xsoft_stream.write请求。BinaryRead（的要求。totalbytes） vbenter = CHR（13）和CHR（10） idivlen =弦（1，vbenter）+ 1 strdiv = substring（1，idivlen） iformstart = idivlen iformend =弦（iformstart，strdiv）- 1 而iformstart iformend 我开始为弦（iformstart，“name =“”“） 朋友=弦（ISTART + 6，“”“”） mformname = substring（ISTART + 6，iend-istart-6） ifilenamestart =弦（借+ 1，“文件名=“”“） 如果ifilenamestart 0和ifilenamestart iformend然后 ifilenameend =弦（ifilenamestart + 10，“”“”） mfilename = substring（ifilenamestart + 10，ifilenameend-ifilenamestart-10） 我开始为弦（ifilenameend + 1，vbenter和vbenter） 朋友=弦（ISTART + 4，vbenter和strdiv） 如果我再借 mfilesize = iend-istart-4 其他的 mfilesize = 0 最后如果 设置为一个文件 文件。文件名=作用：取文件名（mfilename） 文件的文件路径，找到文件的全路径（mfilename）。 文件大小= mfilesize文件。 文件。filestart =我+ 4 formname = formname文件。 file.add mformname，文件 其他的 我开始为弦（借+ 1，vbenter和vbenter） 朋友=弦（ISTART + 4，vbenter和strdiv） 如果我再借 mformvalue = substring（ISTART + 4，iend-istart-4） 其他的 mformvalue =“” 最后如果 添加mformname，mformvalue形式。 最后如果 iformstart = iformend + idivlen iformend =弦（iformstart，strdiv）- 1 走 端子 私有