%
'Dim Action,Id
Action = Trim(Request.QueryString("Action"))
ID = Trim(Request.QueryString("ID"))
Action = Replace(Action," ","")
ID = Replace(ID," ","")
Sql = "Select Picture,Hits From "&Action&" Where id="&ID
Rs.Open Sql,Conn,1,2
Rs("Hits") = Rs("Hits") + 1
Rs.Update
Rs.Close
CloseConn()
%>
返回首页 | 公司简介 | 新闻动态 | 资料下载 | 联系我们 | 意见投诉 | 友情链接 | 网站地图 
CpoyRight © 2007-2010 GULITOOLS All Rights Reserved. 浙ICP备08111066号
电话: 0576-87526745 87261902 87261903 传真: 0576-87261902
Email:gulitools@163.com www.gulitools.com
|