doajax.asp

秘密网源代码 传闻拉了 100W风投

<!--#include file="conn.asp"-->
<%
Dim RetCode,RetDes

function CreateXML()
  Dim OutStr
  OutStr="<?xml version=""1.0"" encoding=""gb2312""?>"&vbcrlf
  OutStr=OutStr&"<ReturnStr>"&vbcrlf
  OutStr=OutStr&"<RetCode>"&RetCode&"</RetCode>"&vbcrlf
  OutStr=OutStr&"<RetDes>"&RetDes&"</RetDes>"&vbcrlf
  OutStr=OutStr&"</ReturnStr>"
  Response.ContentType="text/xml"
  Response.write OutStr
end function


if request("action")="" then
	RetCode="0001"
	RetDes="异常错误"
	CreateXML()
response.end
end if

select case Lcase(trim(request("action")))
case "hit"
	dim Src_ID
	Src_ID=request("Src_ID")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'判断是否登入
			RetCode="0002"
			RetDes="您未登陆,请登陆后再顶，谢谢！"
		else
			sql="Select Hit_ID,Hit_Time From Wo_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & src_id & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="DIG成功"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="DIG成功"
				else
					RetCode="0003"
					RetDes="已顶"
				end if
			end if
		rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID=0 and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then
				Sql_Hit = Sql_Hit & "Values(" & src_id & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & src_id & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="DIG成功"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="DIG成功"
				else
					RetCode="0003"
					RetDes="已顶"
				end if
			end if
		rs.close
	end if
case "hit2"
	dim Src_ID2
	Src_ID2=request("Src_ID")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'判断是否登入
			RetCode="0002"
			RetDes="您未登陆,请登陆后再踩下去，谢谢！"
		else
			sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit2(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="成功埋掉"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="成功埋掉"
				else
					RetCode="0003"
					RetDes="已埋过"
				end if
			end if
		rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_UserID=0 and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit2(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="成功埋掉"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="成功埋掉"
				else
					RetCode="0003"
					RetDes="已埋过"
				end if
			end if
		rs.close
	end if
case "grouphit2"
	dim groupID2
	groupID2=request("groupID")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'判断是否登入
			RetCode="0002"
			RetDes="您未登陆,请登陆后再踩下去，谢谢！"
		else
			sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_GroupHit2(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="成功埋掉"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="成功埋掉"
				else
					RetCode="0003"
					RetDes="已埋过"
				end if
			end if
		rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_GroupHit2(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="成功埋掉"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_GroupHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="成功埋掉"
				else
					RetCode="0003"
					RetDes="已埋过"
				end if
			end if
		rs.close
	end if
case "grouphit"
	dim groupID
	groupID=request("groupid")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'判断是否登入
			RetCode="0002"
			RetDes="您未登陆,请登陆后再支持，谢谢！"
		else
			sql="Select * From Wo_GroupHit Where Hit_GroupID="&groupID&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_groupHit(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & groupID & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount+1 Where ThreadID="&groupid)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="支持成功"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_groupHit Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount+1 Where ThreadID="&groupid)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="支持成功"
				else
					RetCode="0003"
					RetDes="已支持"
				end if
			end if
			rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select * From Wo_GroupHit Where Hit_GroupID="&groupID&" and Hit_UserID=0 and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select * From Wo_GroupHit Where Hit_GroupID="&groupID&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_groupHit(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then 
				Sql_Hit = Sql_Hit & "Values(" & groupID & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & groupID & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount+1 Where ThreadID="&groupid)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="支持成功"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_groupHit Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount+1 Where ThreadID="&groupid)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="支持成功"
				else
					RetCode="0003"
					RetDes="已支持"
				end if
			end if
			rs.close
	end if
case else
  	RetCode="0001"
  	RetDes="异常错误"
end select
conn.close
set conn=nothing
CreateXML()
%>