<!--#include FILE="conn.asp"-->
<!--#include FILE="../inc.asp"-->
<!-- #include file="../ydzq.asp" -->
<%

Call head()
Call saycarda("修改交友信息")
id=request.querystring("id")
about=request("about")
txt=request("txt")
xs=request("xs")
logo=request("logo")
yfmd=request("yfmd")
yfsc=request("yfsc")
yfzy=request("yfzy")
yfxg=request("yfxg")
If request("xyxy")=111 Then
if txt="做爱" or Instr(txt,"鸡巴")>0 or Instr(txt,"打飞机")>0 or Instr(txt,"打炮")>0 Then
Call saycarda("出错")
Call Error("你的发言极其淫荡，请注意文明讲话！系统已记录！")
  end if

if txt="\" or Instr(txt,"sex")>0 or Instr(txt,"$")>0 or Instr(txt,"=")>0 or Instr(txt,"*")>0 or Instr(txt,"#")>0 or Instr(txt,"+")>0 or Instr(txt,"gkggk")>0 or Instr(txt,"@")>0 or Instr(txt,"%")>0 or Instr(txt,"/")>0 or Instr(txt,chr(32))>0 or Instr(txt,"?")>0 or Instr(txt,"")>0 or Instr(name,";")>0 or Instr(name,",")>0 or Instr(name,"'")>0 or Instr(name,"dfgjfdj")>0 or Instr(txt,chr(34))>0 or Instr(txt,chr(9))>0 or Instr(txt,"fgkgfk")>0 or Instr(txt,"$")>0 or Instr(name,"dfgjfdj")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有字符，说话请使用中文和英文字母，谢谢！")
  end if
if Instr(txt,".com")>0 or Instr(txt,".cOm")>0 or Instr(txt,".Com")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.com”字眼，有广告成份！")
  end If
  
  if Instr(txt,".info")>0 or Instr(txt,".info")>0 or Instr(txt,".info")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“.info”字眼，有广告成份！")
  end If

  if Instr(txt,".INFO")>0 or Instr(txt,".INFO")>0 or Instr(txt,".INFO")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“.INFO”字眼，有广告成份！")
  end If
  if Instr(txt,"wap.")>0 or Instr(txt,"wap.")>0 or Instr(txt,"wap.")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“wap.”字眼，有广告成份！")
  end If
  if Instr(txt,"www.")>0 or Instr(txt,"www.")>0 or Instr(txt,"www.")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“www.”字眼，有广告成份！")
  end If

if Instr(txt,".cn")>0 or Instr(txt,".Cn")>0 or Instr(txt,".cN")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.cn”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end if
if Instr(txt,".cc")>0 or Instr(txt,".cC")>0 or Instr(txt,".Cc")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.cc”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end if

if Instr(txt,".net")>0 or Instr(txt,".Net")>0 or Instr(txt,".neT")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.net”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end If
  if about="做爱" or Instr(about,"鸡巴")>0 or Instr(about,"打飞机")>0 or Instr(about,"打炮")>0 Then
Call saycarda("出错")
Call Error("你的发言极其淫荡，请注意文明讲话！系统已记录！")
  end if

if about="\" or Instr(about,"sex")>0 or Instr(about,"$")>0 or Instr(about,"=")>0 or Instr(about,"*")>0 or Instr(about,"#")>0 or Instr(about,"+")>0 or Instr(about,"gkggk")>0 or Instr(about,"@")>0 or Instr(about,"%")>0 or Instr(about,"/")>0 or Instr(about,chr(32))>0 or Instr(about,"?")>0 or Instr(about,"")>0 or Instr(name,";")>0 or Instr(name,",")>0 or Instr(name,"'")>0 or Instr(name,"dfgjfdj")>0 or Instr(about,chr(34))>0 or Instr(about,chr(9))>0 or Instr(about,"fgkgfk")>0 or Instr(about,"$")>0 or Instr(name,"dfgjfdj")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有字符，说话请使用中文和英文字母，谢谢！")
  end if
if Instr(about,".com")>0 or Instr(about,".cOm")>0 or Instr(about,".Com")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.com”字眼，有广告成份！")
  end If
  
  if Instr(about,".info")>0 or Instr(about,".info")>0 or Instr(about,".info")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“.info”字眼，有广告成份！")
  end If

  if Instr(about,".INFO")>0 or Instr(about,".INFO")>0 or Instr(about,".INFO")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“.INFO”字眼，有广告成份！")
  end If
  if Instr(about,"wap.")>0 or Instr(about,"wap.")>0 or Instr(about,"wap.")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“wap.”字眼，有广告成份！")
  end If
  if Instr(about,"www.")>0 or Instr(about,"www.")>0 or Instr(about,"www.")>0 Then
  Call saycarda("出错")
Call Error("你的发言不能含有“www.”字眼，有广告成份！")
  end If

