主题:  问一个弱智问题

楚楚

职务:普通成员
等级:1
金币:1.0
发贴:187
注册:2002/5/21 9:05:18
#12003/2/10 9:39:07
这是我的江湖领养小孩的文件。
这里结婚了的不能要孩子。

大伙的意思是,不管结婚与否,都可以领孩子。
请问去掉哪里可以成全他们?谢谢指教。


<%
username=Session("lt_ysqx_username")
if username="" then Response.Redirect "../../error.asp?id=016"
set conn=server.createobject("adodb.connection")
conn.open Application("lt_ysqx_connstr")
set rs=server.CreateObject ("adodb.recordset")
sqlstr="SELECT 配偶 FROM 用户 where 姓名='"&username&"'"
Set Rs=conn.Execute(sqlstr)
peiou=rs("配偶")
rs.Close
set rs=nothing
if peiou<>"无" then
Response.Write ""
else
%>



大雪糕

职务:普通成员
等级:2
金币:10.0
发贴:579
注册:2002/2/2 11:30:51
#22003/2/10 10:31:31
<%
username=Session("lt_ysqx_username")
if username="" then Response.Redirect "../../error.asp?id=016"
set conn=server.createobject("adodb.connection")
conn.open Application("lt_ysqx_connstr")
set rs=server.CreateObject ("adodb.recordset")
sqlstr="SELECT 配偶 FROM 用户 where 姓名='"&username&"'"
Set Rs=conn.Execute(sqlstr)
peiou=rs("配偶")
if peiou="无" or peiou="有" then
'执行领养小孩的那段程序
end if
%>