简单的后台数据库管理
只需要实现管理员对数据库内容的添加修改删除.有例子最好 问题点数：50、回复次数：4Top
1 楼poonzsp（怒放的生命）回复于 2005-07-18 16:21:18 得分 5
建议搜索 和 认真看哈代码Top
2 楼kingkuf（捷克）回复于 2005-07-18 16:35:48 得分 15
给你贴出来！
'===写入数据库
username=request.form("user_name")
sql="insert into user (user_name) Values ('"&user_name&"',)"
conn.Execute (sql)
删除数据记录：
sql="delete from 数据表 where 条件表达式"
sql="delete from 数据表" (将数据表所有记录删除)Top
3 楼白夜花寒（远藤花已谢,白夜花未寒）回复于 2005-07-18 16:37:46 得分 30
<%
class oprdbase
dim conn
Private Sub Class_Initialize
Set connclass=new conndbase
Set conn=connclass.accessconn
End Sub
'=============================================================
' ClassName: oprdbase
' Version: 1.0
' paragraph: 后台管理的数据库操作
' Date: 2005-6-6(外公的去世的日子，纪念一下)
' Script Writen by liuxiaoyi666
'=============================================================
' Copyright (C) 2004-2005 RabbitStudio, All Rights Reserved.
' Web: http://rabbit666.spymac.com
' Email: liuxiaoyi666@mail.csdn.net
'=============================================================
Public function querypurview(managename,pwd) '后台查询权限
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from managetab where managename='" & managename & "'"
rs.open sql,conn,1,1
if not rs.eof then
if pwd=rs("managepwd") then
the_purview=rs("purview")
else
the_purview=0
end if
else
the_purview=0
end if
querypurview=the_purview
rs.close
Set rs=nothing
End function
Public function queryallorder(orderstate) '按照订单的状态查询订单
Set rs=Server.CreateObject("ADODB.Recordset")
Select case orderstate
case 0:
sql="select * from orderkey"
case 1:
sql="select * from orderkey where orderstate=" & orderstate
case 2:
sql="select * from orderkey where orderstate=" & orderstate
case 3:
sql="select * from orderkey where orderstate=" & orderstate
case 4:
sql="select * from orderkey where orderstate=" & orderstate
case 5:
sql="select * from orderkey where orderstate>" & orderstate
End Select
rs.open sql,conn,1,1
queryallorder=rs
Set rs=nothing
End function
Public function queryorder(ordercode) '通过订单号查询订单
Set rs=server.createobject("adodb.recordset")
Sql="select * from orderkey where ordercode=" & ordercode
rs.open Sql,conn,1,1
set queryorder=rs
set rs=nothing
End function
Public function queryauthorname(authorname) '通过作者姓名查找作者
Set rs=server.createobject("adodb.recordset")
Sql="select * from authorbasinfo where authorname='" & authorname & "'"
rs.open Sql,conn,1,1
set queryauthorname=rs
set rs=nothing
End function
Public function queryallauthor() '查找所有的作者
Set rs=server.createobject("adodb.recordset")
Sql="select * from authorbasinfo"
rs.open Sql,conn,1,1
set queryallauthor=rs
set rs=nothing
End function
Public function addauthor(authorname) '添加作者
Set rs=server.createobject("adodb.recordset")
Sql="insert into authorbasinfo(authorname,email,pwd) values('" & authorname & "','" & email & "','" & pwd & "')"
rs.open sql,conn,1,3
set rs=nothing
End function
Public function queryauthorid(user_name,pwd) '前台检查作者
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from authorbasinfo where authorname='" & user_name & "'"
rs.open sql,conn,1,1
if not rs.eof then
if pwd=rs("pwd") then
uid=rs("uid")
else
uid=0
end if
else
uid=0
end if
queryauthorid=uid
rs.close
Set rs=nothing
End function
Public function querymanageorder(orderstate,productid,user_id) '查询订单
Set rs=Server.CreateObject("ADODB.Recordset")
if len(productid)=0 then
if orderstate=0 then
str=" authorid=" & user_id
else
str=" orderstate=" & orderstate & ",authorid=" & user_id
end if
else
if orderstate=0 then
str=" authorid=" & user_id & ",softid=" & productid
else
str=" orderstate=" & orderstate & ",authorid=" & user_id & ",softid=" & productid
end if
end if
sql="select * from orderkey where" & str
rs.open sql,conn,1,1
set querymanageorder=rs
Set rs=nothing
End function
Public function querysoft(user_id)
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from softbasinfo where authorid=" & user_id
rs.open sql,conn,1,1
set querysoft=rs
Set rs=nothing
End function
Public function queryauthor(user_id)
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from softbasinfo where authorid=" & user_id
rs.open sql,conn,1,1
set queryauthor=rs
Set rs=nothing
end function
Private Sub Class_Terminate
set conn=nothing
End Sub
end class
%>Top
4 楼speedzzx1（试问）回复于 2005-07-18 16:42:14 得分 0
我想要一个类似的简单模板,请问那里有?Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
