www.gusucode.com > 流光音乐建站系统 1.1码程序 > User/Ep.asp

    <!--#include file="../Common/Config.Asp"-->
<!--#include file="../Common/Function.Asp"-->
<%
'===========================版权信息===============================
' 流光音乐系统 1.0
' Homepage  : http://www.ad968.cn
' E-Mail : 77280511@qq.com
' QQ : 77280511 
'请保留版权信息,以便我们更好的为您服务
'==================================================================
aFunStart
If aFun.IsSelfRefer = False Then
	Response.Write "<script>alert('请不要从外部提交数据!');top.window.close();</script>" & vbCrLf
	Response.End 
End If

Dim Rs,Sql
Sql = "Select Top 1 * From MovementLog Where mType='新人来访' And mIp='" & aFun.GetIP() & "' And DateDiff(Hour,mTime,getdate())<=10"
Set Rs = aFun.aCon.Execute(Sql)
If Rs.Bof Or Rs.Eof Then
	UpExp
Else
	aFun.Rw "false"
End If
Rs.Close
Set Rs = Nothing
aFunStop

Sub UpExp()
	Dim UserID
	UserID = aFun.CheckRequest("UserID")
	If IsNumeric(UserID)=False Then Exit Sub
	Sql = "Select Top 1 * From [User] Where ID=" & UserID
	Set ExpRs=aFun.aCon.GetRs(Sql,1,3)
	If Not (ExpRs.Bof And ExpRs.Eof) Then
		ExpRs("Exp") = ExpRs("Exp") + 5
		ExpRs.Update
		Call WriteMovement(UserID,"新人来访","游客","游客","新人来访","新人来访")
		aFun.Rw "true"
	Else
		aFun.Rw "false"
	End If
	ExpRs.Close
	Set ExpRs = Nothing
End Sub

'写入操作记录
Function WriteMovement(mTake,mType,mUser,mUserType,mTitle,mContent)
	mSql = "Select top 1 * From MovementLog Where mTake='" & mTake & "' And mType='" & mType & "' And mUser='" & mUser & "'"
	Set mRs = aFun.aCon.GetRs(mSql,1,3)
	If mRs.Bof Or mRs.Eof Then
		WriteMovement = False
		mRs.AddNew
		mRs("mTake")      = mTake
		mRs("mType")      = mType
		mRs("mUser")      = mUser
		mRs("mUserType")  = mUserType
		mRs("mTitle")     = mTitle
		mRs("mContent")   = mContent
		mRs("mIp")        = aFun.GetIP()
		mRs("mTime")      = Now()
		mRs("mReffer")    = Request.ServerVariables("HTTP_REFERER")
		mRs("mUseragent") = Request.Servervariables("HTTP_USER_AGENT")
		mRs.Update
	Else
		WriteMovement = True
	End If
	mRs.Close
	Set mRs = Nothing
End Function
%>