目的，把timu中的记录添加到user中，然后把添加的这条记录从timu中删除。
<%@ Language=VBScript %>
<%
dim name,xuehao,timu
dim sql,sql1
dim rs1,rs,rs2
name=request("txt1")
xuehao=request("txt2")
timu=request("select1")
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql1="delete from timu where timu.timu = user.timu"
sql="select * from user where xuehao='" & xuehao & "'"
rs.Open sql,conn,1,1
if rs.EOF then
 sql="insert into user(username,timu,xuehao) values('"&name&"','"&timu&"','"&xuehao&"')"
 rs1.Open sql,conn,1,1
 session("name")=name
        Response.Redirect "info.htm"
        rs2.Open sql1,conn,1,1
        Conn.Execute(sql1)
else
 Response.Write "此用户已有人使用!"
end if
%>
  
麻烦大家帮我看看。

我看的好乱啊，不知道如何说了。
楼主先写一段链接数据库代码，就用你现在这段代码中的数据库。

呵呵 我刚学 拿了别人的一串代码自己修改 可是达不到我想要的效果

<%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("MYDB.MDB") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from user"
rs.open sql,conn,1,1
%>

connstr= "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn =Server.CreateObject("adodb.connection")
conn.open connstr

timu=request("select1")
sql1="delete from timu where timu.timu = user.timu"
这里的user.timu哪来的呢？
所以这种写法是错的。
按楼主的说法：把timu中的记录添加到user中，然后把添加的这条记录从timu中删除。
但是楼主添加的记录却是通过传递过来的表单添加的，不明白。

我有好多东西不明白，得慢慢学。
这里有两个表单，timu和user，它俩都有timu这一列，我就想把表单timu中的timu列添加到user中的timu列中，然后把这项记录从表单timu中删掉。不知道怎么实现了。

不是很理解楼主说的意思。
有空看看下面这个，对楼主有帮助的
[url]http://www.[/url]