老是提示Microsoft JET Database Engine '80040e10'

蹦极的考拉 2011-07-16 12:02:39

<%
msort_id=Request("msort_id")
chkid(msort_id)
showp="?msort_id="&msort_id
set rs=conn.execute("select * from venshop_msort where msort_id="&msort_id&"")

if not rs.eof Then

msort_name=rs("msort_name")
nsort_id=rs("nsort_id")
msort_keyword=rs("msort_keyword")
msort_title=rs("msort_title")
msort_d=rs("msort_d")
end if
rs.close
set rs=Nothing

'''''

set rs=conn.execute("select * from venshop_nsort where nsort_id="&nsort_id&"")
if not rs.eof then
nsort_name=rs("nsort_name")

sort_id=rs("sort_id")

end if
rs.close
set rs=nothing

''''''

set rs=conn.execute("select sort_name,sort_skin from venshop_sort where sort_id="&sort_id&"")
if not rs.eof then
sort_name=rs("sort_name")
if rs("sort_skin")<>"" then venshop_skin=rs("sort_skin")
end if
rs.close
set rs=nothing

if seo_nsort1=1 then
seo_title=nsort_title
else
seo_title=seo_nsort2
if seo_title<>"" then
seo_title=replace(replace(replace(replace(seo_title,"*N",nsort_name),"*S",sort_name),"*Z",sitename),"*C",company)
end if
end if

if seo_nsort3=1 then
seo_keyword=nsort_keyword
else
seo_keyword=seo_nsort4
if seo_keyword<>"" then
seo_keyword=replace(replace(replace(replace(seo_keyword,"*N",nsort_name),"*S",sort_name),"*Z",sitename),"*C",company)
end if
end if

if seo_nsort5=1 then
seo_d=nsort_d
else
seo_d=seo_nsort6
if seo_d<>"" then
seo_d=replace(replace(replace(replace(seo_d,"*N",nsort_name),"*S",sort_name),"*Z",sitename),"*C",company)
end if
end if

order=request("order")
page=request("page")
orderx=getorder(order)
page=getpage(page)

%>

<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top">
<div class="d5"></div>
<div class="d5"></div>
<div class="d5"></div>
</td>
<td valign="top" class="all_c_td">
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<%set rs=server.createobject("adodb.recordset")
sql="select banner,url from venshop_logo where nsort="&nsort_id&""
rs.open sql,conn,1,1
do while not rs.eof%><tr><td align="center" height="85"><%showflash rs("banner"),rs("url"),775,null,"banner"%></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select hw_id,hw_name,hw_price1,hw_price2,hw_pic,hw_content from venshop_hw where hw_kucun>0 and msort_id="&msort_id&" order by "&orderx&""
rs.open sql,conn,1,1
if rs.eof then
%><tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle">
<a href="index.asp">Home</a> >> <a href="sort.asp?sort_id=<%=sort_id%>"><%=sort_name%></a> >> <%=nsort_name%></td></tr>
<tr><td align="center" height="30">No Data</td></tr><%else
rs.pagesize=lookpage
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize%>
<tr><td class="sort"> <IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle">
<a href="index.asp">Home</a> >> <a href="sort.asp?sort_id=<%=sort_id%>"><%=sort_name%></a> >> <%=nsort_name%>>> <%=msort_name%> (Total:<%=totalrec%>,The page show:<%=(page-1)*rs.pagesize+1%>-<%if page+1<=totalpage then%><%=page*rs.pagesize%><%else%><%=totalrec%><%end if%>)</td></tr>
<tr><td height=5>
<%
getmsort msort_id
getpinpai msort_id,"nsort"
%>
</td></tr>
<tr><td id="sorta">


<table width="100%" border="0" cellpadding="0" cellspacing="0"><form action=<%=showp%> method=post>
<tr><td id="page">
<%
if page<=pagecc then
spage=1
else
spage=page-pagecc
end if
if page>=totalpage-pagecc then
lpage=totalpage
else
lpage=page+pagecc
end if
%>
Page:<%=page%>/Total:<%=totalpage%>
Go to page::<input type="text" name="page" value="<%=page+1%>" size="2" style="text-align: center"><input type="submit" value=" GO "><br>
<a href="<%=showp%>&page=1" class="page_h"></a>
<%if page-1>0 then%><a href="<%=showp%>&page=<%=page-1%>" class="page_p"></a><%else%><span class="page_p0"></span><%end if%>
<%for i=spage to lpage
if i=page then%><span class="page_a0"><%=i%></span>
<%else%><a href="<%=showp%>&page=<%=i%>" class="page_a"><%=i%></a><%end if
next%>
<%if page+1<=totalpage then%> <a href="<%=showp%>&page=<%=page+1%>" class="page_n"></a><%else%><span class="page_n0"></span><%end if%>
<a href="<%=showp%>&page=<%=totalpage%>" class="page_l"></a>
</td></tr></form></table>

</td></tr>
<%end if
rs.close
set rs=Nothing

function getmsort(sort_id)
set rs2=server.createobject("adodb.recordset")
sql="select * from venshop_msort where msort_id="&msort_id&" "
rs2.open sql,conn,1,1
if not rs2.eof then
response.write "<p style=""line-height: 150%; margin: 3px;""><b>Categories:</b> "
do while not rs2.eof
response.write "<a href=""msort.asp?msort_id="&rs2("msort_id")&""" title="""&rs2("msort_name")&"""><u>"&rs2("msort_name")&"</u></a> "
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
end function

%></table>
</td></tr></table></div>

...全文