save.asp

来自「一个简单的留言板!可以很好的学习学习」· ASP 代码 · 共 45 行

ASP
45
字号

<!--#include file="conn.asp" -->
<% 
name=Trim(Request.Form("name"))
oicq=Trim(Request.Form("oicq"))
email=Trim(Request.Form("email"))
homepage=Trim(Request.Form("homepage"))
content=Replace(request.form("content"),vbCrLf,"<br>")

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

rs.addnew
rs("name")=name
rs("oicq")=oicq
rs("email")=email
rs("homepage")=homepage
rs("content")=content
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing
 %>
<html>
<head>
<title>留言成功!</title>
<link href="aaa.css" rel="stylesheet" type="text/css">
<meta http-equiv="refresh" content="2;URL=index.asp">
</head>

<body>
<table width="500" height="400" border="0" align="center">
  <tr>
    <td><div align="center">
        <p>留言成功!</p>
        <p>2秒后自动<a href="index.asp">返回首页</a>......</p>
      </div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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