28,390
社区成员
发帖
与我相关
我的任务
分享
<div class="sec_menu" >
<%
set rs=server.createobject("adodb.recordset")
sql="select distinct size from shopsup_product" '在ACCESS中测试显示正常
rs.Open sql,conn,1,1
do while not rs.eof
%>
<a href="#" class="white">·<%=rs("size")%></a><br />
<%
rs.movenext
loop
rs.Close
set rs=nothing
%>
</div>
<%
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
db="shop_data/"&dataname&"" '数据库
on error resume next '尝试连数据库,一直到超时,但可以加强SQL注入过滤
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>