<% Dim Action,AllSmsSize If Not BBS94KK.FoundUser Then BBS94KK.GoToErr(20) BBS94KK.Position=BBS94KK.Position&" → 用户控制面版" BBS94KK.Head "处理信件" ShowMySmsInfo() Action=Lcase(Request("Action")) If Len(Action)>10 Then BBS94KK.GoToErr(1) Select Case Action Case"save" SaveSms Case"del" Del Case"delall" DelAll Case"write" WriteSms Case Else ReadSms End Select BBS94KK.Footer() Set BBS94KK=Nothing Sub Del Dim ID,I,Rs ID=BBS94KK.CheckNum(request("ID")) Set Rs=BBS94KK.Execute("Select MyName,Name From[KK_sms] where ID="&ID&" And (Name='"&BBS94KK.MyName&"' or MyName='"&BBS94kk.MyName&"')") If not Rs.eof then If Lcase(BBS94KK.MyName)=Lcase(Rs(0)) Then BBS94KK.execute("Update [KK_sms] set MyFlag=2 where ID="&ID) Else BBS94KK.execute("Update [KK_sms] set Flag=2 where ID="&ID) End If BBS94KK.Execute("Delete from [KK_sms] where MyFlag=2 And Flag=2") BBS94KK.Execute("Update [KK_User] set SmsSize=SmsSize-1 where ID="&BBS94KK.MyID) End If Rs.close Set Rs=Nothing Response.Redirect "sms.asp" End Sub Sub DelAll Dim ID,I ID=BBS94KK.CheckNum(request("ID")) I=0 If ID=1 Then'删收箱 I=BBS94KK.Execute("select count(*) From[KK_Sms] where Name='"&MyName&"' And Flag=0" )(0) BBS94KK.Execute("Update [KK_sms] Set MyFlag=2 where MyName='"&BBS94KK.MyName&"'") ElseIf ID=2 Then'删发箱 I=BBS94KK.Execute("select count(*) From[KK_Sms] where MyName='"&MyName&"' And Flag<>2" )(0) BBS94KK.Execute("Update [KK_sms] Set Flag=2 where Name='"&BBS94KK.MyName&"'") Else BBS94KK.Execute("Update [KK_sms] Set Flag=2 where Name='"&BBS94KK.MyName&"'") BBS94KK.Execute("Update [KK_sms] Set MyFlag=2 where MyName='"&BBS94KK.MyName&"'") End If If isnull(I) Then I=0 BBS94KK.Execute("Update [KK_User] set SmsSize="&i&" where ID="&BBS94KK.MyID) BBS94KK.Execute("Delete from [KK_sms] where MyFlag=2 And Flag=2") Session(CacheName & "MyInfo") = Empty BBS94KK.Alert"清空所有信件成功！","Sms.asp" End Sub Sub ShowMySmsInfo() Dim SmsSize,content SmsSize=int(SESSION(CacheName & "MyInfo")(20)) AllSmsSize=SmsSize/Int(SESSION(CACHENAME & "MYGRADEINFO")(18))*100 If AllSmsSize>100 Then AllSmsSize=100 IF AllSmsSize<0 Then AllSmsSize=0 IF AllSmsSize>0 And AllSmsSize<1 Then AllSmsSize=1 Content=SmsSize/SESSION(CacheName & "MyGradeInfo")(18)*250 If Content>250 Then Content=250 Content="

信箱容量：

已使用 "&Int(AllSmsSize)&" %

收件箱

发件箱

写新留言

清空信箱

" Response.Write BBS94KK.ReadSkins("用户控制面版") BBS94KK.ShowTable"论坛留言信箱",Content End Sub Sub ReadSms() Dim S,div,Content,Temp,UserPic,Rs,P,strPageInfo,Arr_Rs,I,Caption,bgColor,BBS94KK_ubb,Sqlwhere,title,UserName If Action="elapse" Then Title="发送的信件记录" Sqlwhere="Name='"&BBS94KK.MyName&"' and Flag=0" ElseIf Action="colloquy" Then UserName=Request.querystring("Name") If Not BBS94KK.Fun.CheckName(UserName) Then BBS94KK.GoToErr(1) Title="和"&UserName&"的交谈记录" Sqlwhere="(MyName='"&BBS94KK.MyName&"' and Name='"&UserName&"' and MyFlag<2) or (Name='"&BBS94KK.MyName&"' And MyName='"&UserName&"' and Flag=0)" Else Title="收取信件" Sqlwhere="MyName='"&BBS94KK.MyName&"' and MyFlag<2" End If Set P = New Cls_PageView P.strTableName = "[KK_Sms]" P.strPageUrl="?Action="&Action P.strFieldsList = "ID,Name,Content,AddTime,MyFlag,UbbString,Flag,MyName" P.strCondiction = Sqlwhere P.strOrderList = "ID desc" P.strPrimaryKey = "ID" P.intPageSize = 10 P.intPageNow = Request.querystring("page") P.strCookiesName = "Sms"&Action P.InitClass Arr_Rs = P.arrRecordInfo strPageInfo = P.strPageInfo Set P = nothing If IsArray(Arr_Rs) Then Set BBS94KK_ubb=New BBS94KKubb_Cls Div="

