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 %>