<% Response.Charset="UTF-8"%>
<!--#include file="conn.asp"-->
<% 
id=funstr(Request.QueryString("id"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from UsCMSArticle where Articleid="&id
  rs.open sql,conn,1,3
  if not rs.eof then
  rs("ArticleCount")=rs("ArticleCount")+1
  rs.update
  response.Write "document.write('"&rs("ArticleCount")&"');"
  end if
 %>