<%
if not isEmpty(request.QueryString("NewsID")) then
NewsID=request.QueryString("NewsID")
else
NewsID=1
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From News where NewsID="&NewsID, conn,3,3
'纪录访问次数
rs("click")=rs("click")+1
rs.update
nCounter=rs("click")
'定义内容
content=rs("content")
%>
宏梦卡通
