<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
Dim FreeWordId : FreeWordId=Request("FreeWordId")
If FreeWordId<>"" Then 
	Session("FreeWordId")=FreeWordId
Else 
	FreeWordId=Session("FreeWordId")
End If
If Request("ToDo")="ToAdd" Then  
	Receive_A=Request("Send_A") 'Wap.DelSpecialMark(
	Receive_B=Request("Send_B")
	Receive_C=Wap.DelSpecialMark(Request("Send_C")) '内容
	Receive_D=Wap.DelSpecialMark(Request("Send_D"))
	If Receive_A="" Then
			ErrorMessage=Wap.Ascii("请输入姓名。")
		ElseIf Receive_B="" Then
			ErrorMessage=Wap.Ascii("请输入主题。") '如果没有错误，则错误信息为空
		ElseIf Receive_C="" Then
			ErrorMessage=Wap.Ascii("请输入内容。") '如果没有错误，则错误信息为空
		Else
			ErrorMessage="" '如果没有错误，则错误信息为空
	End If	
If ErrorMessage="" Then
	Wap.StrSql="Insert Into FreeWordReply (FreeWordId,PersonName,Title,Content,IP,PhoneNumber) Values (" & FreeWordId & ",'" & Receive_A & "','" & Receive_B & "','" & Receive_C & "','" & Wap.PhoneIP & "','" & Wap.PhoneNumber & "')"		
	Wap.RedirectPath=Wap.WapPath & "Success.asp?ToDo=AddFreeWordReplyOk"	
	Wap.MdbInsert
End If
End If
'以下为文件正文。
If Request("WhatToDo")="YouAreFirst" Then Wap.WriteRow "您好，目前此文还没有评论。<br/>欢迎您对本文看法，与其他人一起来分享本文，并和今后来到这里的朋友们交流。<br/>+++++++++++++"
If ErrorMessage<>"" Then Wap.WriteRow ErrorMessage
Wap.WriteRow Wap.TextIn("姓名:","text","Send_A","","")
Wap.WriteRow Wap.TextIn("主题:","text","Send_B","","")
Wap.WriteRow Wap.TextIn("内容:","text","Send_C","","")
Wap.WriteOut Wap.PostSet("options","提交",Wap.ThisFileName & "?ToDo=ToAdd","utf-8","post")
Wap.WriteRow Wap.TextMorePost("Send_A Send_B Send_C", "Send_A Send_B Send_C")
Wap.WriteRow Wap.AnchorGo("确定提交",Wap.ThisFileName & "?ToDo=ToAdd","Send_A Send_B Send_C","Send_A Send_B Send_C"," ","post")
'以下为返回链接等
Wap.WriteRow Wap.ImgA("","FreeWord_ReplyList.asp","查看本文评论")
Wap.WriteRow Wap.ImgA("","FreeWord_ReplyTopList.asp","查看最新评论")
Wap.WriteRow Wap.ImgA("","index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
 
