你看看这段代码
if request.querystring("action")="zwedit" then
exec="select * from th_zwh where xlid='"&request.form("xlid")&"' and zwnum='"&request.form("zwnum")&"'"
If Not recmy.eof Then
Response.Write("<script language=""JavaScript"">alert(""此用户已经存在,请选择其他不存在用户名!"");history.go(-1);</script>")
Else

exec="select * from th_zwh where id="&request.form("idid")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("zwnum") = request.form("zwnum")
rs("zwname") = request.form("zwname")
rs("zwsfz") = request.form("zwsfz")
rs.Update
rs.Close
Set rs=Nothing
Response.write "<script language='javascript'>" & chr(13)
response.write "alert('座位调整成功！');" & Chr(13)
response.write "window.document.location.href='thxlyd1.asp?id="&request.QueryString("id")&"';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
end if

Dim v_str
v_str="select * from rooms where name='"&request("room_name")&"'"
Set recmy=conn.execute(v_str)
If Not recmy.eof Then
response.write"房间名已存在,请重新输入!"
Else
'向数据库中插入新聊天室的名和房主
conn.execute("insert into ROOMS values('"&request("room_name")&"','"&session("user_name")&"')")

'向旧聊天室中发出退出聊天室的消息
Set recmy=conn.execute("select roomid from users where userid='"&session("user_id")&"'")
conn.execute("insert into messages(userid,RoomID,Message,Style,Colour,Time) values('"&session("user_id")&"','"&recmy("roomid")&"','我已经退出聊天室','宋体','#0033FF',getdate())")

'将USERSb表中的ROOMID更新为新聊天室的ID
Set rec=conn.execute("select RoomID from ROOMS where Name='"&request("room_name")&"'")
conn.execute("update USERS set Roomid="& rec("roomid") & "where USERID='"&session("user_id")&"'")

'向新聊天室中发出创建新聊天室的信息
conn.execute("insert into messages(userid,RoomID,Message,Style,Colour,Time) values('"&session("user_id")&"',"&rec("roomid")&",'这是我创建的聊天室,欢迎大家光临!','黑体','#0033FF',getdate())")

'成功后关闭窗口
response.write"<SCRIPT LANGUAGE='JavaScript'>"
response.write"alert('你已经成功创建了一个新的聊天室!');"
response.write"window.close();"
response.write"</SCRIPT>"
End If
End If


这是我以前写的一段代码 和你的那个是一样的道理啊 怎么会不行。。。

[此贴子已经被作者于2007-7-24 11:36:28编辑过]