<%
one = replace(trim(Request.Form("one")), "'", "")
two = replace(trim(Request.Form("two")), "'", "")
if one="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的数字不能为空")
end if
if two="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的数字不能为空")
end if
name1 = replace(trim(Request.Form("name1")), "'", "")
if name1="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的异性名字不能为空")
end if
name2 = replace(trim(Request.Form("name2")), "'", "")
if name2="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的异性名字不能为空")
end if
f1 = replace(trim(Request.Form("f1")), "'", "")
if f1="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的朋友或亲戚名字不能为空")
end if
f2 = replace(trim(Request.Form("f2")), "'", "")
if f2="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的朋友或亲戚名字不能为空")
end if
f3 = replace(trim(Request.Form("f3")), "'", "")
if f3="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的朋友或亲戚名字不能为空")
end if
s1 = replace(trim(Request.Form("s1")), "'", "")
if s1="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的歌名字不能为空")
end if
s2 = replace(trim(Request.Form("s2")), "'", "")
if s2="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的歌名字不能为空")
end if
s3 = replace(trim(Request.Form("s3")), "'", "")
if s3="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的歌名字不能为空")
end if
s4 = replace(trim(Request.Form("s4")), "'", "")
if s4="" then
Response.Redirect("/MsgOk.asp?Msg=要填写的歌名字不能为空")
end if
xuyuan = replace(trim(Request.Form("xuyuan")), "'", "")
%>
每日一卦 心诚则灵_神秘的卦卜网