如何用asp读取excel文件

Posted 2023-04-14

Dim Conn,Driver,DBPath,Rs
'建立Excel的Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver=Microsoft Excel Driver (*.xls);"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open方法打开数据库
Conn.Open Driver & DBPath
'设置DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要按照 "[表名$]" 格式书写
Sql="Select * From [Sheet1$] where 序号=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
　Response.write "数据未找到!!"
Else
　Do While Not Rs.EOF
　 Response.write Rs("书名")
　Rs.MoveNext
　Loop
End IF 参考技术A 代码如下：

asp读取excel部分内容
代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim connString
Dim RS1
connString= "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=D:\wwwroot\sample.xls;Persist Security Info=False"
Set RS1=Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = connString
'RS1.Source = "SELECT * FROM admin"
RS1.Source = "SELECT * FROM [Sheet1$]"
RS1.Open()
%>
<div align="center">
<table border="0"><tr><td height="12"></td></tr></table>
<table width="960" align="center" border="1" style="BORDER-COLLAPSE: collapse" borderColor="#cccccc" cellSpacing="0" bgColor="#fffff">
<% while ((NOT RS1.EOF)) %>
<tr height="25">
<td align="left"> <%=(RS1.Fields.Item("订单时间").value)%></td>
<td><%=(RS1.Fields.Item("订单编号").value)%></td>
<td><%=(RS1.Fields.Item("旺旺名称").value)%></td>
<td><%=(RS1.Fields.Item("买家姓名").value)%></td>
<td><%=(RS1.Fields.Item("手机号码").value)%></td>
<td><%=(RS1.Fields.Item("支付金额").value)%></td>
<td><%=(RS1.Fields.Item("拿货成本").value)%></td>
<td><%=(RS1.Fields.Item("快递费用").value)%></td>
<td><%=(RS1.Fields.Item("服务费").value)%></td>
<td><%=(RS1.Fields.Item("利润").value)%></td>
</tr>
<% RS1.MoveNext()
Wend %>
</table>
</div>
<%
RS1.Close()
Set RS1 = Nothing
%>

请问如何用ASP读取ini配置文件

请问如何用ASP读取ini配置文件中的内容，比如说：
建立一个index.asp的页面，里面的新闻的“标题”和“链接地址”是要由news.ini配置文件中读出，只要在news.ini中提供“标题”和“链接地址”，这些就会出现在index.asp页面中！
需要index.asp和news.ini的全部代码！谢谢！我的QQ：331619444

假设你用scripting.filesystemobject或者adodb.stream组件来读文件内容
那么判断ip 和 name 的值是是要写很复杂的东西，而且效率也不高。

那么怎么解决这个问题呢？
建议你用xml
把system.ini改写为system.xml

如下：
<system>
<ip name=123 >192.168.0.1</ip>
</system>

通过xmldom的读数节点，就很容易实现。
'创建DOM对象
set objDom=server.CreateObject("MicroSoft.XMLDom")

'取得XML数据
objDom.load(Server.Mapth("system.xml"))
set objtofind=objdom.documentElement.SelectSingleNode("//system/ip")

'取出这个节点对象的 节点名，节点值，某个属性值，和全部的XML

nodename=objtofind.nodename
nodevalue=objtofind.text
objtofind.GetAttributeNode("name").NodeValue '属性名为name的属性值
'取出一个属性节点对象

set objattrtofind=objdom.documentElement.SelectSingleNode("//system/ip"). GetAttributeNode("name")

'取出这个节点的属性名，属性值
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.nodevalue

遍历这个集合

for each element in objnodes
response.write element.nodename
response.write element.text
next

不管你system下有多少子类，都可以读出来,你只要按xml格式写 参考技术A ini要自己写代码解析啊。
xml的话就好用了 参考技术B 你查一下JSCRIPT的文档 然后找fso那一段 我想你看完自然就会了