<% if file.fileSize>0 then ??? filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) ??? filename=filename+"." ??? filenameend=file.filename ?filenameshow=file.filename ??? filenameend=split(filenameend,".") ??? if filenameend(1)="xls" then ??????? filename=filename&filenameend(1) ??????? file.saveAs Server.mappath("uploadfiles/"&filename) ??? else ??????? response.write "数据格式不对!" ??????? response.write "返回" ? response.end() ??? end if ??? set file=nothing else ??????? response.write "文件不能为空!" ??????? response.write "返回" ? response.end() End if set upload=nothing '上传XLS文件结束,下面从上传的XLS文件中读取数据写入到SQL数据库 ?? strAddr=server.MapPath("uploadfiles/"&filename) ?? set excelconn=server.createobject("adodb.connection") ?? excelconn.open "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "+strAddr+";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'" ?set rs=server.CreateObject("adodb.recordset") ?set rs1=server.CreateObject("adodb.recordset") ?sql="select * from [Sheet1$]" ?rs.open sql,excelconn,1,3 ?if not(rs.bof and rs.eof) then ? rs.movenext ? do while not rs.eof ? 'response.Write(rs(1)) ? 'response.End() ??? sql1="select * from member" ??? rs1.open sql1,conn,3 ??? rs1.addnew ?????? Randomize username="" Do While Len(username)<8 '随机密码位数 num1=CStr(Chr((57-48)*rnd+48)) '0~9 'num2=CStr(Chr((90-65)*rnd+65)) 'A~Z num3=CStr(Chr((122-97)*rnd+97)) 'a~z username=username&num1&num3 loop rs1("username")=username rs1("password")="bb0391ec1d7bda99"'bamboo123456 if rs(0)<>"" then?? ?rs1("company")=rs(0) end if?? if rs(1)<>"" then?? ?rs1("realname")=rs(1) end if?? if rs(2)<>"" then?? ?rs1("sex")=sexn(rs(2)) end if if rs(3)<>"" then?? ?rs1("prof")=rs(3) end if if rs(4)<>"" then?? ?rs1("tel")=rs(4) end if if rs(5)<>"" then?? ?rs1("mobile")=rs(5) end if if rs(6)<>"" then?? ?rs1("address")=rs(6) end if if rs(7)<>"" then?? ?rs1("area")=getclassdname(rs(7),"area","cn") end if if rs(8)<>"" then?? ?rs1("city")=getclassdname(rs(8),"cn") end if if rs(9)<>"" then?? ?rs1("fax")=rs(9) end if if rs(10)<>"" then?? ?rs1("comtype")=comtypem(rs(10)) end if if rs(11)<>"" then?? ?rs1("operation")=rs(11) end if rs1("passed")=1 rs1("activated")=1 rs1("lastlogintime")=now() ?? rs1.update ?? rs1.close ?? rs.movenext ? loop ?end if ?rs.close()? ?set rs=nothing ?set rs1=nothing ?excelconn.Close()?? ?set excelconn=nothing ?conn.close() ?set conn=nothing ?function sexn(str) ?select case str ?case "男" ?sexn=0 ?case "女" ?sexn=1 ?end select end function
function comtypem(str) ?select case str ?case "竹制品" ?comtypem=0 ?case "竹机械" ?comtypem=1 ?end select end function
function getclassdname(str,tablename,lang) If Not IsNumeric(id) Then Exit Function set rs2=conn.execute ("select top 1 id from "& tablename &" where classname like '%"&str&"%'") if not rs2.eof Then ?If lang<>"" Then ??If lang="cn" Then ???getclassdname=getclassdname & rs2(0) ??ElseIf lang="en" Then ???getclassdname=getclassdname & rs2(0) ??End If ?End If else ?getclassdname=0 end if rs2.close End Function %> ? ??? | ? |
? ???