<%
vDQ=trim(Request("DiQu"))
if vDQ<>"" then Session("DiQu_R")=vDQ
'Response.Write vDQ&"===="
vOrderP=Request("OrderReviewer")
if vOrderP<>"" then Session("OrderReviewer")=vOrderP
%>
排序方式：
绿色通道：
Ａ－Ｏ
<%
Set columnRS = Server.CreateObject( "ADODB.Recordset" )
IF Session("OrderReviewer")="1" then
OrderSQL = " order by Columns.PublishDate desc"
Else
OrderSQL = " order by authors.penName"
End IF
IF Session("DiQu_R")<>"ALL" and Session("DiQu_R")<>"" then
dqSQL = " and postcode='"&Session("DiQu_R")&"' "
End IF
columnSQL = "select Columns.AuthorId,Columns.photoUrl,Columns.ColumnName,Authors.penName from Columns " &_
" Inner join Authors on Columns.AuthorId=Authors.AuthorId "&_
" where Columns.ColumnStyle='1' and (Authors.status=2 or Authors.status=3) and Authors.OpenReviewer='1' "&_
dqSQL & OrderSQL
'Response.Write ColumnSQL
columnRS.Open columnSQL,Conn,1,1
if columnRS.Eof then
%>
暂时还没开通任何专栏！
<%
else
columnRS.MoveFirst()
countNum=0
'翻页
pgsize=200
page=request.querystring("page")
columnRS.pagesize=pgsize
pgnm=columnRS.pagecount
if page=""or clng(page)<1 then page=1 end if
if clng(page)>pgnm then page=pgnm
if pgnm>0 then columnRS.absolutepage=page
Do while not columnRS.Eof and countNum
<%
dim urlStr
if columnRS("PhotoUrl")="" then
alert("专栏目录错误，请修改你的专栏信息！")
urlStr="#"
else
urlStr=columnRS("PhotoUrl")&"/index.php?vAuthorId="&columnRS("AuthorId")
end if
%>
>
<%=columnRS("PenName")%>：<%=columnRS("ColumnName")%>
<%
countNum=countNum+1
columnRS.MoveNext()
if countNum=100 then
exit do
end if
loop
end if
%>
