|
|
在线术语解释
<%
for t=asc("A") to asc("Z")
Response.Write " "&chr(t)&" "
next
%>
|
<%
if request("key")<>"" then
key=request("key")
str=" and left(title,'1')='"&key&"'"
else
str=" and left(title,'1')='A'"
end if
sql3="select * from newscontent1 where classname='1'"&str&" order by id desc"
rs.open sql3,conn,1,1
rs.pagesize=10
topage=clng(request("topage"))
if topage=0 then
topage=1
elseif topage>rs.pagecount then
topage=rs.pagecount
end if
if rs.eof then
response.Write "| 暂无信息 | "
else
rs.absolutepage=topage
%>
<%
for i=1 to rs.pagecount
response.Write(" "&i&" ")
next
%>
|
<%
for m=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
|
<%=rs("title")%>
|
| <%=rs("content")%> |
<%
rs.movenext
next
end if
rs.close
%>
|
|
|
 |