<%
response.buffer=true
function cut(word)
dim word_len
word_len=20 'you can use this to change the max length
if len(word)>word_len then
word=mid(word,1,word_len-2)&"..."
end if
cut=word
end function
sql="select * from news_table where news_no='020503' order by news_id desc"
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,conn,3,3
rs.pagesize=16
page=1
if not isempty(request.querystring("page")) then
page=request.querystring("page")
end if
if not isempty(request.form("page")) then
page=request.form("page")
if not isnumeric(page)then
page=1
end if
end if
page=clng(page)
if page<1 then
page=1
end if
if cint(page)>rs.pagecount then
page=rs.pagecount
end if%>
专家咨询
