<% username1=rs("sendusername")
sql="select * from love_main where username='"&username1&"'"
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql,conn,1,1
If rs1("photo_x_flag")="1" and rs1("photo_d_flag")="1" Then'大小都有
response.write "<img src=../../photo/"&rs1("photo_x")&" width=60 border=0 hspace=4 vspace=4 >"
ElseIf rs1("photo_x_flag")="1" and rs1("photo_d_flag")="0" Then'有小无大
response.write "<img src=../../photo/"&rs1("photo_x")&" width=60 border=0 hspace=4 vspace=4 >"
ElseIf rs1("photo_d_flag")="1" and rs1("photo_x_flag")="0" Then'有大无小
response.write "<img src=../../photo/"&rs1("photo_d")&" width=60 border=0 hspace=4 vspace=4 >"
Else
if rs1("sex")="男" then
response.write "<img src=images/nophoto_man.gif width=60 hspace=4 vspace=4>"
else
response.write "<img src=images/nophoto_woman.gif width=60 hspace=4 vspace=4>"
end if
End If
rs1.close
%>
我看不出代码哪错了.在别的文件里也没事就是放到这个网页就是不行了..不知道为什么..帮我看一下.

If rs1("photo_x_flag")="1" and rs1("photo_d_flag")="1" Then'大小都有
这行发生意外..不知道为什么..

我挨个试了就不不让写IF..ELSE,一写就报错,不知道为什么..

我加了这句代码就不出错了..
On Error Resume Next

没报错,应该是我文件里的其他文件的事....倒置他出错了..我正在找.

我把他单独拿出来也不行,也是发生意外.为什么..?

<% username=yutongtong

sql="select * from love_main where username='"&username&"'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
IF (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN
If rs("photo_x_flag")="1" and rs("photo_d_flag")="1" Then'大小都有
response.write "<img src=photo/"&rs("photo_x")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
ElseIf rs("photo_x_flag")="1" and rs("photo_d_flag")="0" Then'有小无大
response.write "<img src=photo/"&rs("photo_x")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
ElseIf rs("photo_d_flag")="1" and rs("photo_x_flag")="0" Then'有大无小
response.write "<img src=photo/"&rs("photo_d")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
Else
if rs("sex")="男" then
response.write "<img src=images/nophoto_man.gif width=55 height=45 hspace=4 vspace=4>"
else
response.write "<img src=images/nophoto_woman.gif width=55 height=45 hspace=4 vspace=4>"
end if
End If
else response.Write("没记录!!")
end if
rs.close%>
这么写也不对.我倒.

sql="select * from love_main where username='"&username&"'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
IF (rs.BOF=true and rs.EOF =true) or rs.RecordCount=0 THEN
RESPONSE.Write"<table><tr><td><BR><BR>　　暂无照片，[<a href=u_mod.asp?submitok=five>立即上传</a>]"
rs.close
elseIf rs("photo_x_flag")="1" and rs("photo_d_flag")="1" Then'大小都有
response.write "<img src=photo/"&rs("photo_x")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
ElseIf rs("photo_x_flag")="1" and rs("photo_d_flag")="0" Then'有小无大
response.write "<img src=photo/"&rs("photo_x")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
ElseIf rs("photo_d_flag")="1" and rs("photo_x_flag")="0" Then'有大无小
response.write "<img src=photo/"&rs("photo_d")&" width=55 height=45 border=0 hspace=4 vspace=4 >"
Else
if rs("sex")="男" then
response.write "<img src=images/nophoto_man.gif width=55 height=45 hspace=4 vspace=4>"
else
response.write "<img src=images/nophoto_woman.gif width=55 height=45 hspace=4 vspace=4>"
end if
End If
rs.close
搞定了..哈哈..

今天虽然很郁闷,但是还是学了一招..哈哈.......很开心.

可以