savemessage.asp

来自「e人畅想公用日记本 v1.0」· ASP 代码 · 共 30 行

<%if isnull(Request.ServerVariables("HTTP_REFERER")) or instr(1,lcase(Request.ServerVariables("HTTP_REFERER")),"/index.asp")<=0 then
else%>
<%name=request.form("name")
title=request.form("title")
body=request.form("body")
website=request.form("website")
mail=request.form("mail")
oicq=request.form("oicq")
face=cint(request.form("face"))
secret=cint(request.form("secret"))
%>
<!--#include file="top.asp"-->
<hr width="600" size="1" noshade>
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="table_pointline">
  <tr>
    <td align="center"> 
      <%if name="" or title="" or body="" or website="" or mail="" or oicq="" then%>
      有东西漏写拉-_-,<a href="javascript:history.go(-1)" class="text">返回</a> 
      <%else%>
      <%set sme=conn.execute("insert into message(name,title,body,oicq,website,mail,face,secret)values('"&name&"','"&title&"','"&body&"','"&oicq&"','"&website&"','"&mail&"',"&face&","&secret&")")
	  set upm=conn.execute("update about set message=message+1 where id=1")
	  set upm=nothing
	  set sme=nothing%>
      留言成功！<a href="index.asp" class="text">查看</a> 
      <%end if%>
    </td>
  </tr>
</table>

<!--#include file="bottom.asp"--><%end if%>