save.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<%
if request("name")="" then 
response.write "<br><br><br><div align='center'>错误提示:未输入名字!</div>"
response.end
end if
if request("content")="" then 
response.write "<br><br><br><div align='center'>错误提示:未输入内容,姓名与留言反馈内容为必须填写项目!</div>"
response.end
end if
if Len(request.form("content"))>800 then 
response.write "<br><br><br><div align='center'>错误提示:每条留言反馈的内容不能大于800字!</div><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<div align='center'><a href=# onclick='history.back()'>返回修改</a></div>"
response.end
end if
%>

<!--#include file="conn.asp"-->
<!--#include file="inc/char.inc"-->
<%
dim sql2
dim rs2
sql2="select * from admin"
Set rs2= Server.CreateObject("ADODB.Recordset")
rs2.open sql2,conn,1,1

%>
<%
FUNCTION Chknono(String)
    dim noyes
    if not(isnull(rs2("nono")) or isnull(String)) then
    noyes = split(rs2("nono"), "，")
    for i = 0 to ubound(noyes)
        String = Replace(String, noyes(i),"***")
    next
    Chknono = String
    end if
END FUNCTION%>
<%
fid = 1
dim email
dim name
dim tel
dim sex
dim content
dim sql
dim rs
if request("tel")="tel" then
   tel=""
else
tel=htmlencode2(request("tel"))
end if
if request("email")="E-mail" then
   email=""
else
   email=htmlencode2(request("email"))
end if
content=htmlencode2(request("content"))
name=htmlencode2(request("name"))
sex=htmlencode2(request("sex"))
ip = Request.servervariables("REMOTE_ADDR")


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

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

rs("content")=Chknono(content)
content=replace(replace(ucase(request.form("content"))," ",""),"：",":")
rs("content")=Chknono(rs("content"))
rs("name")=Chknono(name)
name=replace(replace(ucase(request.form("name"))," ",""),"：",":")
rs("name")=Chknono(rs("name"))
rs("email")=Chknono(email)
email=replace(replace(ucase(request.form("email"))," ",""),"：",":")
rs("email")=Chknono(rs("email"))
rs("tel")=Chknono(tel)
tel=replace(replace(ucase(request.form("tel"))," ",""),"：",":")
rs("tel")=Chknono(rs("tel"))
rs("sex")=sex
rs("ip")=ip
rs.update

rs.close
conn.close
set conn=nothing
Response.Redirect "index.asp"
%>