提取文件夹中所有TXT中所需信息并导入数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

Set fso = Server.CreateObject("Scripting.FileSystemObject")

on error resume next

Set objFolder=fso.GetFolder("C:\Jerry\ASP\WEB\wwwroot\getdata") Set objFiles=objFolder.Files

'循环输出文件夹path下的文件的文件名

For each objFile in objFiles '取相关值

txtname=""

name1=""

school=""

sex=""

qq=""

msn=""

telephone=""

if objFile.Type="Text Document" then

Response.Write "
"+ & "
"

txtname=

'判断是否有相同的文件名

Set rs2 = Server.CreateObject("ADODB.Recordset")

sql="select * from dbo.data1 where txtname="&txtname

rs2.Open sql,objConn,1,3

if rs2.eof=true then

'读取文档

dim fso

dim path

set fso=server.createobject("scripting.filesystemobject")

path = objFile.Path

set file = fso.opentextfile(path,1,true)

if not file.atendofstream then

line=file.ReadAll

end if

'提取姓名

response.write ("姓名:")

n=instr(line,"帐号 <#>")

m=instr(line,"装扮主页

修改资料")

if m=0 then'提取物修改资料这块的账户姓名

line=right(line,len(line)-n-13)

i=instr(line,"\x{")

if i<5 and i<>0 then

name1=mid(line,1,i-1) else

name1=mid(line,1,3)

end if

response.write name1+"
" else

line=right(line,len(line)-m-127)

i=instr(line,"\x{")

if i<5 then

name1=mid(line,1,i-1) else

name1=mid(line,1,3)

end if

response.write name1+"
" end if

'提取所在学校

str2="所在学校:"

str3="生日:"

str4="<"

str5=">"

n=Instr(line,str2)

m=Instr(line,str3)

if n<>0 then

school=mid(line,n+11,m-n-11)

response.write "所在学校："+school+"
"'提取了所在大学end if

'提取生日

line=right(line,len(line)-m+1)

n=Instr(line,str4)

year1=mid(line,1+9,n-10)

'提取了年份

line=right(line,len(line)-n)

n=Instr(line,str5)

m=instr(line,str4)

month1=mid(line,n+1,m-n-1)

'提取了月份

line=right(line,len(line)-m)

n=Instr(line,str5)

m=instr(line,str4)

day1=mid(line,n+1,m-n-1)

'提取了日

birthdate=replace(year1&month1&day1," ","")

response.Write ("生日:"+birthdate+"
")'显示生日

'提取了性别

n=instr(line,"性别 :")