21世纪人才www.51zy.net 网站源码

源代码在线查看: saveanclass.asp

软件大小: 7229 K
上传用户: hslhsl123
关键词: www net 51 zy
下载地址: 免注册下载 普通下载 VIP

相关代码

				
								response.Write "alert('网络超时或您还没有登陆!');window.location.href='login.asp';"
				response.End
				else
				if session("flag")>1 then
				response.Write "您没有此项目管理权限!"
				response.End
				end if
				end if
				%>
								anclassid=request.QueryString("id")
				action=request.querystring("action")
				select case action
				'//添加新数据
				case "add" 
				set rs=server.CreateObject("adodb.recordset")
				rs.open "select * from shop_anclass",conn,1,3
				rs.AddNew
				rs("anclass")=trim(request("anclass2"))
				rs("anclassidorder")=int(request("anclassidorder2"))
				rs("fudongjia")=int(request("fudongjia2"))
				rs.Update
				rs.Close
				set rs=nothing
				response.Redirect "anclass.asp"
				'//修改数据
				case "edit"
				set rs=server.CreateObject("adodb.recordset")
				rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,3
				rs("anclass")=trim(request("anclass"))
				rs("anclassidorder")=int(request("anclassidorder"))
				rs("fudongjia")=int(request("fudongjia"))
				rs.Update
				rs.Close
				set rs=nothing
				response.Redirect "anclass.asp"
				'//删除数据
				case "del"
				conn.execute ("delete from shop_anclass where anclassid="&anclassid)
				conn.execute ("delete from shop_nclass where anclassid="&anclassid)
				conn.execute ("delete from shop_books where anclassid="&anclassid)
				response.Redirect "anclass.asp"
				end select
				%>			

相关资源