<%Response.Buffer = true%>
<%
'=========================================================
' File: usersms.asp
' Version:5.0
' Date: 2002-9-11
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
dim tablebody
dim boxName,smscount,smstype,readaction,turl
if not founduser then
errmsg=errmsg+" "+"
您没有登录。"
founderr=true
end if
stats="用户短信服务"
call nav()
if founderr then
call head_var(2,0,"","")
call dvbbs_error()
else
call head_var(0,0,membername & "的控制面板","usermanager.asp")
%>
<%
call main()
end if
call activeonline()
call footer()
sub main()
smscount=1
select case request("action")
case "inbox"
boxName="收件箱"
smstype="inbox"
readaction="read"
turl="readsms"
sql="select * from message where incept='"&trim(membername)&"' and issend=1 and delR=0 order by flag,sendtime desc"
call smsbox()
case "outbox"
boxName="草稿箱"
smstype="outbox"
readaction="edit"
turl="sms"
sql="select * from message where sender='"&trim(membername)&"' and issend=0 and delS=0 order by sendtime desc"
call smsbox()
case "issend"
boxName="已发送的消息"
smstype="issend"
readaction="outread"
turl="readsms"
sql="select * from message where sender='"&trim(membername)&"' and issend=1 and delS=0 order by sendtime desc"
call smsbox()
case "recycle"
boxName="垃圾箱"
smstype="recycle"
readaction="read"
turl="readsms"
sql="select * from message where ((sender='"&trim(membername)&"' and delS=1) or (incept='"&trim(membername)&"' and delR=1)) and not delS=2 order by sendtime desc"
call smsbox()
case else
boxName="收件箱"
smstype="inbox"
readaction="read"
turl="readsms"
sql="select * from message where incept='"&trim(membername)&"' and issend=1 and delR=0 order by flag,sendtime desc"
call smsbox()
end select
end sub
sub smsbox()
dim newstyle
response.write "
"&_
"