ASP后台增删改查处理页面代码,ASP代码库,德仔网

代码语言
代码分类
【ASP】 ASP后台增删改查处理页面
作者:Dezai.CN / 发布于2013/7/16/ 1600

	<!--#Include file="../../../whbinc/whbconn.asp"-->
	<!--#Include file="../../../whbinc/headSvr.asp"-->
	<%
	'定义服务器端核心处理区域
	Dim TabelName
	TabelName="[sys_user]"

	''''如果是调试模式，打印所有request对象
	If WhbDeBug=0 then
	 For Each r In Request.QueryString
	 Response.Write "Request.QueryString("""&r&""") = " & Request(r)
	 Response.Write ""
	 Next
	 For Each r In Request.Form
	 Response.Write "Request.Form("""&r&""") = " & Request(r)
	 Response.Write ""
	 Next
	End If

	'处理新增和编辑，即保存情况
	'WHBMEMO:因为ASP的特性，故新增和编辑可以在一起处理，PHP或JSP需要分开
	If act = "add" or act="edit" Then
	id = Request("id")
	sqlstr = "SELECT * FROM " & TabelName & " WHERE 1=1"
	'如果是编辑
	if not StringIsEmpty(id) Then
	 sqlstr = sqlstr & " AND id="&id&""
	End If
	Set rs = WhbConn.GetRs(sqlstr,3,3)
	'如果为空，认为是新增
	if StringIsEmpty(id) Then
	 rs.AddNew
	End If
	rs("loginName")=Request("loginName")
	rs("loginPwd")=Request("loginPwd")
	rs("deptID")=Request("deptID")
	rs("roleID")=Request("roleID")
	rs("realName")=Request("realName")
	rs("mobile")=Request("mobile")
	rs("isValid")=Request("isValid")
	rs.Update
	rs.Close
	Set rs = Nothing
	resultJson="{success:true}"
	End if
	'处理删除情况
	If act = "delete" Then
	id = Request("id")
	sqlstr = "DELETE FROM " & TabelName & " Where id="&id&""
	WhbConn.ExecuteSql(sqlstr)
	'Echo("success") '前台用Ext.ajax方式提交，可以返回任意格式
	End if

	'如果是列表
	'返回json数据,这里的参数与EXT3.x相同，区别在于排序字段和排序方式使用了新的属性。
	'request有4个默认属性，分别是:page,start,limit,sorts,dir,
	'在实际操作过程中，可以将sorts,dir加入SQL的ORDER BY里。

	If act = "list" Then
	start = Request("start")
	limit = Request("limit")
	page= Request("page")
	'注意'符号替换掉，便于SQL组串
	extsort = CheckStr(Request("sort")) 'Replace(Trim(Request("sort")),"'","")
	extdir = CheckStr(Request("dir"))
	searchKey=Request("searchKey")
	
	'默认缺省处理
	If StringIsEmpty(start) Then
	 start = 0
	End If
	If StringIsEmpty(limit) Then
	 limit = Sys_PageSize
	End If
	If StringIsEmpty(page) Then
	 page = 1 '注意:EXT是从page=1开始
	End If
	If StringIsEmpty(extsort) Then
	 extsort = "id"
	End If
	If StringIsEmpty(extdir) Then
	 extdir = "desc" '默认倒序，符合人性化设计原则
	End If
	
	'echo("接收到的参数列表: page:" & page & " start:" & start & " limit:" & limit & " extsort:" & extsort & " extdir:" & extdir )
	
	'拼接条件个性化条件SQL
	searchSql=""
	
	'首先获取总记录数
	sqlstr="select count(id) from " & TabelName & " where 1=1 " & searchSql
	Set rs = WhbConn.GetRs(sqlstr,1,1)
	totalCount=cint(rs(0))
	rs.close
	set rs=nothing
	
	
	'如果是ACCESS或SQLSERVER数据库=====================================BEGIN
	extdir=LCase(extdir)
	page=page-1'MYSQL待调试
	'固定头部_________begin
	sqlstr = "SELECT top " & Sys_PageSize & " * FROM " & TabelName & " where 1=1 "
	
	'如果是升序查询
	if extdir="asc" then
	 If page >0 Then
	 sqlstr= sqlstr & " and id > (SELECT MAX(id) FROM (SELECT TOP " & Sys_PageSize*page & " id FROM " & TabelName & " order by id ))"'这个内部的order by id非常重要
	 End If
	end if
	
	'如果是降序查询
	if extdir="desc" then
	 If page >0 Then
	 sqlstr= sqlstr & " and id < (SELECT MIN(id) FROM (SELECT TOP " & Sys_PageSize*page & " id FROM " & TabelName & " order by id desc))"'这个内部的order by id非常重要
	 End If
	end if
	
	'固定尾部,设定排序方式
	sqlstr = sqlstr & " order by "& extsort & " " & extdir & ""
	
	'如果是ACCESS或SQLSERVER数据库=====================================end
	
	'''调试SQL语句专用,屏蔽后才能前台调试
	'''echo sqlstr&""
	
	'拼接Json返回串
	Set rs = WhbConn.GetRs(sqlstr,1,1)
	If Not rs.Eof Then
	 resultJson = Cstr("{totalCount:"& totalCount & ",listItems:[")
	 for i=0 to rs.recordcount-1
	 '读取记录中的各列数据
	 OneRecord = "{"
	 For j = 0 To rs.Fields.Count -1
	 OneRecord = OneRecord & Chr(34) & rs.Fields(j).Name & chr(34) & ":"
	 If j = rs.Fields.Count-1 Then '除了最后一列，其余需要后附","号
	 OneRecord = OneRecord & Chr(34) & rs.Fields(j).Value & Chr(34)
	 Else
	 OneRecord = OneRecord & Chr(34) & rs.Fields(j).Value & Chr(34) &","
	 End if
	 Next
	 OneRecord = OneRecord & "}"
	 '除了最后一条记录，其余需要后附","号
	 If i <> rs.recordcount-1 Then
	 OneRecord = OneRecord & ","
	 End If
	 resultJson = resultJson & OneRecord
	 rs.movenext'非常重要
	 Next
	 resultJson = resultJson +"]}"
	 rs.Close
	 Set Rs = Nothing
	End If
	End If
	%>
	<!--#Include file="../../../whbinc/footSvr.asp"-->
试试其它关键字
　增删改查　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)