如何将文本文件上传到数据库中
<!--#include file="../common/connection.asp"-->
<!--#include file="../common/error.asp"-->
<%
'*************************
'e3.asp 上传服务器files文件夹下.txt文件至数据库
'e5.asp 从数据库下载.txt文件
function rq(text)
if isnull(text) then
rq=text
else
rq=year(text)&"/"&month(text)&"/"&day(text)
end if
end function
path=Server.MapPath("files")
filename=session("id")&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".txt" '用上传年月日时分秒命名
file=path&"\"&filename
'上传文件
set fs=server.createobject("Scripting.FileSystemObject")
set obS=fs.createTextFile(file,True,False)
colname = "Registr"&chr(9)
colname = colname & "Reco"&chr(9)
colname = colname & "Chec"&chr(9)
colname = colname & "Pers"&chr(9)
colname = colname & "Updated"&chr(9)
colname = colname & "Caseno"&chr(9)
colname = colname & "Hosp"&chr(9)
colname = colname & "Reportd"&chr(9)
colname = colname & "Doct"&chr(9)
colname = colname & "Names"&chr(9)
colname = colname & "Pinyin"&chr(9)
colname = colname & "Idno"&chr(9)
colname = colname & "Sex"&chr(9)
colname = colname & "Age"&chr(9)
colname = colname & "Birthda"&chr(9)
colname = colname & "Mari"&chr(9)
colname = colname & "Trib"&chr(9)
colname = colname & "Occu"&chr(9)
colname = colname & "Addcode"&chr(9)
colname = colname & "Address"&chr(9)
colname = colname & "Inciden"&chr(9)
colname = colname & "Topo"&chr(9)
colname = colname & "Morp"&chr(9)
colname = colname & "Beha"&chr(9)
colname = colname & "T"&chr(9)
colname = colname & "N"&chr(9)
colname = colname & "M"&chr(9)
colname = colname & "Grad"&chr(9)
colname = colname & "Basi"&chr(9)
colname = colname & "Icd10"&chr(9)
colname = colname & "Mult"&chr(9)
colname = colname & "MPSeq"&chr(9)
colname = colname & "MPTot"&chr(9)
colname = colname & "Dlc"&chr(9)
colname = colname & "Stat"&chr(9)
colname = colname & "Caus"&chr(9)
colname = colname & "Plac"&chr(9)
colname = colname & "deathda"&chr(9)
colname = colname & "ICCC"&chr(9)
colname = colname & "Surv"&chr(9)
obS.writeline colname '列名称
set rstq=server.createobject("adodb.recordset")
rstq.open sqltq,conn,3,3
if not rstq.bof and not rstq.eof then
for i=1 to rstq.recordcount
coldata = rstq("RegNo")&chr(9)
coldata = coldata &rstq("RecStat")&chr(9)
coldata = coldata &rstq("CheckBj")&chr(9)
coldata = coldata &rstq("PerSearch")&chr(9)
coldata = coldata &rq(rstq("UpdateBj"))&chr(9)
coldata = coldata &rstq("CaseNo")&chr(9)
coldata = coldata &rstq("Hospital")&chr(9)
coldata = coldata &rq(rstq("ReportDa"))&chr(9)
coldata = coldata &rstq("Doctor")&chr(9)
coldata = coldata &rstq("Name")&chr(9)
coldata = coldata &rstq("PinyinN")&chr(9)
coldata = coldata &rstq("IDNo")&chr(9)
coldata = coldata &rstq("Sex")&chr(9)
coldata = coldata &rstq("Age")&chr(9)
coldata = coldata &rq(rstq("BirthDate"))&chr(9)
coldata = coldata &rstq("Marriage")&chr(9)
coldata = coldata &rstq("Tribe")&chr(9)
coldata = coldata &rstq("Occupation")&chr(9)
coldata = coldata &rstq("AddCode")&chr(9)
coldata = coldata &rstq("AddDeta")&chr(9)
coldata = coldata &rq(rstq("IncidDate"))&chr(9)
coldata = coldata &rstq("Topography")&chr(9)
coldata = coldata &rstq("Morphology")&chr(9)
coldata = coldata &rstq("Behaviour")&chr(9)
coldata = coldata &rstq("T")&chr(9)
coldata = coldata &rstq("N")&chr(9)
coldata = coldata &rstq("M")&chr(9)
coldata = coldata &rstq("Grade")&chr(9)
coldata = coldata &rstq("BasisDiag")&chr(9)
coldata = coldata &rstq("ICD10")&chr(9)
coldata = coldata &rstq("Mpcode")&chr(9)
coldata = coldata &rstq("MPSeq")&chr(9)
coldata = coldata &rstq("MPTot")&chr(9)
coldata = coldata &rq(rstq("LastCon"))&chr(9)
coldata = coldata &rstq("LastConStat")&chr(9)
coldata = coldata &rstq("DeathCaus")&chr(9)
coldata = coldata &rstq("DeathPlac")&chr(9)
coldata = coldata &rq(rstq("DeathDa"))&chr(9)
coldata = coldata &rstq("ICCC")&chr(9)
coldata = coldata &rstq("SurvMon")&chr(9)
obS.writeline coldata''逐行写txt文件的内容
rstq.movenext
next
end if
'set obS=nothing '关闭对象,否则 adS.LoadFromFile无法打开文件
set fs=nothing
set rsbf=server.createobject("adodb.recordset")
sqlbf="select fname from zl_txt_jta where lrr='"&session("id")&"' "
rsbf.open sqlbf,conn,3,3
if not rsbf.eof and not rsbf.bof then
set fs=server.createobject("Scripting.FileSystemObject") '删除.txt文件
response.write rsbf("fname")
' response.end
fs.DeleteFile(rsbf("fname"))
set fs=nothing
end if
set rsdel=server.CreateObject("adodb.recordset")
sqldel="delete from zl_txt_jta where lrr='"&session("id")&"' "
conn.execute(sqldel)
set rs=server.createobject("adodb.recordset")
sql="zl_txt_jta"
rs.open sql,conn,3,2
Rs.AddNew '屏蔽为修改,启用为添加
rs.Fields("title").value=title
rs.Fields("fname").value=filename
rs.Fields("lrr").value=session("id")
rs.Fields("lrrq").value=now
rs.Update
rs.close
set rs=nothing
%>
上面执行完后files这个字段存的应是文本文件
为何查询为空呢