好象还是不行.
我将整个代码帖出来吧
'=================================================
'过程名：ShowArticle
'=================================================
sub ShowArticle_2(TitleLen)
if TitleLen<0 or TitleLen>200 then
TitleLen=50
end if
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
sqlArticle="select top " & MaxPerPage
else
sqlArticle="select "
end if
sqlArticle=sqlArticle & " ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits from Product where Passed=True and Elite=true"
if BigClassName<>"" then
sqlArticle=sqlArticle & " and BigClassName='" & BigClassName & "' "
if SmallClassName<>"" then
sqlArticle=sqlArticle & " and SmallClassName='" & SmallClassName & "' "
end if
else
if SpecialName<>"" then
sqlArticle=sqlArticle & " and SpecialName='" & SpecialName & "' "
end if
end if
sqlArticle=sqlArticle & " order by articleid "
Set rsArticle= Server.CreateObject("ADODB.Recordset")
rsArticle.open sqlArticle,conn,1,1
if rsArticle.bof and
rsArticle.eof then
response.Write("<br><li>没有任何Vip产品</li>")
else
if currentPage=1 then
call ArticleContent(TitleLen)
else
if (currentPage-1)*MaxPerPage<totalPut then
rsArticle.move
(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsArticle.bookmark
call ArticleContent(TitleLen)
else
currentPage=1
call ArticleContent(TitleLen)
end if
end if
end if
rsArticle.close
set rsArticle=nothing
end sub
sub ArticleContent(intTitleLen)
dim i,strTemp
i=1
strTemp=""
strtemp= strtemp & "<p>"
response.write"<table width=100% border=0 cellspacing=4 cellpadding=0>"
response.write "<tr>"
do while not rsArticle.eof
strTemp= strTemp &"<td width='185'> <div align='center'> "
strTemp= strTemp &"<TABLE border=0 cellPadding=0 cellSpacing=5>"
strTemp= strTemp &"<TBODY>"
strTemp= strTemp &"<TR>"
strTemp= strTemp &"<TD align=middle width=135> <TABLE align=center border=0 cellPadding=0 cellSpacing=0>"
strTemp= strTemp &"<TR>"
strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0ltop.gif' width=10></TD>"
strTemp= strTemp &"<TD background='Img/bg_01.gif' height=10></TD>"
strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0rtop.gif' width=10></TD>"
strTemp= strTemp &"</TR>"
strTemp= strTemp &"<TR> "
'fdgsdfgdsgsdfgsdfgdsfg
strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10> </TD>"
strTemp= strTemp & "<td>"&"<div align=center>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & " target=_blank
>" & "<img src=" & rsArticle("DefaultPicUrl") & "
width='150' height='150' border='0' alt='<img src=" & rsArticle("DefaultPicUrl") & ">'>"
strTemp= strTemp
& "</div>"&""
strTemp= strTemp & "</a></td>"
strTemp= strTemp &"<TD background='Img/bg_04.gif' width=10> </TD>"
strTemp= strTemp &"</TR>"
strTemp= strTemp &"<TR> "
'名称
strTemp= strTemp &"<TD background='Img/bg_03.gif' width=10> </TD>"
strTemp= strTemp & "<td>"&"<div align=center>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & " target=_blank>"
strTemp= strTemp
& rsArticle("Title") & "</div>"&""
strTemp= strTemp & "</a></td>"
strTemp= strTemp &"<TD background='Img/bg_04.gif' width=10> </TD>"
strTemp= strTemp &"</TR>"
'名称结束
strTemp= strTemp &"<TR>"
strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0lbottom.gif' width=10></TD>"
strTemp= strTemp &"<TD background=Img/bg_02.gif height=10></TD>"
strTemp= strTemp &"<TD height=10><IMG height=10 src='Img/bg_0rbottom.gif' width=10></TD>"
strTemp= strTemp &"</TR>"
strTemp= strTemp &"</TABLE></TD>"
strTemp= strTemp &"</TR>"
strTemp= strTemp &"</TBODY>"
strTemp= strTemp &"</TABLE>"
strTemp= strTemp &"</div></td>"
if i mod 3 =0 then
strTemp= strTemp & "</tr>"
strTemp= strTemp & "<tr>"
end if
rsArticle.movenext
i=i+1
if i>MaxPerPage then exit do
loop
strtemp= strtemp & "</tr></table>"
response.write strTemp
end sub
页面调用:<% call ShowArticle(32) %>
