save.asp

西亚电子购物系统

<!--#include file="header.asp" -->
<!--#include file="conn/nosql.asp" -->
<table width="778" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="185" valign="top" class="table-right">
<!--#include file="left.asp" --></td>
    <td width="615" height="300" valign="top"><p>&nbsp;</p><table width="90%" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td> 
      <%
if request("name")="" then 
response.write "请留下您的姓名，谢谢！"
response.end
end if
if request("content")="" then 
response.write "不写留言反馈内容怎么提交！"
response.end
end if
if request("hf")<>"" then 
response.write "禁止从非本网站网页提交留言!"
response.end
end if
if Len(request.form("content"))>800 then 
response.write "错误提示:每条留言反馈的内容不能大于800字!<br>&nbsp;&nbsp;<a href=# onclick='history.back()'>返回修改</a>"
response.end
end if
%>
<!--#include file="guestbook/inc/char.inc"-->
<%
fid = 1
dim email
dim name
dim tel
dim content
dim sql
dim rs
if request("tel")="tel" then
   tel=""
else
tel=nosql(request("tel"))
end if
if request("email")="E-mail" then
   email=""
else
   email=nosql(request("email"))
end if
content=nosql(request("content"))
name=nosql(request("name"))
sia_log = Request.servervariables("REMOTE_ADDR")

set rs=server.createobject("adodb.recordset")
sql="select * from sia_guestbook where (id is null)" 

rs.open sql,conn,1,3
rs.addnew

rs("email")=email
rs("tel")=tel
rs("content")=content
rs("name")=name
rs("ip")=ip
rs.update

rs.close
Response.write "<img src=images/i-2.gif width=17 height=17>留言成功，谢谢您对我们的支持与厚爱！<br><br>&nbsp;&nbsp;<a href=index.asp>&gt;&gt;返回首页</a><br><br>&nbsp;&nbsp;<a href=guestbook.asp>&gt;&gt;返回继续留言</a>"
%>          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="footer.asp" -->