弹出对话框的问题

[sy_binbin]

数据库字段：
会员编号：memberID nvarchar
会员性别：memberSex char （1为男，2为女）
是否推荐：isCommend char （1为推荐，0为不推荐）
我想会员为男的不能被推荐

部分代码
if rs("isCommend") = 0 then
response.Write "<a href='memberEdit.asp?id="&rs("id")&"&action=commend'>推荐</a>"
else
response.Write "<a href='memberEdit.asp?id="&rs("id")&"&action=unCommend'>取消推荐</a>"
end if



memberEdit.asp的代码

dim rs,sql
dim action,id
action = request("action")
id = request("id")
set rs = server.CreateObject("adodb.recordset")

if action = "commend" then
call subCommend()
elseif action = "unCommend" then
call subUNCommend()
end if

sub subCommend()
sql = "select * from member where id="&id
rs.open sql,conn,1,3
if rs("memberSex") = 1 then
response.Write("<SCRIPT language=JavaScript>alert('不能推荐男会员');")
response.Write("javascript:history.go(-1)</SCRIPT>")
else
rs("isCommend") = 1
end if
rs.update
rs.close
set rs = nothing
response.Redirect("memberList.asp")
end sub


为什么弹出框没出来呢！！！！

[sy_binbin]

顶上去！

[sxsgssgs]

if rs("memberSex") = 1 then
response.Write("<SCRIPT language=JavaScript>alert('不能推荐男会员');")
response.Write("javascript:history.go(-1)</SCRIPT>")
else

最好写成：
<%
if rs("memberSex") = 1 then
%>
<script language=Javascript>
<!--
alert('不能推荐男会员');
history.back();
//-->
</script>

<%
else
%>

[sy_binbin]

不都一样吗？？不过我试了，还是没出来！！

[mhxz568]

你把response.redirect换成server.Transfer 试试

[freeweb]

检查:action = request("action")返回的值!

[纪俊]

response.Redirect("memberList.asp")这句在后面专向了所以没有出来。。。

sub subCommend()
sql = "select * from member where id="&id
rs.open sql,conn,1,3
if rs("memberSex") = 1 then
response.Write("<SCRIPT language=JavaScript>alert('不能推荐男会员');")
response.Write("javascript:history.go(-1)</SCRIPT>")
else
rs("isCommend") = 1
end if
rs.update
rs.close
set rs = nothing
response.Redirect("memberList.asp")
end sub

---->

sub subCommend()
sql = "select * from member where id="&id
rs.open sql,conn,1,3
if rs("memberSex") = 1 then
response.Write("<SCRIPT language=JavaScript>alert('不能推荐男会员');")
response.Write("javascript:history.go(-1)</SCRIPT>")
rs.update
rs.close
set rs = nothing
else
rs("isCommend") = 1
response.Redirect("memberList.asp")
rs.update
rs.close
set rs = nothing
end if
end sub

[sy_binbin]

action的值没错

我贴的那段程序没错误

就是那个弹出框没出来。

[sy_binbin]

mhxz568(aa)

你的正确了！