【www.gdgbn.com--php常用代码】
数据库教程连接程序
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
显示出数据表中的所有数据
用户名
用户类型
添加时间
删除用户
<%dim sql
sql="select * from mange_user"
call opendb()
rs.open sql,conn,1,1
do while not rs.eof
%>
<%=rs("use_name")%>
<%=rs("use_type")%>
<%=rs("last_login")%>
" onclick="javascript教程:return confirm("确实删除该用户!")">删除
<%rs.movenext
loop
call closedb()
%>
deluse.asp删除记录的功能
<% if session("username")="" and session("userpwd")="" and session("use_type")<>"超级管理员" then
response.redirect"login.html"
end if
dim id,sql
id=cint(html_encode(request.QueryString("id")))
if not isnumeric(id) or len(id)=0 then
response.Redirect("login.html")
else
sql="delete * from mange_user where id="&id
sql1="select * from mange_user where id="&id
call opendb()
rs.open sql1,conn,1,1
if not rs.eof then
if rs("use_name")=session("username") or session("use_type")<>"超级管理员" then
response.write("对不起,不能删除自己或你不是超级管理员点击返回")
response.end()
end if
else
response.Write("删除失败点击返回")
end if
conn.execute(sql)
if err=0 then
response.Redirect("add_use.asp")
else
response.Write("删除失败点击返回")
end if
end if
call closedb()
%>
本站原创www.111cn.net 转载注明来源于本站