📄 sendsave.asp

📁 不是我做的一个留言板
💻 ASP
字号:
<%@ language=vbscript %>
<%
laccname=trim(request.form("accname"))
lsendname=trim(request.form("sendname"))
lcontent=trim(request.form("content"))
strcontent=replace(lcontent,vbcrlf,"<br>"&vbcrlf)
lsendid=session("sendid")
if laccname=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('请输入接收人呢称！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if lsendname=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('请输入发送人呢称！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if lcontent=""then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('哎呀！I服了YOU！干吗不写内容呢？');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
if len(lcontent)>150 then '--------------判断名字是否为空
		response.write"<script language='javascript'>" 
		 response.write"alert('短消息，写那么长干吗？！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("mis.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
sql = "select * from message"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("accname")=laccname
rs("sendname")=lsendname
rs("sendid")=lsendid
rs("content")=strcontent
rs("sendtime")=now()
rs.update
rs.close
set rs=nothing
conn.close
%>
<html>
<head>
<title>发送成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
发送成功 <br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="75%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bordercolorlight="#999999" bordercolordark="#f7f7f7">
    <tr> 
      <td height="9" bgcolor="#CCCCCC">
        <div align="center">西安财经学院信息994通讯录管理中心</div>
      </td>
    </tr>
    <tr>
      <td>
        
      <div align="center"><a href="index.asp">查看全部</a>---<a href="per.asp">个人资料</a>---<a href="guestbook/index.asp" target="_blank">留言板</a>---<a href="edit.asp">修改个人资料</a></div>
      </td>
    </tr>
  </table>

</body>
</html>
⌨️ 快捷键说明

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