当前位置：网站首页 > 资源显示

aspFSO逐行导入TXT文件

发布时间：2017/5/1 16:14:34 / 最后修改：2017-5-1 16:16:17 / 浏览：564

'---- 注意替换这个地址---
filename=replace(filename,"C:\fakepath\","C:\Documents and Settings\Administrator\桌面\t\")

非上传选择框，默认都是 C:\fakepath\ 文件的虚拟地址，需要换成本地实际地址才可以导入
C:\Documents and Settings\Administrator\桌面\t\ 就可以定义为文件所在的文件夹地址

完整代码（代码框可以往下拉高显示）：

<SCRIPT language=javascript id=QzeNet> 

</SCRIPT>
<%
if request.QueryString("act")="daoru" then
dim filename
filename=trim(Request("fileurl"))

'----
if filename="" then
response.Write("<script>alert('请选择导入的文件!');window.location.href='?';</script>")
response.End()
end if
'----
if instr(LCase(filename),".txt")<1 then
response.Write("<script>alert('文件格式必须是TXT文本格式!');window.location.href='?';</script>")
response.End()
end if
'---- 注意替换这个地址---
filename=replace(filename,"C:\fakepath\","C:\Documents and Settings\Administrator\桌面\t\")
'response.Write(filename)
'response.End()
'----------------------------------------------
dim ObjFso,ObjHtml,arrayStr
set ObjFso=server.CreateObject("Scripting.FileSystemObject")
set ObjHtml=ObjFso.OpenTextFile(filename,1,false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
dim i
i=0
While Not ObjHtml.AtEndOfStream
'--- 导入 ----
AddTestMsg ObjHtml.ReadLine
i=i+1
Wend
ObjHtml.Close
response.Write("<br /><a href='?'><font color=red>成功导入"&i&"条数据</font>，立即返回继续导入数据！</a>")

ObjHtml.close
set ObjHtml=nothing
'-------------------------
function AddTestMsg(title)
dim rs
set rs=conn.execute("if not EXISTS(select title from test_msg where title='"&title&"') insert into test_msg(title) values('"&title&"')")
end function
'-------------------------

else
%>
请指定需要导入的文件（严格TXT格式，一行一条数据）<br />
<form name="yuyue" id="yuyue" method="post" action="?act=daoru">
  <input type="file" name="txtfile" id="txtfile" onpropertychange="show();" />
  <input name="fileurl" type="hidden" id="fileurl" size="80" />
<input type="submit" name="tj" id="tj" value="提交" />
</form>
<%end if%>

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区