家里书很多很多，想一个藏书系统，多年未玩VFP了，请多指教！

书香门第啊

没有代码呀，兄台有？

这是来布置作业的感觉   开个题  剩下的学生去完成

哈哈，给你段代码提示：

*通过国家数字图书馆的isbn搜索功能来获取书名信息应该是最准的，但是好像该网站设置了防频繁连接的技术，查询函数名经常变换
*网上搜了很多遍，找不到一个合适的查询isbn的网站
*最后想到卖书的当当网站，这个你总不至于不让我查吧？嘿嘿。。。

***getisbninfo.prg

PARAMETERS cisbn

IF PARAMETERS()=0
    cisbn="9787020137473"
ENDIF     

*curl="http://opac.
    "&find_code=ISB&adjacent=Y&x=66&y=16&FIND_BASE=NLC01&filter_request_1=&FIND_BASE=NLC09&filter_code_1=WLN"+;
    "&filter_request_1=&filter_code_2=WYR&filter_request_2=&filter_code_3=WYR&filter_request_3="+;
    "&filter_code_4=WFM&filter_request_4=&filter_code_5=WSL&filter_request_5="
*curl="https://
curl="https://search.
curl=STRTRAN(curl,"ISBN",cisbn)
ohttp=CREATEOBJECT("microsoft.xmlhttp")
ohttp.open("get",curl)
ohttp.send()
WAIT "query data from internet..." WINDOW AT srow()/2,scol()/2 TIMEOUT 3 &&防止还没得到response，就执行下面的程序

cresponse=ohttp.responsetext
i=0
DO WHILE .t.
    i=i+1
    cstr=STREXTRACT(cresponse,"<ul ","</ul>",i)
    IF "作者" $ cstr
        EXIT
    ELSE
        LOOP
    ENDIF
ENDDO
STRTOFILE(cstr,"temp.txt")
MODIFY FILE temp.txt
***提取出版社，书名，作者的部分，自己完成吧。。。