<%@ LANGUAGE="VBSCRIPT" codepage ="936" %>
<%
TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=")
%>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select * from news where ID=" &request.querystring("recno")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,0,1
if not rs.eof and not rs.bof then
newstitle=rs("topic")
conn.execute("Update news Set click=click+1 Where ID=" &request.querystring("recno"))
%>
<%=newstitle%>