找到 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