账号通
    

账号  

密码  

1595

查看

2

回复
主题:发表的转向链接文章,点击次数hits没有用修改成功 [收藏主题]  
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/11/12 9:13:00   | 只看该作者 查看该作者主题 楼主 
科汛在线商城系统(NET)
发表的转向链接文章,当点击该文章时,点击次数hits没有增加,请版主看看

[此贴子已经被作者于2007-11-14 13:27:57编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/11/14 13:26:00   | 只看该作者 查看该作者主题 沙发 
科汛智能建站系统

还是自己动手做吧,希望有同样需求的朋友能用上:

首先:修改KS_Cls\KS.PublicCls.asp文件的887行改成:

GetInfoUrl=GetDomain & "go.asp?id=" & InfoID

然后将下面代码存入go.asp文件,放在根目录下

<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/KS.PublicCls.asp"-->
<%
Dim KS
Set KS=New PublicCls
Dim ID,Hits,RS,SqlStr,url
Dim ChannelID:ChannelID=1
ID=trim(request("ID"))


 If ID <> "" Then
        SqlStr = "SELECT Hits,fname FROM " & KS.C_S(ChannelID,2) &" Where ID=" & ID
        Set RS = Server.CreateObject("ADODB.Recordset")
        RS.Open SqlStr, conn, 1, 3
        If RS.bof And RS.EOF Then
            Hits = 0
        Else
            Hits = rs(0) + 1
            rs(0) = Hits
            rs.Update
   Response.Redirect rs(1)
   rs.Close
   Set rs = Nothing
        End If
      
 End If
Call CloseConn()
Set KS=Nothing 

%>

这样文章频道的就修改ok了

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2007/11/12 9:32:00   | 只看该作者 查看该作者主题 藤椅 
科汛在线网校系统

转向链接不计hits,转向链接的没有内容页.而计数是通过内容页的点击数标签累计的

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.12500秒 powered by KesionCMS 9.0