<% openConn IF request.QueryString("action")="hits" Then id=int(trim(request.querystring("id"))) hits=conn.execute("select hits from U_NEWS where newsid=" & id)(0) IF hits<>"" Then sqlStr="update U_NEWS set hits=hits+1 where newsid=" & id Else sqlStr="update U_NEWS set hits=1 where newsid=" & id End If conn.execute(sqlStr) closeConn %>document.write(<%=hits%>)<% Response.End() End If Dim id id = Request("id") If id = "" Or (Not IsNumeric(id)) Then Response.write "参数错误！":Response.End() id = CLng(id) aVersion=""&aVersion&"" Dim news_name set rs = server.CreateObject ("Adodb.recordset") Sql="Select news_name,news_class,news_data,news_time,news_keywords,news_generalize from U_NEWS where newsid="&id Set Rs=Conn.execute(Sql) IF Not Rs.eof Then news_name=rs("news_name") news_class=rs("news_class") news_data=rs("news_data") news_time=rs("news_time") news_keywords=Rs("news_keywords") news_generalize=rs("news_generalize") Else FoundErr=True ErrMsg="没有" End If rs.close sql="select * from U_N_CLASS" rs.open sql,conn,1,1 if rs.EOF then response.write "没有分类" else do while NOT rs.EOF news_classr=news_classr&"

"&rs("Nclass_name")&"

" if rs("Nclassid")=news_class then news_classname=""&rs("Nclass_name")&"" end if rs.MoveNext loop end if Rs.close():set Rs=Nothing IF FoundErr Then Response.Write(ErrMsg) Response.End() End If closeConn Dim Endtime Endtime=timer()-startime Atimes = Endtime*1000&"ms" TemplateCode=ReadFromTextFile("inc/Template/view.html","gb2312") %>