如何将一个TXT文档里内容导入到文本框里

时间:2014-05-08 11:27:36
【文件属性】:

文件名称:如何将一个TXT文档里内容导入到文本框里

文件大小:2KB

文件格式:RAR

更新时间:2014-05-08 11:27:36

导入TXT 文本TXT ASP读取TXT

第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) 无标题文档


JS读取文本文件的内容并赋值给textarea控件





已导入:0 条记录


第二个文件ajax_txt_save.asp的代码: (此页是用ASP中的FSO来读取txt文本文件中的内容并输出,为ajax_txt.asp这个页面的AJAX异步获取提供数据) <% '//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页 Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Dim objFSO Dim objText Dim ObjFile Dim strTextContent Dim objDrive '创建一个文件操作对象实例 Set objFSO = CreateObject("Scripting.FileSystemObject") '要打开的文件 ObjFile=trim(request("filesname")) '从文浏览控件中获取 IF objFSO.FileExists(ObjFile) then Set objText = objFSO.OpenTextFile(ObjFile,1) '循环读取数据 k=0 While not objText.AtEndOfStream '到文件的末尾 strTextContent = strTextContent & objText.ReadLine() & vbcrlf k=k+1 wend objText.Close response.write strTextContent & "," & k else strTextContent= "文件不存在" response.end() end if %> 以上代码经测试,100%能使用,且不受浏览器的安全级别限制,祝你好运!


【文件预览】:
新建 文本文档.txt

网友评论

  • 完全运行不起来,直接拿了百度问答里面别人的回答复制了一下!!!
  • 看代码规则还不错 当学习了
  • 可以吧,需要调试下
  • 就是把txt复制到文本了一下,经过测试冒失是运行不起来的