if Instr(about,".cn")>0 or Instr(about,".Cn")>0 or Instr(about,".cN")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.cn”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end if
if Instr(about,".cc")>0 or Instr(about,".cC")>0 or Instr(about,".Cc")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.cc”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end if

if Instr(about,".net")>0 or Instr(about,".Net")>0 or Instr(about,".neT")>0 Then
Call saycarda("出错")
Call Error("你的发言不能含有“.net”字眼，有广告成份！<br/>系统已记录了你本次作！")
  end if
If about="" Then
Call Error("宣言不能为空!!!!")
End If
If Len(about)<3 Then
Call Error("宣言不能少于三个字!!")
End If

If Len(about)>20 Then
Call Error("宣言不能大于20个字!!!!")
End If
If txt="" Then
Call Error("内容不能为空!!")
End If
If Len(txt)<10 Then
Call Error("内容不能少于10个字!!!!")
End If



                set rs=Server.CreateObject("ADODB.Recordset")
                rs.open"select * from saytkyf where id="&id,connyf,1,2
                 rs("about")=about
                 rs("txt")=txt
                 rs("userid")=myid
				 rs("logo")=logo
				 rs("xs")=xs
				 rs("yfmd")=yfmd
				 rs("yfsc")=yfsc
				 rs("yfzy")=yfzy
				 rs("yfxg")=yfxg
                 rs.update
                 rs.close
                response.write "修改成功<br/>"


		
Else
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from saytkyf where id="&id,connyf,1,1
yfabout=rs("about")
yftxt=rs("txt")
yflogo=rs("logo")
yfxs=rs("xs")
yfuserid=rs("userid")
yfmd=rs("yfmd")
yfsc=rs("yfsc")
yfxg=rs("yfxg")
yfzy=rs("yfzy")
rs.close
Set rs=Nothing

If yfuserid=myid or keys=1 or keys=2 Then
else
Call Error("无权修改!")
End If

if saytk<>1 then
	Response.write "<form name=""form"" method=""post"" action=""edit.asp?xyxy=111&amp;saytk="&saytk&"&amp;id="&id&"&amp;sid="&sid&""">"
end if

Response.Write "缘份对对碰>>发布交友信息:<br/>"
Response.Write "爱情宣言:（20字以内）<br/><input name=""about"" emptyok=""true"" maxlength=""20"" value="""&yfabout&"""/><br/>"
Response.Write "真情心语:（1000字以内）<br/>"

if saytk=1 then
Response.write "<input name=""txt"" emptyok=""true"" maxlength=""1000"" value="""&yflogo&"""/><br/>"
else
Response.write "<textarea name=""txt"" maxlength=""1000"" emptyok=""true"" rows=""15"" cols=""15"">"&yftxt&"</textarea><br/>"
end If





Response.Write ("附图:<input name=""logo"" emptyok=""true"" value="""&yflogo&"""/><br/>")
Response.Write "交友目的:"
Response.Write "（2字以内 如:帅哥）<br/>求<input name=""yfmd"" emptyok=""true"" maxlength=""2"" value="""&yfmd&"""/><br/>"

Response.Write "我的职业:（10字以内）<br/><input name=""yfzy"" emptyok=""true"" maxlength=""10"" value="""&yfzy&"""/><br/>"
Response.Write "我的性格:（6字以内）<br/><input name=""yfxg"" emptyok=""true"" maxlength=""6"" value="""&yfxg&"""/><br/>"
Response.Write "我的身材:（2字以内）<br/><input name=""yfsc"" emptyok=""true"" maxlength=""2"" value="""&yfsc&"""/><br/>"



Response.Write ("接受现实交往:<select title=""xs"" name=""xs"" value="""&xs&""">")
Response.Write ("<option value=""0"">否</option>")
Response.Write ("<option value=""1"">是</option>")
Response.Write "</select><br/>"
if saytk=>2 then
Response.Write "<input type=""submit"" value=""确定修改""/></form><br/>"
else
Response.write "<anchor title=""确定修改"">确定修改"
	Response.write "<go href=""edit.asp?xyxy=111&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
	Response.Write "<postfield name=""about"" value=""$(about)""/>"
Response.Write "<postfield name=""txt"" value=""$(txt)""/>"
Response.Write "<postfield name=""xs"" value=""$(xs)""/>"
Response.Write "<postfield name=""logo"" value=""$(logo)""/>"
Response.Write "<postfield name=""yfsc"" value=""$(yfsc)""/>"
Response.Write "<postfield name=""yfxg"" value=""$(yfxg)""/>"
Response.Write "<postfield name=""yfmd"" value=""$(yfmd)""/>"
Response.Write "<postfield name=""yfzy"" value=""$(yfzy)""/>"
	Response.write "</go></anchor>"&chr(13)
	End if%>
<%End if%>
<br/><a href='index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>缘份</a>
-<a href='/bbs/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>社区</a>-
<a href='/index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>首页</a>
<%
Call headsay()
%>
