digg.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#include file="../../act_inc/ACT.User.asp"-->

<%
	On Error Resume Next
	Err.Clear
	Response.Buffer = True 
	Response.Expires = -1 
	Response.ExpiresAbsolute = Now() - 1 
	Response.Expires = 0 
	Response.CacheControl = "no-cache" 
	response.Charset = "utf-8" 
	Dim Digg_RS 
	Dim TmpStr
	Dim stype,DiggID,ModeID 
	Dim ip,GetTime,Deltime,UserHS,ActUser
	Set UserHS = New ACT_User
	Set Digg_RS=Server.CreateObject("ADODB.RecordSet") 
	ip = Actcms.getip()
	GetTime = Date()
	stype = ACTCMS.RSQL(request("post")) 
	DiggID = ACTCMS.ChkNumeric(ACTCMS.RSQL(request("id")))
	ModeID= ACTCMS.ChkNumeric(request("ModeID")) 

	Call diggs()
	Sub diggs()
	Dim Rs1,ActCMS_Digg
	Set Rs1=ACTCMS.ACTEXE("Select PlusConfig,IsUse from Plus_ACT where PlusID='digg_act'")
	ActCMS_Digg=Split(Rs1("PlusConfig"),"^@$@^")(0)
	If stype="" or DiggID="" Or ModeID=0 Then 
		response.Write("0") 
		response.End() 
	End If 
	Select Case  stype
		Case  "diggshow"
			Set  Digg_RS=ACTCMS.ACTEXE("Select Digg from "&ACTCMS.ACT_C(ModeID,2)&" where ID="&DiggID&"")
			If  not Digg_RS.eof then TmpStr = Digg_RS(0) Else TmpStr="0"
				response.Write("document.write('"&TmpStr&"')")
		Case  "downshow"
			Set  Digg_RS=ACTCMS.ACTEXE("Select down from "&ACTCMS.ACT_C(ModeID,2)&" where ID="&DiggID&"")
			If  not Digg_RS.eof then TmpStr = Digg_RS(0) Else TmpStr="0"
				response.Write("document.write('"&TmpStr&"')")
		Case  "digg"
			If Rs1("IsUse")=1 Then 
				response.Write("Close")
				Exit Sub 
			End If 
			IF Cbool(UserHS.UserLoginChecked)=False And ActCMS_Digg="1" then
			  Response.Write "Login"
			  Exit Sub 
			  Response.End
			Else
				 IF Cbool(UserHS.UserLoginChecked)=False Then 
				  ActUser= ""
				 Else
				  ActUser= UserHS.UserName
				 End If 
			End If
			Deltime = DateDiff("D",2,GetTime)
			ACTCMS.ACTEXE("DELETE * from Digg_ACT where DiggTime<"&Deltime)
			set Digg_RS=ACTCMS.ACTEXE("Select * from Digg_ACT where ip = '"&ip&"'  and  NewsID = "&DiggID&"")
			If   Not Digg_RS.eof  then
				response.Write("ACT")&"|"&DiggID
			Else 
				ACTCMS.ACTEXE("Insert into Digg_ACT(users,ModeID,Digg,IP,NewsID,DiggTime) values('"&ActUser&"',"&ModeID&",1,'"&ip&"',"&DiggID&",'"&GetTime&"')")
				ACTCMS.ACTEXE("Update "&ACTCMS.ACT_C(ModeID,2)&" set Digg=Digg+1 where ID="&DiggID&"")
				set Digg_RS=ACTCMS.ACTEXE("Select Digg from "&ACTCMS.ACT_C(ModeID,2)&" where ID="&DiggID&"")
				if not Digg_RS.eof then TmpStr = cstr(Digg_RS(0)) Else TmpStr="0"
				response.Write(TmpStr)&"|"&DiggID
			End  If 
		Case  "down"
			If Rs1("IsUse")="1" Then 
				response.Write("Close")
				Exit Sub 
			End If 
			IF Cbool(UserHS.UserLoginChecked)=False And ActCMS_Digg="1" then
			  Response.Write "Login"
			  Exit Sub 
			  Response.End
			Else
				 IF Cbool(UserHS.UserLoginChecked)=False Then 
				  ActUser= ""
				 Else
				  ActUser= UserHS.UserName
				 End If 
			End If
			Deltime = DateDiff("D",2,GetTime)
			ACTCMS.ACTEXE("DELETE * from Digg_ACT where DiggTime<"&Deltime)
			Set  Digg_RS=ACTCMS.ACTEXE("Select * from Digg_ACT where ip = '"&ip&"' and  NewsID = "&DiggID&"")
			if  Not Digg_RS.eof  then
				response.Write("ACT")&"|"&DiggID
			Else 
				ACTCMS.ACTEXE("Insert into Digg_ACT(users,ModeID,Digg,IP,NewsID,DiggTime) values('"&ActUser&"',"&ModeID&",2,'"&ip&"',"&DiggID&",'"&GetTime&"')")
				ACTCMS.ACTEXE("Update "&ACTCMS.ACT_C(ModeID,2)&" set down=down+1 where ID="&DiggID&"")
				set Digg_RS=ACTCMS.ACTEXE("Select down from "&ACTCMS.ACT_C(ModeID,2)&" where ID="&DiggID&"")
				if not Digg_RS.eof then TmpStr = cstr(Digg_RS(0)) Else TmpStr="0"
				Response.Write(TmpStr)&"|"&DiggID
			End  If 
		Case  Else 
			response.Write("err")
	End  Select
	End Sub 


	Call CloseConn()
%>