亚洲午夜精品一区二区_亚洲精品无码mv在线观看

我們的專業(yè)品牌服務(wù)商：網(wǎng)站建設(shè)、品牌策劃設(shè)計、網(wǎng)站優(yōu)化、網(wǎng)站推廣等業(yè)務(wù)

專業(yè)的互聯(lián)網(wǎng)絡(luò)解決方案、完善的售后服務(wù)體系 —— 龍誠互聯(lián)(溫州網(wǎng)絡(luò)公司溫州網(wǎng)站建設(shè)),當前IP:

龍誠簡介 | 企業(yè)文化 | 我們的優(yōu)勢 | 龍誠人 | 招兵募馬

龍誠動態(tài) | 行業(yè)新聞 | 我們的觀點 | 公司公告

標準企業(yè)站 | 外貿(mào)商務(wù)站| 商城門戶站 | 品牌動畫站 | 在線訂制

聯(lián)系方式 | 留言反饋

- 龍誠動態(tài)
  
  行業(yè)新聞
  
  我們的觀點
  
  公司公告
  
  建站技術(shù)
  
  網(wǎng)站SEO優(yōu)化
  
  網(wǎng)站制作流程
  
  產(chǎn)品報價
  - 聯(lián)系電話：0577-55882408
  - 傳真號碼：0577-55882411
  - 聯(lián)系手機：15224122065
  - 聯(lián)系地址：溫州市甌海站南商貿(mào)城C幢306
- - 首頁-新聞中心-建站技術(shù)
  <p>upload.asp <html> <head> <title>上傳文件</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css/css.css" rel="stylesheet" type="text/css" /> </head> <script> if (top.location==self.location) { top.location="index.asp" } </script> <body leftmargin="0" topmargin="0"> <table width="100%" border=0 cellspacing=0 cellpadding=0> <form name="form" method="post" action="readxls.asp" enctype="multipart/form-data"> <tr> <td> <input name="file1" type=file class=input-text size="30"> <input type=submit name="submit" value="導(dǎo)入數(shù)據(jù)" style="width:70px; height:19px;" > </td> </tr> </form> </table> </body> </html> -------------------------------------- -------上傳并且寫入庫----------- readxls.asp <<a href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT</a>" CODEPAGE="936"%>   <html xmlns="<a >http://www.w3.org/1999/xhtml</a>"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>EXECL數(shù)據(jù)導(dǎo)入</title> <style type="text/css">  </style> </head> <body> <% session.CodePage=936 Server.ScriptTimeOut=600000 set upload=new upload_5xsoft set file=upload.file("file1") if file.fileSize>120000 then %> <script> alert("您選擇的文件過大!"); window.close(); </script> <% end if if file.fileSize>0 then filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now) filename=filename+"." filenameend=file.filename filenameend=split(filenameend,".") if filenameend(1)="xls" then filename=filename&filenameend(1) file.saveAs Server.mappath("uploadfile/"&filename) else response.write "數(shù)據(jù)格式不對！" response.write "<a href=upload.asp>返回</a>" response.end() end if set file=nothing else response.write "文件不能為空！" response.write "<a href=upload.asp>返回</a>" response.end() End if set upload=nothing '上傳XLS文件結(jié)束，下面從上傳的XLS文件中讀取數(shù)據(jù)寫入到SQL數(shù)據(jù)庫 strAddr=server.MapPath("uploadfile/"&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,1 if not(rs.bof and rs.eof) then rs.movenext do while not rs.eof sql1="select * from [Fees_Asse_T] where id is null" rs1.open sql1,conn,1,3 rs1.addnew rs1("Cate_Code")=rs(0) rs1("Asse_Code")=rs(1) rs1("Asse_Name")=rs(2) rs1("Categories")=rs(3) 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 %> <script> alert("數(shù)據(jù)導(dǎo)入成功！"); window.parent.document.location.reload(); history.back(); </script> </body> </html> <br /> </p>

久久无码视频高清_亚洲中文字幕%20久久久_九九九热在线视频_国产色A∨在线看免费