<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
Dim NewId : NewId=Request("NewId")
If NewId<>"" Then 
	Session("NewId")=NewId
Else 
	NewId=Session("NewId")
End If
If Request("ToDo")="ToAdd" Then  
	Receive_A=Request("Send_A") 'XML.DelSpecialMark(
	Receive_B=Request("Send_B")
	If Receive_A="" Then
			ErrorMessage=XML.Ascii("请输入昵称。")
		ElseIf Receive_B="" Then
			ErrorMessage=XML.Ascii("请输入内容。") '如果没有错误，则错误信息为空
		Else
			ErrorMessage="" '如果没有错误，则错误信息为空
	End If	
If ErrorMessage="" Then
	XML.StrSql="Insert Into NewsPingLun (NewId,PersonName,Content,IP) Values (" & NewId & ",'" & Receive_A & "','" & Receive_B & "','" & XML.PhoneIP & "')"		
	XML.RedirectPath=XML.WapPath & "Success.asp?ToDo=AddNewReplyOk"	
	XML.MdbInsert
End If
End If
'以下为文件正文。
'显示标题
XML.WriteOut "<h2>发表评论</h2>"
XML.WriteOut "<ul><li>"
If Request("WhatToDo")="YouAreFirst" Then XML.WriteRow "您好，目前此文还没有评论。<br/>欢迎您对本文看法，与其他人一起来分享本文，并和今后来到这里的朋友们交流。<br/>+++++++++++++"
If ErrorMessage<>"" Then XML.WriteRow ErrorMessage
XML.WriteOut "<form method='post' action='" & XML.ThisFileName & "'>"
XML.WriteOut "<h3>昵称:</h3>"
XML.WriteOut "<input type='text' name='Send_A' value=''/>"
XML.WriteOut "<h3>内容:</h3>"
XML.WriteOut "<input type='text' name='Send_B' value=''/>"
XML.WriteRow "<input type='hidden' name='ToDo' value='ToAdd'/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","NewsPingLunList.asp","查看本文评论")
XML.WriteRow XML.ImgA("","index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
 
