<%@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("品牌/产商")
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
