<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
If Request("ToDo")="ToAdd" Then  
	Receive_A=Wap.DelSpecialMark(Request("Send_A")) 
	Receive_B=Wap.DelSpecialMark(Request("Send_B")) 
	Receive_C="http://" & Wap.DelSpecialMark(Request("Send_C")) '网址输入的为http://后面的部分
	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 SelfLink(PersonName,Title,WapUrl) Values ('" & Receive_A & "','" & Receive_B & "','" & Receive_C & "')"	
	Wap.RedirectPath=Wap.WapPath & "Success.asp?ToDo=AddSiteLinkOk"
	Wap.MdbInsert
End If
End If
'以下为文件正文。
If ErrorMessage<>"" Then Wap.WriteRow ErrorMessage
Wap.WriteRow Wap.TextIn("添加人","text","Send_A","","")
Wap.WriteRow Wap.TextIn("站点名称","text","Send_B","","")
Wap.WriteRow Wap.TextIn("站点地址(http://后的内容)","text","Send_C","wap..com","")
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.A("确定","SelfLinkList.asp","查看链接")
Wap.WriteRow Wap.ImgA("","Index.asp","返回首页")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
