<% 'If Session("UserID")="" Then Response.Redirect("../index.asp") Set Rs_Sch = Server.CreateObject("ADODB.Recordset") Set Rs_Save = Server.CreateObject("ADODB.Recordset") MsgID=Request("MsgID") If Request("MsgID")<>"" Then SQL="Select * From MemberMsg Where MsgID="&MsgID Rs_Sch.Open SQL, Conn, 1, 3 If Rs_Sch.Eof=False Then MsgSubject="RE: "&Rs_Sch("MsgSubject") MsgDetail="

-----------------------------------------------------------------------------------------------------------------" MsgDetail=MsgDetail&"
Date: "&Rs_Sch("MsgDate") MsgDetail=MsgDetail&"
Subject: "&Rs_Sch("MsgSubject") MsgDetail=MsgDetail&"
From: "&Rs_Sch("MsgSender") MsgDetail=MsgDetail&"
To: "&Rs_Sch("UserID") MsgDetail=MsgDetail&"
Message: "&Rs_Sch("MsgDetail") End if Rs_Sch.Close End if If Request("save")="1" Then If (Request("GroupUserID")<>"")AND(InStr(Request("GroupUserID"),";")>0) Then Text=Request("GroupUserID") ln=Len(Text) For i=1 to ln If Text<>"" Then txt=Left(Text,InStr(Text,";")-1) Call Adding(txt) Text=Right(Text,ln-InStr(Text,";")) ln=Len(Text) End if next Else Call Adding(Request("UserID")) End if Response.Redirect("MemberMsg.asp?msg=1&UserID="&Request("UserID")) End if Sub Adding(ID) SQL="SELECT * FROM Member WHERE UserID='"&ID&"'" Rs_Sch.Open SQL, Conn, 1, 3 If Rs_Sch.Eof=False Then SQL="SELECT * FROM MemberMsg" Rs_Save.Open SQL, Conn, 1, 3 Rs_Save.AddNew Rs_Save("UserID")=ID Rs_Save("MsgSubject")=Request("MsgSubject") Rs_Save("MsgDetail")=Request("question") Rs_Save("MsgSender")=Session("UserID") Rs_Save("ReadStatus")="no" Rs_Save("MsgDate")=Now Rs_Save.Update Rs_Save.Close End if Rs_Sch.Close End Sub %> Clasic Amulet
ส่งข้อความส่วนบุคคล
<%If Session("UserID")="" Then%> <%Else%> <%If Request("msg")="1" Then%> <%Else%> "> <%End if%> <%End if%>

 

 

หากท่านเป็นสมาชิกแล้ว กรุณา Login เข้าสู่ระบบ

 

หากยังไม่ได้สมัครสมาชิก สามารถสมัครได้ที่นี่ Register

 

 

 

 

 

 

 

ส่งข้อความถึง <%=Request("UserID")%> เรียบร้อยแล้ว


ปิดหน้าต่างนี้

 

 

 

 

 

 

ข้อความถึง <% If Session("LoginType")="Admin" Then%> บัญชีรายชื่อสมาชิก
<% Else Response.Write(Request("UserID")) End if %>
หัวข้อ
ข้อความ
 
   

 

 

cron