ニュース内容ページ【前ページ】【次ページ】
9602 ワード
<%
Dim pid1
pid1=cstr(request("id"))
%>
= = = = = = = = =
<
div
class
="pageUpDown"
>
下一篇:
<%
=
Getpre()
%>
<
br
/>
上一篇:
<%
=
Getnext()
%>
div
>
= = = = = == = =
Dim pid1
pid1=cstr(request("id"))
%>
= = = = = = = = =
<
div
class
="pageUpDown"
>
下一篇:
<%
=
Getpre()
%>
<
br
/>
上一篇:
<%
=
Getnext()
%>
div
>
= = = = = == = =
<%
function
Getpre
sql
=
"
select top 1 * from Howia_news where id>
"
&
pid1
&
"
order by id
"
set
rs
=
conn.execute(sql)
if
rs.eof
or
rs.bof
then
response.Write(
"
"
)
else
pid2
=
rs(
"
id
"
)
response.Write(
"
<a href='newsview.asp?id=
"
&
pid2
&
"
'>
"
&
rs(
"
newsname
"
)
&
"
</a>
"
)
end
if
end function
function
Getnext
sql
=
"
select top 1 * from Howia_news where id<
"
&
pid1
&
"
order by id desc
"
set
rs
=
conn.execute(sql)
if
rs.eof
then
response.Write(
"
"
)
else
pid3
=
rs(
"
id
"
)
response.Write(
"
<a href='newsview.asp?id=
"
&
pid3
&
"
'>
"
&
rs(
"
newsname
"
)
&
"
</a>
"
)
end
if
end function
%>