readword.asp

来自「办公软件之间的数据交换,可以把WORD文件和EXCEL文件中的数据添加到WEB服」· ASP 代码 · 共 61 行

ASP

61 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
   <%
  ffname1=request.form("ffname")
   filepath="up\updown\"&ffname1
 ' response.write filepath
  
  
    set newconn=server.createobject("adodb.connection")
	set rs=server.createobject("adodb.recordset")
	DBPath = Server.MapPath("#ctm wish.mdb")
	newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
	sqlcmd="select * from student_info "
	rs.Open sqlcmd,newconn,1,2
	
   Dim fso,fso1, MyFile,myfile1
   Set fso = CreateObject("Scripting.FileSystemObject")
   'Set MyFile = fso.openTextFile(server.MapPath(filepath), 1,false)
   Set MyFile = fso.openTextFile(server.MapPath(filepath), 1,false)

    public namearray
  do while not myfile.atendofstream
 	   aa=myfile.readline  
          response.write  aa    
       hname=replace(aa,"    "," ")    '用一个空格替换四个空格
       hname=replace(hname,"  "," ")   '用一个空格替换三个空格
       hname=replace(hname,"  "," ")   '用一个空格替换二个空格
      
        response.write pname
        response.write "<br>"
       namearray=split(hname," ")
        max=ubound(namearray)
     
                 rs.addnew
		 rs(1)=namearray(0)
		 rs(2)=namearray(1)
		 rs(3)=namearray(2)
		 rs(4)=namearray(3)
		 rs(5)=namearray(4)
		 rs(6)=namearray(5)
		 rs.update

   


loop

response.Redirect("11.asp")

   %>

</head>

<body>
<a href="index.asp">返回主页</a>
</body>
</html>

readword.asp - 源码说明

本页面展示了「办公软件之间的数据交换,可以把WORD文件和EXCEL文件中的数据添加到WEB服务器,也可以从WEB服务器中下载数据到本地电脑.」中的 readword.asp 源码文件，采用 ASP 编程语言编写，共 61 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Office集成相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?