如何用vbs获取网页中的数据？

比如说你的网页保存为 a.html 以下vbs实现将指定值读出并显示:

set fso=createobject("scripting.filesystemobject")

set file=fso.opentextfile("a.html")'a.html

为网页保存的绝对路径

do while file.atendofstream=false

line=file.readline

select case true

case instr(1,line,"现金")<>0

get_code line,num

a="现金: "&num&vbcrlf

case instr(1,line,"生命")<>0

get_code line,num

b="生命: "&num&vbcrlf

case instr(1,line,"精力")<>0

get_code line,num

c="精力: "&num&vbcrlf

case instr(1,line,"体力")<>0

get_code line,num

d="体力: "&num&vbcrlf

case instr(1,line,"经验")<>0

get_code line,num

e="经验: "&num&vbcrlf

case instr(1,line,"级别")<>0

get_code line,num

f="级别: "&num&vbcrlf

end select

loop

file.close

msgbox a&b&c&d&e&f,4096+64,"温馨提示"

private sub get_code(line,num)

s1=instr(1,line,"：")

s2=instr(1,line,"</p>")

num=mid(line, s1+ 9 ,s2 - s1- 9)

end sub

这里是我些的模板! 具体你自己修改! 有点基本的VBS工底就可以了!

==============================================================

dim cn

dim rs

dim row

dim col

dim viewdata '继承返回的查询结果 将从这里获取查询的返回内容

dim mdbpath '这个是mdb数据库文件路径

dim SQLcmd '这里是SQL语句

dim STRsql '返回的查询结果存放在这个变量里

set cn=CreateObject("ADODB.Connection")

set rs=CreateObject("ADODB.Recordset")

mdbpath="d:\pass.mdb"

cn.Open "DSN=dsnmdbUid=Pwd="

SQLcmd="select * from Pathlist"

rs.Open SQLcmd,cn,,,adCmdText

if rs.bof=false then '如果查询结果有返回的则

viewdata=rs.GetRows

STRsql=""

for row=0 to UBound(viewdata,2) '获取二维数组的长度

for col=0 to UBound(viewdata,1)

strsql=strsql &viewdata(col,row) &" "

next

strsql=strsql &vbcrlf

next

end if

rs.close

cn.close

msgbox strsql

这是复制来的,我之前做过,确实是需要建立DSN数据源,需要去下载mysql驱动

\一种是在ODBC数据源中建立一个DSN。具体方法是：

1、打开控制面板中的ODBD数据源；

2、选择系统DSN，添加一个新的DSN驱动程序；

3、选择MyODBD，出现一个对话框供输入MySQL：

（1）Windows DSN name：所要建立DSN的名称；

（2）MySQL Host (name or ip)：MySQL服务器的名称或IP地址。一般填LocalHost ；

（3） MySQL database name：需要使用数据库的名称。

4、在MySQL管理程序中建立数据库。以数据库chunfeng为例，内有user数据表，两个字段分别是：username和password，我们可以试着加入几个记录：

（1）user：连接数据库的用户名。可填root超级用户；

（2）password：连接数据库用户口令。可不填；

（3）Port(if not 3306)：MySQL在服务器的端口。填默认为3306；

（4）SQL command on connect：使用SQL命令连接数据库。可不填。

全部填完后按OK保存。

好了，我们来连接数据库，ASP代码如下：

<%

strConnection = "dsn=chunfengdriver={myodbd driver}server=localhostuid=rootpwd=database=chunfeng"

Set adoDataConn = Server.CreateObject("ADODB.Connection")

adoDataConn.Open strConnection

strQuery = "SELECT * FROM user"

Set rs = adoDataConn.Execute(strQuery)

If Not rs.BOF Then

%>

<TABLE>

<TR>

<TD<b>用户名</b></TD>

<TD><b>口令</b></TD>

</TR>

<%

Do While Not rs.EOF

%>

<TR>

<TD><%=rs("username")%></TD>

<TD><%=rs("password")%></TD>

</TR>

<%

rs.MoveNext

Loop

%>

</TABLE>

<%

Else

Response.Write("Sorry, no data found.")

End If

rs.Close

adoDataConn.Close

Set adoDataConn = Nothing

Set rsEmailData = Nothing

%>

另一种方法就是把上面ASP代码第二行代码改为：

strconnection="DefaultDir=Driver={myodbc driver}database=chunfeng"

并且无需建立系统DSN，也不需要用户名和口令。不过不推荐使用这种方法。

---