| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 616 人关注过本帖
标题:新手,大家帮我。
取消只看楼主 加入收藏
lyssd
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-28
收藏
 问题点数:0 回复次数:3 
新手,大家帮我。
目的,把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
%>
  
麻烦大家帮我看看。
2007-12-01 11:57
lyssd
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-28
收藏
得分:0 
呵呵
呵呵 我刚学 拿了别人的一串代码自己修改 可是达不到我想要的效果
2007-12-01 12:22
lyssd
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-28
收藏
得分:0 
这个行吗?
<%
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
%>
2007-12-01 12:23
lyssd
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-28
收藏
得分:0 
我有好多东西不明白,得慢慢学。
这里有两个表单,timu和user,它俩都有timu这一列,我就想把表单timu中的timu列添加到user中的timu列中,然后把这项记录从表单timu中删掉。不知道怎么实现了。
2007-12-01 12:41
快速回复:新手,大家帮我。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025001 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved