/**********************************************************************
*
* 1,---------asp+sql 个人总结对数据库的各种操作
*
* 如果需要更多代码，请到：http://www.relaxlife.net 感觉好帮我顶！
*
*
*********************************************************************/
<%
’//查询方法
’//----------------------------(1)-------------------------------
set rsworkuserinfo = server.createobject("adodb.recordset")
strsql = "select usersid, loginname, username, password"
strsql = strsql & " from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
if rsworkuserinfo.state = 1 then
rsworkuserinfo.close
end if
rsworkuserinfo.open strsql,conn,1,1
if not rsworkuserinfo.eof then
loginname = rsworkuserinfo("loginname")
username = rsworkuserinfo("username")
password = rsworkuserinfo("password")
end if
rsworkuserinfo.close
set rsworkuserinfo = nothing
’//----------------------------(2)-------------------------------
strsql = "select usersid, loginname, username, password"
strsql = strsql & " from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
set rsfind = conn.execute(strsql)
if not rsfind.eof then
loginname = rsfind("loginname")
username = rsfind("username")
password = rsfind("password")
end if
rsfind.close
set rsfind = nothing
’//修改方法
’//----------------------------(1)-------------------------------
set rsworkuserinfo = server.createobject("adodb.recordset")
strsql = "select usersid, loginname, username, password"
strsql = strsql & " from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
if rsworkuserinfo.state = 1 then
rsworkuserinfo.close
end if
rsworkuserinfo.open strsql,conn,1,3
if not rsworkuserinfo.eof then
rsworkuserinfo("loginname") = loginname
rsworkuserinfo("username") = username
rsworkuserinfo("password") = md5(password)
rsworkuserinfo.update
update = true
else
update = false
end if
rsworkuserinfo.close
set rsworkuserinfo = nothing
’//----------------------------(2)-------------------------------
strsql = "update users"
strsql = strsql & " set loginname=" & sqlstr(loginname) & ", username=" & sqlstr(username) & ", password=" & sqlstr(password)
strsql = strsql & " where usersid=" & sqlstr(tuserid)
conn.execute(strsql)
’//添加方法
’//----------------------------(1)-------------------------------
set rsworkuserinfo = server.createobject("adodb.recordset")
strsql = "select usersid, loginname, username, password"
strsql = strsql & " from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
if rsworkuserinfo.state = 1 then
rsworkuserinfo.close
end if
rsworkuserinfo.open strsql,conn,1,3
if rsworkuserinfo.eof then
rsworkuserinfo.addnew
rsworkuserinfo("usersid") = tuserid
rsworkuserinfo("loginname") = loginname
rsworkuserinfo("username") = username
rsworkuserinfo("password") = md5(password)
rsworkuserinfo.update
newrecord = true
else
newrecord = false
end if
rsworkuserinfo.close
set rsworkuserinfo = nothing
’//----------------------------(2)-------------------------------
strsql = "insert into users(usersid, loginname, username, password)"
strsql = strsql & " values(" & sqlstr(tuserid) & "," & sqlstr(loginname) & "," & sqlstr(username) & "," & sqlstr(password) & ")"
conn.execute(strsql)
’//删除方法
’//----------------------------(1)-------------------------------
set rsworkuserinfo = server.createobject("adodb.recordset")
strsql = "delete from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
if rsworkuserinfo.state = 1 then
rsworkuserinfo.close
end if
rsworkuserinfo.open strsql,conn,1,3
rsworkuserinfo.close
set rsworkuserinfo = nothing
’//----------------------------(2)-------------------------------
strsql = "delete from users"
strsql = strsql & " where usersid=" & sqlstr(tuserid)
conn.execute(strsql)
%>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
