<% Dim SqlStr, Rs, Action, Fso, Folder, Img Action = Trim(Request.Form("Action")) if Action = "" then %>

 

我要留言

 
name=Form1 onsubmit="return CheckForm();" method=post>
请留名:
手机号:
Email:
网站:
选择头像:
留言:  
 
  设为隐藏(只有管理员能看到)
 
 
<% else Dim IsErr, ErrMsg Dim Name, QQ, Email, HomePage, Face, Content, IP, CheckCode, Open Name = Trim(Request.Form("Name")) QQ = Trim(Request.Form("QQ")) Email = Trim(Request.Form("Email")) HomePage = Trim(Request.Form("HomePage")) Face = Trim(Request.Form("Face")) Content = Trim(Request.Form("Content")) Open = Trim(Request.Form("Open")) IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP=Request.ServerVariables("REMOTE_ADDR") if Name = "" then IsErr = true ErrMsg = ErrMsg + "
  • 名字不能空呀!
    • " end if if Content = "" or Len(Content) > 5000 then IsErr = true ErrMsg = ErrMsg + "
  • 留言内容不能大于5000字！
    • " end if if IsErr = true then call WriteErrMsg(ErrMsg) Response.End end if Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Message", conn, 1, 3 Rs.AddNew Rs("Name") = Name Rs("QQ") = QQ Rs("Email") = Email Rs("HomePage") = HomePage Rs("Content") = HTMLEncode(Content) Rs("Face") = face if Open = "True" then Rs("Opened") = false end if Rs("IP") = IP Rs.Update Rs.Close Response.Redirect "index.asp" end if %>