<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)
else
cutstr=tempstr
end if
end function%>
<%
id=cint(request.querystring("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("”µ(sh¨´)“þ(j¨´)Žì³öåe(cu¨°)")
else
%>
<%
BigClass=request("BigClass")
SmallClass=request("SmallClass")
%>
<%= rsnews("title") %> -<%=SiteTitle%>
