<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'连接excel数据库
Dim xlsconn,xlsstr,xlsrs,sql,i
Set xlsconn = server.CreateObject("adodb.connection")
xlsstr="Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath("productlist.xls")&";Extended Properties=Excel 8.0"
xlsconn.open xlsstr
Set xlsrs = Server.CreateObject("Adodb.RecordSet")
'sql = "Select * from [productlist$]"
sql = "SELECT * from [" & "Sheet1" & "$]"
xlsrs.open sql,xlsconn,1,3
If xlsrs.eof Then
response.Write "----------------"
else
i=1
response.write" <div align='center'>"
response.write " <TABLE border=1>"
Do While not xlsrs.eof
lei1=xlsrs("产品所属大类")
lei2=xlsrs("产品种类")
lei3=xlsrs("产品子类")
name1=xlsrs("产品名称")
photo="images/upfile/"&xlsrs("产品图片名称")
brand=xlsrs("品牌/产商")
我用Access数据库做了一个图书数据库，里面有一个字段是ISBN，就是ISBN号，但是只的一总分图书写的ISBN号，有的没写，写的那一部分有的ISBN是重复的，能否用SQL语言把重复的过滤掉，但没写ISBN号的图书不能过滤掉，� ......
