<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为正文
XML.WriteOut "<h2>发布信息</h2>"
XML.WriteOut "<ul><li>"
If XML.SafeRequest("ToDo")="ToAdd" Then  
	Receive_A=XML.DelSpecialMark(XML.SafeRequest("Send_A")) 
	Receive_B=XML.DelSpecialMark(XML.SafeRequest("Send_B")) 
	Receive_C=XML.DelSpecialMark(XML.SafeRequest("Send_C")) 
	Receive_D=XML.DelSpecialMark(XML.SafeRequest("Send_D")) 
	Receive_E=XML.DelSpecialMark(XML.SafeRequest("Send_E")) 
	Receive_F=XML.DelSpecialMark(XML.SafeRequest("Send_F")) 
	Receive_G=XML.DelSpecialMark(XML.SafeRequest("Send_G")) 
	Receive_H=XML.DelSpecialMark(XML.SafeRequest("Send_H")) 
Dip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If Dip = "" Then 
dip = Request.ServerVariables("REMOTE_ADDR") 
End if
	If Receive_A="" Then
			ErrorMessage=XML.Ascii("请输入广告标题。")
		ElseIf Receive_D="" Then
			ErrorMessage=XML.Ascii("请输入联系人。") '如果没有错误，则错误信息为空
		ElseIf Receive_C="" Then
			ErrorMessage=XML.Ascii("请输入广告内容。") '如果没有错误，则错误信息为空
		ElseIf Receive_E="" Then
			ErrorMessage=XML.Ascii("请输入身份证号。") '如果没有错误，则错误信息为空
		ElseIf Receive_F="" Then
			ErrorMessage=XML.Ascii("请输入联系电话。") '如果没有错误，则错误信息为空
		ElseIf Receive_G="" Then
			ErrorMessage=XML.Ascii("请输入联系QQ。") '如果没有错误，则错误信息为空


		Else
			ErrorMessage="" '如果没有错误，则错误信息为空
	End If	
If ErrorMessage="" Then
	XML.StrSql="Select * from nyeee_data"
	XML.MdbDo
	XML.RS.AddNew
	XML.RS("title")=Receive_A
	XML.RS("cu")="yes"
	XML.RS("type")=Receive_B
	XML.RS("text")=Receive_C
	XML.RS("username")=Receive_D
	XML.RS("cardid")=Receive_E
	XML.RS("tel")=Receive_F
	XML.RS("stop")=dateadd("d",Receive_H,date())
	XML.RS("mark")="yes"
	XML.RS("ip")=dip
	XML.RS("qq")=Receive_G
	XML.RS.UpDate
XML.Redirect XML.WapPath & "Success.asp?ToDo=AddInfoOk"	
End If
End If
'以下为文件正文。
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 "<select name='Send_B'>"
XML.StrSql="select * from nyeee_type"
XML.MdbDo
For I=0 To XML.RecordCount-1
XML.WriteOut "<option value='" & XML.Ascii(XML.RS("Name")) & "'>" & XML.RS("Name") & "</option>"
XML.Rs.MoveNext
Next
XML.WriteOut "</select>"
XML.WriteOut "<h3>广告内容：</h3>"
XML.WriteOut "<input type='text' name='Send_C' value=''/>"
XML.WriteOut "<h3>联系人：</h3>"
XML.WriteOut "<input type='text' name='Send_D' value=''/>"
XML.WriteOut "<h3>身份证号：</h3>"
XML.WriteOut "<input type='text' name='Send_E' value=''/>"
XML.WriteOut "<h3>联系电话:</h3>"
XML.WriteOut "<input type='text' name='Send_F' value=''/>"
XML.WriteOut "<h3>联系QQ:</h3>"
XML.WriteOut "<input type='text' name='Send_G' value=''/>"
XML.WriteOut "<h3>有效期限：</h3>"
XML.WriteOut "<select name='Send_H'>"
XML.WriteOut "<option value='7'>一星期</option>"
XML.WriteOut "<option value='14'>半个月</option>"
XML.WriteOut "<option value='31'>一个月</option>"
XML.WriteOut "<option value='61'>两个月</option>"
XML.WriteOut "<option value='92'>三个月</option>"
XML.WriteOut "<option value='183'>半年</option>"
XML.WriteOut "<option value='365'>一年</option>"
XML.WriteOut "</select>"
XML.WriteRow "<input type='hidden' name='ToDo' value='ToAdd'/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"
XML.WriteOut "</li></ul>"

'以下为返回链接等
XML.WriteRow XML.ImgA("Images/back.gif","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
