查看: 423|回复: 1

如何用ASP批量导入文本数据到SQL2000(难)

[复制链接]

小飞俠

电梯直达

1^#

发表于 2010-1-14 05:18:48 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

如何用ASP批量导入文本数据到SQL2000中呢？文本数据中间用“~~”分开。我试了几次都不行。还请大家给帮帮忙！在这里谢谢了。
文本数据为：
3~~0~~3400034170
（代码如下：）


<html>
<head>
<meta http-equiv="refresh" content="15;url=deltext.asp">
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title></title>
</head>
<body leftmargin="0" marginwidth="0" oncontextmenu="JavaScrip:return false" onselectstart="return true" oncopy="return true;" oncut="return true;" onpaste="return true">
</body>
<body >
<align="center">
数据正在处理中,创建临时文件.请稍候...
 
<align="center">
<%
dim file(50)
str=server.mappath("/")
' 取得服务器根目录
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(str & "\daoru")
Set fc = f.Files
k=1
For Each f1 in fc
file(k)=f1.name
' 得到该路径下所有文件名
k=k+1
next
%><% ii=1%>
<%
set fs = CreateObject("Scripting.FileSystemObject")%><%
while ii<k
response.write file(ii) & " "
set textinstance=fs.opentextfile(str & "\daoru\" & file(ii),1,false,false)
' 打开文件来读数据
while textinstance.atendofstream<> true
' 如果文件没有结束
visitornum=textinstance.readline
' 读进一行数据
j=0
cd=len(visitornum)
for i=1 to cd
if mid(visitornum,i,2)="~~" then
' 数据之间以"~~"隔开
j=j+1
else
select case j
' 分别取得各数据值
case 0
me1=me1+mid(visitornum,i,1)
case 1
me2=me2+mid(visitornum,i,1)
case 2
me3=me3+mid(visitornum,i,1)
'case 3
'me4=me4+mid(visitornum,i,1)
'case 4
'me5=me5+mid(visitornum,i,1)
'case 5
'me6=me6+mid(visitornum,i,1)
'case 6
'me7=me7+mid(visitornum,i,1)
'case 7
'me8=me8+mid(visitornum,i,1)
'case 8
'me9=me9+mid(visitornum,i,1)
end select
end if
next
response.write me1&""&me2&""&me3&""&" "
set rs=server.createobject("adodb.recordset")
sql="select * from a"
rs.open sql,conn,1,3
'if not rs.eof then
'response.write "<script>alert('数据库中已经存在串号为："&me5&"');location.href='pub_xsdr.asp'</script>"
'else
' 打开数据库进行追加操作
if rs.eof=true then
on error resume next
rs.movelast
rs.movefirst
on error resume next
end if
rs.addnew
' 增加一条记录
rs("a1")=me1
rs("a2")=me2
rs("a3")=me3
'rs("a4")=me4
'rs("a5")=me5
'rs("a6")=me6
'rs("a7")=me7
'rs("a8")=me8
'rs("a9")=me9
rs.update
' 更新数据
rs.close
'end if
me1=""
me2=""
me3=""
'me4=""
'me5=""
'me6=""
'me7=""
'me8=""
'me9=""
wend
ii=ii+1
wend
%>
<align="center">恭喜,数据创建处理完毕!请等待15秒删除临时文件

</body>
</html>

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册