<!--#include file="articleconn.asp"-->
<%
add=request("my")
sql1="update soft set hit=hit+1 where add="&add
conn.execute(sql1)
sql="select * from soft where add="&add
set rs=conn.execute(sql)
if   
         rs("ttime")=day(now())
   then
         rs("tday")=rs("tday")+1          ‘日点击数自加1
         rs("wday")=rs("wday")+1          ‘周点击数自加1
         rs("mday")=rs("mday")+1            ‘月点击数自加1      
   rs.update                        
   elseif
         rs("wtime")=weekday(now())  '周点击数加1
          rs("mday")=rs("mday")+1     '月点击数加1
         rs("wday")=rs("wday")+1
         rs("tday")=0
         rs("ttime")=day()                     
         rs.update                           
   elseif  
         rs("mtime")=month(now())
         rs("mday")=rs("mday")+1
         rs("wday")=0
         rs("wtime")=weekday(now())
         rs.update
   else
         rs("mday")=0
         rs("mtime")=month(now())
         rs.update                    
   end if
response.Redirect (rs("get")&"\"&rs("address"))
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
我这样试了不能用，希望高手帮我一下。

sql="select * from soft where add="&add
set rs=conn.execute(sql)       这个记录集是只读的
要改为
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn,1,2

[此贴子已经被作者于2005-8-2 12:37:39编辑过]

能帮我看一下上面的代码能实现吗，
谢谢你啊。

各位老大快现身吧，谢谢了．
在线等，

<!--#include file="articleconn.asp"-->
<%
add=request("my")
sql1="update soft set hit=hit+1 where add="&add　　　'让总点击加１
conn.execute("sl1")　　　　　　　　
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn,1,2
if   
         rs("ttime")=day(now())
   then
         rs("tday")=rs("tday")+1          ‘日点击数自加1
         rs("wday")=rs("wday")+1        ‘周点击数自加1
         rs("mday")=rs("mday")+1         '月点击数自加1      
          rs.update                        
   elseif
         rs("wtime")=weekday(now())  
         rs("mday")=rs("mday")+1         '周点击数加1   
          rs("wday")=rs("wday")+1         '月点击数加1
         rs("tday")=0                              
         rs("ttime")=day(now())                     
         rs.update                           
   elseif  
         rs("mtime")=month(now())　　
         rs("mday")=rs("mday")+1　　　＇月点击数加１
         rs("wday")=0
         rs("wtime")=weekday(now())
         rs.update
   else
         rs("mday")=0
         rs("mtime")=month(now())
         rs.update                    
   end if
response.Redirect (rs("get")&"\"&rs("address"))
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
哪位好人帮帮我看看能实现吗

response.Redirect (rs("get")&"\"&rs("address"))

之前就应该  

rs.close
set rs=nothing
conn.close
set conn=nothing

注释 ＇  应该是  半角的 '

[此贴子已经被作者于2005-8-2 17:40:14编辑过]

与这个关系不大吧？

各位老大,去帮我另外一个看一下,
小弟在这里先谢谢各位.

我 习惯 先从 低级错误 开始 纠错 而且 对于 不符合规范 风格的 代码 比较没有 耐心