还是自己动手做吧,希望有同样需求的朋友能用上:
首先:修改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了