savemessage.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
   <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ly")
		
secuser=Replace_Text(request.form("selected_friend_id"))
secuser=replace(replace(replace(secuser,"-1+",""),"0+",""),"1+","")
if request("Verifycode")="" then 
if request.form("Verifycode")="" or request.form("messageContent")="" then 
  response.write"<SCRIPT language=JavaScript>alert('亲爱的会员，您的验证码输入错误/您还没有输入内容，请再试一下');history.back(-1);</script>"
 response.End()
end if
else
touser=Replace_Text(request.form("touser"))
set rs=server.CreateObject("adodb.recordset")
sqlr="select id,[user] from wygkcn_corporation where flag=1 and  [user]='"&touser&"' and id<>"&session("id")&"" 
rs.open sqlr,conn,1,3
if rs.eof or rs.bof then
  response.write"<SCRIPT language=JavaScript>alert('您填写的对方会员登陆名不正确或会员登陆名是您自己！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
  response.end
else
mycid=rs("id")

end if

end if 
title=Replace_Text(request.form("messageTitle"))
content=Replace_Text(request.form("messageContent"))
sendemail=Replace_Text(request.form("sendemail"))
saveSendMessage=Replace_Text(request.form("saveSendMessage"))
sendContact=Replace_Text(request.form("sendContact"))


set rs1=server.createobject("adodb.recordset")
sql1="select * from Yixiang_getprice1 where (id is null)" 
rs1.open sql1,conn,1,3
rs1.addnew
rs1("title")=title
rs1("content")=content

if sendemail<>"" then rs1("sendemail")=1

if sendContact<>"" then rs1("sendcontact")=1

rs1("mycid")=mycid
rs1("sendcid")=session("id")
rs1("datetime")=now()
rs1.update

 
set rs=server.createobject("adodb.recordset")
sql="select * from Yixiang_getprice where (id is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content

if sendemail<>"" then rs("sendemail")=1
if sendContact<>"" then rs("sendcontact")=1

rs("mycid")=mycid
rs("sendcid")=session("id")
rs("datetime")=now()

rs("getprice1id")=rs1("id")
rs1.close
set rs1=nothing

rs.update

rs.close
set rs=nothing

  response.write"<SCRIPT language=JavaScript>alert('留言成功！');"
  response.write"javascript:history.go(-1)</SCRIPT>"
%>