<% dim flag flag=true request_NewsID=Request.QueryString("NewsID") '传递得到的新闻编号NewsID if request_NewsID=""and request.QueryString("NoticeID")="" then Response.End end if set rs=server.CreateObject("ADODB.RecordSet") if request.QueryString("NoticeID")<>"" then flag=false request_NewsID=request.QueryString("NoticeID") conn.execute("update Notice Set Click=Click+1 where NoticeID=" & request_NewsID) '更新点击统计Click rs.Source="select * from Notice where NoticeID=" & request_NewsID '查询所有符合条件的记录 rs.Open rs.Source,conn,1,1 UpdateTime=trim(rs("UpdateTime")) Click=trim(rs("Click")) Content=trim(rs("Content")) Title=trim(rs("Title")) else conn.execute("update News Set Click=Click+1 where NewsID=" & request_NewsID) '更新点击统计Click rs.Source="select * from News where NewsID=" & request_NewsID '查询所有符合条件的记录 rs.Open rs.Source,conn,1,1 '打开记录集对象 'RecordSet对象.Open [Source],[ActiveConnection],[CursorType],[LockType],[Options] 'CurorType=0 向前指针 1 键盘指针 2 动态指针 3 静态指针 具体使用方法请查询相关资料 'LockType=1 只读 2 只能同时被一个客户修改，修改时锁定，修改完毕释放 3 可以同时被多个客户修改 4 数据可以修改，但不可锁定其他客户 'Options 可以忽略 Title=trim(rs("Title")) Author=trim(rs("Author")) Original=trim(rs("Original")) UpdateTime=trim(rs("UpdateTime")) Content=trim(rs("Content")) Click=trim(rs("Click")) end if rs.close set rs=nothing %> 湖南软件行业协会
 
湖南省软件行业协会咨询电话： 软件企业认定联系： 申办软件著作权联系：
  咨询电话：0731-4461143   黄凤喈   喻　晖
电话、电子邮件、信函等方式：
湖南省
 地址：湖南省长沙市八一路407号湖南信息大厦1215 湖南省软件行业协会
邮编：410011
电话：(0731)4461143 4126796
传真：(0731)4461143 		 
邮箱
 网站管理：xhasek@21cn.com
协会邮箱：hnsic@163.com
著作权代办
 联系人：喻　晖
电　话：(0731)4126796
传　真：(0731)4461143		  
双软认定
 联系人：黄凤喈
电　话：(0731)4461143
传　真：(0731)4461143		  
开户行及帐号：
  户　　名：
开 户 行：
帐　　号：
 湖南省软件行业协会
长沙市工商银行五一中路分理处
1901 0023 0900 6512 074