asp中select case

rs=server.createobject("adobd.recordset")sql="select

*

from

xx"

//xx是表名rs.open

sql,conn,1,1

//conn要看具体情况，看你之前定义的连接是什么if

not

rs.eof

thenaa=rs("ixb")select

case

aa

case

"1"

response.write

("a")

case

"2"

response.write

("b")end

selectend

if

action

根本就没有值

所以RS根本就没有打开。。。

修改为：

<%

Const

MaxPerPage=20

dim

totalPut

dim

CurrentPage

dim

TotalPages

dim

j

dim

sql

if

Not

isempty(request("page"))

then

currentPage=Cint(request("page"))

else

currentPage=1

end

if

set

rs=server.CreateObject("adodb.recordset")

select

case

action

case

"no"

rs.open

"select

goods.xinghao,goods.id,review.reviewid,review.reviewcontent,review.reviewdtm,review.reply,review.recommend

from

review,goods

where

goods.id=review.id

and

review.audit=0",conn,1,1

case

"yes"

rs.open

"select

goods.xinghao,goods.id,review.reviewid,review.reviewcontent,review.reviewdtm,review.reply,review.recommend

from

review,goods

where

goods.id=review.id

and

review.audit=1",conn,1,1

case

else

rs.open

"select

goods.xinghao,goods.id,review.reviewid,review.reviewcontent,review.reviewdtm,review.reply,review.recommend

from

review,goods

where

goods.id=review.id

and

review.recommend=1",conn,1,1

end

select

if

err.number<>0

then

response.write

"数据库中暂时无数据"

end

if

if

rs.eof

And

rs.bof

then（这里提示对象关闭时，不允许 *** 作。）

Response.Write

"<p

align='center'

class='contents'>

目前还没有任何评论！</p>"

else

totalPut=rs.recordcount

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

showContent

showpage

totalput,MaxPerPage,"admincomment.asp"

else

if

(currentPage-1)*MaxPerPage<totalPut

then

rs.move

(currentPage-1)*MaxPerPage

dim

bookmark

bookmark=rs.bookmark

showContent

showpage

totalput,MaxPerPage,"admincomment.asp"

else

currentPage=1

showContent

showpage

totalput,MaxPerPage,"admincomment.asp"

end

if

end

if

end

if

sub

showContent

dim

i

i=0

%>

其实有一个建议，你可以在select语句用一个sql变量，在结束select后再用rs.open

sql.conn.1.3

对回答有问题，或认为不妥，百度消息我。

（在消息的内容里加上问题的网址哦）