<% Option Explicit %>
<%
if request("MemName")="" then
Response.Write("")
Response.End
end if
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<%
dim Password,RsmessageObj,Messages,rs1,RssendObj,Sqlsend
MemName = Session("MemName")
PassWord = Session("MemPassWord")
MemID = Session("MemID")
if request("action")="del" then
conn.execute("update Message set IsRecyle=true where MeID="&Cint(trim(Request("Meid"))))
Response.Write("")
Response.End
end if
if request.Form("action")="addto" then
set Rs1 = Conn.Execute("select * from Members where MemName='"& Replace(Trim(Request.Form("MeFrom")),"'","''") &"'")
if rs1.eof then
Response.Write("")
Response.End
end if
set RssendObj = server.CreateObject ("ADODB.RecordSet")
Sqlsend = "select * from message"
RssendObj.Open Sqlsend,Conn,1,3
RssendObj.addnew
RssendObj("MeRead")=Replace(Trim(Request.Form("MeFrom")),"'","''")
RssendObj("MeFrom")=Replace(Trim(Request.Form("MeRead")),"'","''")
RssendObj("MeTiTle")=Replace(Trim(Request.Form("MeTiTle")),"'","''")
RssendObj("MeContent")=request.Form("MeContent")
RssendObj("FromDate")=now()
RssendObj("ReadTF")=false
RssendObj("IsRecyle")=false
RssendObj.update
RssendObj.close
set RssendObj=nothing
Response.Write("")
Response.End
end if
set RsMessageObj = Conn.Execute("select * from Message where MeID="&Cint(trim(Request("Meid"))))
conn.execute("update Message set ReadTF=true where MeID="&Cint(trim(Request("Meid"))))
if rsmessageobj.eof then
Response.Write("")
Response.End
end if
%>
登陆成功_短信中心