<% Dim DBC,Conn Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing filename=request.querystring("filename") conn.execute("update News set ClickNum=ClickNum+1 where filename='"&filename&"'") set rs = server.createobject("adodb.recordset") rs.source = "select ClickNum from News where filename='"&filename&"'" rs.open rs.source,conn,1,1 if Not Rs.Eof then %> javastr="<%=rs("ClickNum")%>" document.write(javastr) <% else %> javastr="0" document.write(javastr) <% end if rs.close set rs=nothing Set Conn = Nothing %>