\Plus\digg.asp 里面  

找到 Set KSUser = New UserCls 在这个下面改成...如下....if 1=1..

if Action="hits" Then
   if 1=1 then
   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
   RS.Open "Select * From KS_DiggList Where ChannelID=" & ChannelID & "And InfoID=" & InfoID,conn,1,3
   If RS.Eof Then
     RS.AddNew

[此贴子已经被作者于2008-1-30 13:02:52编辑过]