?? msgsave.asp
字號:
<!--#include file="articleconn.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 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,rvemail,reviewtitle
rvauthor=chkcookie(request.form("rvauthor"))
review=chkcookie(request.form("rvcontent"))
reviewtitle=chkcookie(request("rvname"))
dim savrRS,savrSQL
set savrRS=server.createobject("adodb.recordset")
savrSQL="select * from adminMsg"
savrRS.open savrSQL,conn,1,3
savrRS.addnew
savrRS("msgTitile")=reviewtitle
savrRS("sendBy")=rvauthor
savrRS("content")=review
savrRS.update
savrRS.close
set savrRS=nothing
set conn=nothing
%>
<script language="javascript" type="text/javascript">
alert ("發表成功,謝謝您的建議！");
window.close();
</script>
</body>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -