<%
Dim Action,userName,title,phone,email,qq,address,content
On Error Resume Next
Action = Trim(Request("Action"))
userName = Trim(Request("userName"))
title = Trim(Request("title"))
email = Trim(Request("email"))
qq = Trim(Request("qq"))
phone = Trim(Request("phone"))
address = Trim(Request("address"))
content = Trim(Request("content"))
If Action="save" Then
If ChkInvaildWord(userName) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(title) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(email) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(qq) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(phone) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(address) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
If ChkInvaildWord(content) Then
Call ReturnBack("当前输入的字符中有系统不允许的字符：select|update|delete|insert|@|--|%|*|#|&|")
End If
conn.Execute("INSERT INTO[guestbook](userName,title,email,qq,phone,address,content,updateTime,isDeal) VALUES('"&userName&"','"&title&"','"&email&"','"&qq&"','"&phone&"','"&address&"','"&content&"','"&Now()&"',false)")
If Err.Number=0 Then
Call ReturnBack("安徽九五网络公司提示您\n\n留言成功，客服人员会在第一时间为您服务！")
Else
Call ReturnBack("安徽九五网络公司提示您\n\n您提出的留言失败，请稍候再尝试！")
End If
End If
%>
