" background="images/<%=rs_style("bg_img")%>"> <%pid=Request("id") Set ws=Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM u2u WHERE id=" & pid & "" ws.Open SQL,conn,1,3 'ws.Open "Select * From u2u Where id="& pid,conn,1,3 'ws("readed")=0 ws.Update%>
" bgcolor="<%=rs_style("table_tit_color1")%>">
主題
" bgcolor="<%=rs_style("table_tit_color1")%>">
<%=ws("totitle")%>
" bgcolor="<%=rs_style("table_bg_color")%>">
內容
" bgcolor="<%=rs_style("table_bg_color")%>">
<%=ws("totext")%>
<%=request("msg")%>
<%IF UserID=ws("fromuser") then%> 收件者：
> 標題：
~">
<%else%> 收件者：
> 標題：
">
<%end if%>
<%=ws("totext")%><hr>
<%ws.close SQL="SELECT * FROM id WHERE user='" & request.cookies("UserID") & "'" ws.Open SQL,conn,1,3 ws("havepm")=0 '0就是簡訊已經讀了,沒有 ws.Update ws.close%>