" If BBS94KK.MSIE Then Div=Replace(Div,"min-","padding-right:0px; overflow-x: hidden;") End If For i = 0 to UBound(Arr_Rs, 2) BBS94KK_ubb.UbbString=Arr_Rs(5,I) If lcase(Arr_Rs(1,I))=lcase(BBS94KK.MyName) Then Temp="发送给 "&Arr_Rs(7,I)&" 的信件 " If Action="elapse" Then Temp=Temp&"

" If Session(CacheName & "MyInfo")(11)="1" Then UserPic=" QQ头像

" Else UserPic="

" End if Else Set Rs=BBS94KK.execute("select top 1 IsQQpic,QQ,Pic,PicW,PicH from [KK_User] where Name='"&Arr_Rs(1,I)&"'") If Not Rs.eof then Temp="

" IF Rs(0)=1 then UserPic=" QQ头像

" Else UserPic="

" End If Else UserPic="

" End if Rs.Close Set Rs=nothing End If If I mod 2 <>0 Then bgColor="background-color: "&BBS94KK.SkinsPIC(1)&";" Else bgColor="" S="

"&Arr_Rs(1,I)&"

"&UserPic&"

" S=S&DIV&Temp&"

" IF Arr_Rs(4,I)=1 Then S=S&"

" S=S&"

"&BBS94KK_Ubb.UBB(Arr_Rs(2,I),2)&"
留言时间： "&Arr_Rs(3,I)&"

" Content=Content&S Next Content=Content&"

"&strPageInfo&"

" Set BBS94KK_ubb=Nothing End If BBS94KK.ShowTable Title,Content If Session(CacheName&"updateSms")="" or Int(Session(CacheName & "MyInfo")(27))>0 then BBS94KK.ExeCute("Update [KK_user] Set NewSmsNum=0 Where Name='"&BBS94KK.MyName&"'") BBS94KK.ExeCute("Update [KK_Sms] Set MyFlag=0 Where MyFlag=1 and MyName='"&BBS94KK.MyName&"'") Session(CacheName&"updateSms")="Y" Session(CacheName & "MyInfo") = Empty End If End Sub Sub WriteSms() If AllSmsSize=100 Then Temp="系统警告":S="

亲爱的用户，您的论坛留言信箱容量已满，请尽快删除一些信件！

" Else Dim Name,Rs,S,Temp,Content,ID ID=BBS94KK.CheckNum(request("ID")) Name=request.querystring("Name") If Not BBS94KK.Fun.CheckName(Name) Then BBS94KK.GoToErr(1) Set Rs=BBS94KK.execute("select Content from [KK_sms] where name='"&Name&"' And MyName='"&BBS94KK.MyName&"' and Id="&ID&"") if not Rs.eof then Content=Rs("Content") End if Rs.Close Set Rs=nothing S="" Temp="签写发送留言" End If BBS94KK.ShowTable Temp,S End Sub Sub SaveSms() 'BBS94KK.CheckMake() Dim S,Content,ToName,TmpUbbString If int(SESSION(CacheName & "MyInfo")(7))now() then BBS94KK.GoToErr(53) ToName=BBS94KK.Fun.GetForm("caption") Content=BBS94KK.Fun.GetForm("Content") If ToName="" or Content="" then BBS94KK.GoToErr(36) If BBS94KK.Fun.CheckIsEmpty(Content) Then BBS94KK.GoToErr(50) If BBS94KK.Info(60)="1" Then Content=BBS94KK.Fun.Replacehtml(Content) TmpUbbString=BBS94KK.Fun.UbbString(Content) If Not BBS94KK.Fun.CheckName(ToName) Then BBS94KK.GoToErr(41) IF Len(Content)>Int(Session(CacheName & "MyGradeInfo")(19)) Then BBS94KK.GoToErr(29) S=BBS94KK.Execute("Select Count(*) From[KK_Sms] where Name='"&BBS94KK.MyName&"' And DATEDIFF('d',AddTime,'"&BBS94KK.NowBbsTime&"')<1")(0) If Isnull(S) Then S=0 If S>Int(Session(CacheName & "MyGradeInfo")(13)) Then BBS94KK.GoToErr(55) If BBS94KK.execute("select Name From [KK_User] where name='"&ToName&"'and IsDel=0").eof Then BBS94KK.GoToErr(54) BBS94KK.execute("insert into [KK_sms](name,Content,Myname,ubbString,MyFlag)values('"&BBS94KK.MyName&"','"&Content&"','"&ToName&"','"&TmpUbbString&"',1)") BBS94KK.execute("update [KK_user] Set Coin=Coin-"&int(BBS94KK.Info(123))&" where ID="&BBS94KK.MyID) BBS94KK.ExeCute("Update [KK_user] Set NewSmsNum=NewSmsNum+1,SmsSize=SmsSize+1 Where Name='"&ToName&"'") Session(CacheName&"SmsTime")=Now() '在线通知 BBS94KK.UpdageOnline ToName,1 Content="

已经成功的给 "&ToName&" 留言

本站扣除手续费 "&BBS94KK.Info(123)&BBS94KK.Info(120)&"

返回首页

返回我的信箱

" BBS94KK.ShowTable"发送成功",Content End Sub %>