asp 添加记录到SqlServer

wis2007 2010-01-29 03:54:01
asp 添加记录到SqlServer 首先判断是否存在记录 不存在添加 存在对其进行修改?asp大哥们 帮帮忙,在线等。。。
...全文
138 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhousq00 2010-01-29
  • 打赏
  • 举报
回复
你这问题太泛了
wis2007 2010-01-29
  • 打赏
  • 举报
回复
大哥们,不急了,你们做出来了给我贴出来,我保存,有时间了再结贴,谢谢在一线的大哥们得帮助,感激不尽。
wis2007 2010-01-29
  • 打赏
  • 举报
回复
就这些要求,大哥快帮我改改吧那你说得还是抱错
yan11cn 2010-01-29
  • 打赏
  • 举报
回复
不好意思 我在敲这个例子的时候 1层楼都没呢。。。不知道你还有具体需求 下回记得一次讲完
wis2007 2010-01-29
  • 打赏
  • 举报
回复
ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

/index.asp,行 0

按着jack15850798154 大哥的方法 还是报错?
wis2007 2010-01-29
  • 打赏
  • 举报
回复
大哥们在我的基础上改,没时间琢磨你们其他的代码了
yan11cn 2010-01-29
  • 打赏
  • 举报
回复
举个例子,修改密码:
<%
dim sql
sql="select * from users where username='" & username &"'"
set rs=conn.execute(sql)
if rs.eof then
'账号不存在,添加
sql="insert into users(username,pwd) values('" & username &"','"& pwd &"')"
conn.execute(sql)
else
'账号存在,添加密码
sql="update users set pwd='" & pwd &"' where username='" & username &"'"
conn.execute(sql)
end if
%>
wis2007 2010-01-29
  • 打赏
  • 举报
回复
大哥,谢谢了,我先试试,不要走开啊
wis2007 2010-01-29
  • 打赏
  • 举报
回复
链接上数据库了,就是不知道这样的逻辑如何写?大哥们拜托,急等。。
jack15850798154 2010-01-29
  • 打赏
  • 举报
回复
不好意思上面不符合你的题意。下面给你一个管用的。参考一下:


http://zhidao.baidu.com/question/128529939.html
wis2007 2010-01-29
  • 打赏
  • 举报
回复
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [config] where id=6"
rs.open sql,conn,1,3
if request("action")="save" then
if rs.bof and rs.eof then
rs.addnew

rs("pcsmtpserver")=request("pcsmtpserver")
rs("pcsmtpemail")=request("pcsmtpemail")
rs("pcsmtpuser")=request("pcsmtpuser")
rs("pcsmtppwd")=request("pcsmtppwd")
rs("username")=request("username")
rs("password")=request("password")
rs("pcsmtphuifu")=request("pcsmtphuifu")
else
rs("pcsmtpserver")=request("pcsmtpserver")
rs("pcsmtpemail")=request("pcsmtpemail")
rs("pcsmtpuser")=request("pcsmtpuser")
rs("pcsmtppwd")=request("pcsmtppwd")
rs("username")=request("username")
rs("password")=request("password")
rs("pcsmtphuifu")=request("pcsmtphuifu")
end if
rs.update
rs.close
这样能实现吗
jack15850798154 2010-01-29
  • 打赏
  • 举报
回复
<%
'数据库
set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>




<%
jason_title=request("jason_title")
'jason_type=request("jason_type")
jason_content=request("jason_content")
jason_name=request("jason_name")
jason_sql="insert into book (title,content,name,shijian) values (jason_title,jason_content,jason_name,now)"
conn.execute(jason_sql)'''''''''''''''这句
response.Write("数据插入成功!")
%>
街头小贩 2010-01-29
  • 打赏
  • 举报
回复
你哪一步卡住了!进行不下去了

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