" background="images/<%=rs_style("bg_img")%>">
<%SQL = "Select * From id Where user='"&request.cookies("UserID")&"'" set rs11=conn.execute(SQL) Set rs=Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM u2u WHERE touser='" & request.cookies("UserID") & "'" SQL=SQL & "Order By time Desc" rs.Open SQL,conn,1,3 set rs22=conn.execute(SQL) i=0 while not rs22.eof i=i+1 rs22.movenext wend sql2="select * from member_sort where level="&request.cookies("level") set rs_level2=conn.execute(sql2) if request.cookies("level")=empty then response.redirect "loginout.asp" end if sql="select * from u2u where touser='"&request.cookies("UserID")&"'" set rsb=conn.execute(sql) i=0 while not rsb.eof i=i+1 rsb.movenext wend if i>(rs_level2("pm_size")+3) then while i>(rs_level2("pm_size")+3) rs.movefirst rs.delete rs.movenext response.redirect "pm.asp" wend response.redirect "pm.asp" elseif i>=rs_level2("pm_size") then response.write "
空間已滿,請盡快刪除!!~
" end if%>

%" height="34">
<% response.cookies("tid")="個人簡訊管理"%>
<%=request.cookies("UserID")%>  的簡訊收件夾，您可以存<%=rs_level2("pm_size")%>封簡訊，已有<%=i%>封簡訊

%" STYLE="WORD-BREAK: break-all"> <% Page = cint(Request("Page")) myself=request.serverVariables("PATH_INFO") rs.PageSize =10 ' 設定每頁顯示 10 筆 If Page<1 Then Page=1 ELSEIF Page>rs.PageCount Then Page=rs.PageCount END IF%> <%If rs.Eof Then RESPONSE.WRITE "
" bgcolor="<%=rs_style("table_tit_color1")%>">

狀態

 " bgcolor="<%=rs_style("table_tit_color1")%>"> 簡訊主題 " bgcolor="<%=rs_style("table_tit_color1")%>"> 來自 " bgcolor="<%=rs_style("table_tit_color1")%>"> 寄到時間 " bgcolor="<%=rs_style("table_tit_color1")%>"> 執行
Sorry !!尚無訊息..."%> <%Else%> <%rs.AbsolutePage = Page ' 將資料錄移至 PAGE 頁 FOR SH=1 to rs.PageSize ' 顯示資料%> " bgcolor="<%=rs_style("table_bg_color")%>"> <%If rs("readed")=1 Then%> <%Else%><%End If%> 　 " bgcolor="<%=rs_style("table_bg_color")%>"> <%If rs("readed")=1 Then%>"><%=rs("totitle")%>　 <%else%> "><%=rs("totitle")%> <%end if%> " bgcolor="<%=rs_style("table_bg_color")%>"><%=rs("fromuser")%>　 " bgcolor="<%=rs_style("table_bg_color")%>"> <%if rs11 Is Nothing Or rs11.EOF Then%> <%=DateAdd("h",rstitle("servertimezone"),rs("time"))%> <%else%> <%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("time"))%> <%end if%>　 " bgcolor="<%=rs_style("table_bg_color")%>">

刪除" value="ON"> <%rs.MoveNext IF rs.EOF THEN EXIT FOR Next %> %">
<%END IF%>

      新的簡訊        舊的簡訊

<%If rs.PageCount=0 Then%>

頁次1/1

<%Else%>
method=GET>

頁次<%=Page%>/<%=rs.PageCount%> <%If Page<>1 Then%> [1].... [上一頁] <%End If%> <%If Page<>rs.PageCount Then%> [下一頁] ....[<%=rs.PageCount%>] <%End If%>            輸入頁次:

<%End If%>
%">
<%Set rs=Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM u2u WHERE fromuser='" & request.cookies("UserID") & "'" SQL=SQL & "Order By time Desc" rs.Open SQL,conn,1,3 set rs22=conn.execute(SQL)%> %">
<%=request.cookies("UserID")%>  的簡訊發送備忘夾
%" STYLE="WORD-BREAK: break-all"> <% Page = cint(Request("Page")) myself=request.serverVariables("PATH_INFO") rs.PageSize =10 ' 設定每頁顯示 10 筆 If Page<1 Then Page=1 ELSEIF Page>rs.PageCount Then Page=rs.PageCount END IF%> <%If rs.Eof Then RESPONSE.WRITE "
" bgcolor="<%=rs_style("table_tit_color1")%>">

 狀態

 " bgcolor="<%=rs_style("table_tit_color1")%>"> 簡訊主題 " bgcolor="<%=rs_style("table_tit_color1")%>"> 傳送對象 " bgcolor="<%=rs_style("table_tit_color1")%>"> 發送時間
Sorry !!尚無訊息..."%> <%Else%> <%rs.AbsolutePage = Page ' 將資料錄移至 PAGE 頁 FOR SH=1 to rs.PageSize ' 顯示資料%> " bgcolor="<%=rs_style("table_bg_color")%>"> <%If rs("readed")=1 Then%> <%Else%><%End If%> 　 " bgcolor="<%=rs_style("table_bg_color")%>"> <%If rs("readed")=1 Then%>"><%=rs("totitle")%>　 <%else%> "><%=rs("totitle")%> <%end if%> " bgcolor="<%=rs_style("table_bg_color")%>"><%=rs("touser")%>　 " bgcolor="<%=rs_style("table_bg_color")%>"> <%if rs11 Is Nothing Or rs11.EOF Then%> <%=DateAdd("h",rstitle("servertimezone"),rs("time"))%> <%else%> <%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("time"))%> <%end if%>　 <%rs.MoveNext IF rs.EOF THEN EXIT FOR Next%> <%END IF%>

      對方未收的簡訊        對方已收的簡訊

<%If rs.PageCount=0 Then%>

頁次1/1

<%Else%>
method=GET>

頁次<%=Page%>/<%=rs.PageCount%> <%If Page<>1 Then%> [1].... [上一頁] <%End If%> <%If Page<>rs.PageCount Then%> [下一頁] ....[<%=rs.PageCount%>] <%End If%>            輸入頁次:

<%End If%>
%">