📄 msgsave3.asp

📁 网上流行的MOVE站点
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<LINK href="../css/style.css" type=text/css rel=stylesheet>
<body bgColor=#d6d3ce 
style="BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; MARGIN: 0px">
<%
if request.form("rvauthor")="" then%>
<script language="javascript">
alert ( "对不起，您可能忘了填上您的大名啦！");
history.go(-1);
</script>
<%response.end
end if
if request.form("userName")="" then%>
<script language="javascript">
alert ( "对不起，您还没说要送给谁呢！");
history.go(-1);
</script>
<%response.end
end if
if trim(request.form("rvcontent"))="" then%>
<script language="javascript">
alert ("对不起，评论内容不能为空！");
history.go(-1);
</script>
<%response.end
end if
if len(request.form("rvcontent"))>800 then%>
<script language="javascript">
alert( "对不起，评论内容不能大于800个字节")
history.go(-1);
</script>
<%response.end
end if
dim rvauthor,userName,reviewtitle,review,userRS,userSQL
rvauthor=request.form("rvauthor")
review=request.form("rvcontent")
reviewtitle=request("rvname")
userName=request("userName")
set userRS=server.createobject("adodb.recordset")
select case userName
   case "_alluser2020"
     userSQL="select id from Users where oklook=3"
   case "_alluser2020"
     userSQL="select id,from Users where oklook=3"
   case "_alluser2020"
     userSQL="select id,from Users where oklook=3"
   case else 
     userSQL="select id,Userid from Users where Userid='"&request.form("userName")&"'"
end select
userRS.open userSQL,conn,1,1
if userRS.bof and userRS.eof then 
response.Write("<script language='javascript' type='text/javascript'>alert ('系统提示：\n\n1.用户不存在\n\n2.还没有黄金会员！');history.go(-1);</script>")
response.End
end if
dim msgRS,savrSQL
set msgRS=server.createobject("adodb.recordset")
savrSQL="select * from UserMsg"
msgRS.open savrSQL,conn,1,3
do while not userRS.eof
	msgRS.addnew
	msgRS("infoName")=reviewtitle
	msgRS("UserId")=userRS("id")
	msgRS("sendman")=rvauthor
	msgRS("MsgContent")=review
	msgRS.update
	userRS.movenext
loop
msgRS.close
set msgRS=nothing
userRS.close
set userRS=nothing
set conn=nothing
%>
<script language="javascript" type="text/javascript">
alert ("信息已发送！");
window.close();
</script>
</body>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -