<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function %> <% BigClass=request("BigClass") SmallClass=request("SmallClass")%> <% id=request("id") Set rsnews=Server.CreateObject("ADODB.RecordSet") sql="update news set hits=hits+1 where id="&id conn.execute sql sql="select * from news where id="&id rsnews.Open sql,conn,1,1 title=rsnews("title") if rsnews.eof and rsnews.bof then response.Write("数据库出错") else %>
 
<% end if rsnews.close set rsnews=nothing %>
<%= rsnews("title") %>   发布时间:<%= rsnews("AddDate") %> 阅读:<%= rsnews("hits") %>
 
<%=rsnews("content") %>
 
免责声明:本网站的部分文章转载于其它网站或媒体,文章的版权归其原版权所有人,如版权所有人,认为本网不该转载其文章,请及时与我们联系,我们将尊重您的意愿,及时更正。如果需要转载或引用,请注明原文出处及链接。