<%

' 本类由系统自动生成，仅供测试用途Class [IndexAction]
	Public that,parent,son

















	'字段赋值,由P_("auto").verify(input的name名)自动写入控制器
	Public Sub popasp_cnverify
		P_("cnverify")(2).output
	End Sub

	'js前端验证添加数据，由P_("auto").checkAdd( Array(模型名,方法名) )自动写入控制器
	Public Sub popasp_js_check_add
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If
		
		call that.js_check( M_("sheet1").db.validate_,1 )
	End Sub

	'添加数据操作,由P_("auto").dbAdd( Array(模型名,方法名) )自动写入控制器
	sub popasp_excel_sheet1_do_add
		dim m , data
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		'获取表单提交的数据
		set data = POP_MVC.form2dict
		
		'如果表单使用了enctype="multipart/form-data"
		'set data = POP_MVC.post("")
		
		'使用db.validate_验证数据的合法性，使用db.auto_向data中添加数据
		If Not m.db.data(data).create(1) Then
			that.error( m.db.error )
		End If
		
		'db.create之后会过滤掉不存在的字段，如果想获取处理之后的数据，使用
		set data = m.db.getData
		
		'在这里还可以向data中增删数据
		
		'添加数据
		if m.db.data( data ).Add then
			that.success( "添加成功" )
		else
			that.error( "添加失败" )
		end if
	end sub

	'添加数据操作,由P_("auto").dbAdd( Array(模型名,方法名) )自动写入控制器
	sub popasp_do_add
		dim m , data
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		'获取表单提交的数据
		set data = POP_MVC.form2dict
		
		'如果表单使用了enctype="multipart/form-data"
		'set data = POP_MVC.post("")
		
		'使用db.validate_验证数据的合法性，使用db.auto_向data中添加数据
		If Not m.db.data(data).create(1) Then
			that.error( m.db.error )
		End If
		
		'db.create之后会过滤掉不存在的字段，如果想获取处理之后的数据，使用
		set data = m.db.getData
		
		'在这里还可以向data中增删数据
		
		'添加数据
		if m.db.data( data ).Add then
			that.success( "添加成功" )
		else
			that.error( "添加失败" )
		end if
	end sub

	'js前端验证修改数据，由P_("auto").checkSave( Array(模型名,方法名) )自动写入控制器
	Public Sub popasp_js_check_modify
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If	
	
		call that.js_check( M_("sheet1").db.validate_,2 )
	End Sub

	'js前端自动完成,由P_("auto").auto( 表名或模型名, id , 排除的字段 )自动写入控制器
	Public Sub popasp_js_auto
		dim m , id  , rs  ,  fieldRev
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If
		
		'获取id值
		id = that.get("id")		
		
		'判断id是否为正整数
		If Not POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then
			that.error( array("非法操作","window.close") )
		End If
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		'排除字段
		fieldRev = Replace(that.get("fieldRev") ,chr(34) , "" )
		
		set rs = m.db.where( id ).fieldRev( fieldRev ).find
		
		If rs.eof then
			that.error("您访问的数据不存在")
		End If
		
		that.js_auto( rs )
	End Sub

	'修改数据，必须含主键
	'修改数据操作，由P_("auto").dbSave( Array(表名或模型名,方法名) )自动写入控制器
	sub popasp_do_modify
		dim m , data
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		'获取表单提交的数据
		set data = POP_MVC.form2dict
		
		'如果表单使用了enctype="multipart/form-data"
		'set data = POP_MVC.post("")
		
		'使用db.validate_验证数据的合法性，使用db.auto_向data中添加数据
		If Not m.db.data(data).create(2) Then
			that.error( m.db.error )
		End If
		
		'db.create之后会过滤掉不存在的字段，如果想获取处理之后的数据，使用
		set data = m.db.getData
		
		'在这里还可以向data中增删数据
		
		'添加数据
		if m.db.data( data ).Save then
			that.success( "修改成功" )
		else
			that.error( "修改失败" )
		end if
	end sub

	'数据数据操作,由P_("auto").dbRemove( 表名或模型名,id )自动写入控制器
	Public Sub popasp_remove
		dim m , where , id
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")		
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只删除一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).remove then
			that.success( "删除成功" )
		else
			that.error( "删除失败" )
		end if
	End Sub

	'字段赋值,由P_("auto").dbSet( 表名,id,字段名,值 )自动写入控制器
	Public Sub popasp_set_field
		dim m , where , id , field_name , field_value
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		field_value = request("value")
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setField( field_name , field_value ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'字段赋值,由P_("auto").db1( 表名,id,字段名 )自动写入控制器
	'或由P_("auto").db0( 表名,id,字段名 )自动写入控制器
	Public Sub popasp_set_1
		dim m , where , id , field_name
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setField( field_name , 1 ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'字段赋值,由P_("auto").db1( 表名,id,字段名 )自动写入控制器
	'或由P_("auto").db0( 表名,id,字段名 )自动写入控制器
	Public Sub popasp_set_0
		dim m , where , id , field_name
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setField( field_name , 0 ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'数值取反操作,由P_("auto").dbNot( 表名或模型名,id,字段名 )自动写入控制器
	Public Sub popasp_set_inc
		dim m , where , id , field_name , field_value
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		field_value = request("value")
		
		If Not isNumeric( field_value ) Then
			That.error( "增长值不是数值" )
		End If
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setInc( Array(field_name , field_value) ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'数值取反操作,由P_("auto").dbNot( 表名或模型名,id,字段名 )自动写入控制器
	Public Sub popasp_set_dec
		dim m , where , id , field_name , field_value
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		field_value = request("value")
		
		If Not isNumeric( field_value ) Then
			That.error( "减小值不是数值" )
		End If
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setDec( Array(field_name , field_value) ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'数值取反操作,由P_("auto").dbNot( 表名或模型名,id,字段名 )自动写入控制器
	Public Sub popasp_not
		dim m , where , id , field_name
		
		If Not that.isSelfOrigin then
			that.error( array("非法操作","window.close") )
		End If		
		
		'获取数据模型对象
		set m = M_( "sheet1" )
		
		id = request("id")
		
		field_name = request("field")
		
		If POP_MVC.String.reg_test( id , "^[1-9]\d*$" , "") Then '如果只修改一条记录
			'判断该ID是否存在
			Call that.err( m.db.where( id ).find , "数据不存在" )
		Else
			call that.err( not POP_MVC.String.reg_test( id , "^\s*[1-9]\d*\s*(,\s*[1-9]\d*\s*)*$" , "") , "非法操作" )
		End If
		
		set where = D_
		
		where( m.db.getPK ) = array( "in" , id )
		
		if m.db.where( where ).setNot( field_name ) then
			that.success( Array("修改成功" , "" ,0 ) )
		else
			that.error( "修改失败" )
		end if
	End Sub

	'字段赋值,由P_("auto").verify(input的name名)自动写入控制器
	Public Sub popasp_verify
		P_("verify").output
	End Sub

	'下载，由P_("auto").download( Array(下载文件路径,新的文件名) )自动写入控制器
	Public Sub download_3053cdb6bbf0d2a16ee6c961ca0507c8
		POP_MVC.download( "./成绩单.xls" )
	End Sub

	'下载，由P_("auto").download( Array(下载文件路径,新的文件名) )自动写入控制器
	Public Sub download_2e2379525fe5d3e78194800c55c75686
		POP_MVC.download( Array( "./成绩单.xls","score.xls" ) )
	End Sub

    private menuData
	
	sub initialize
		'快速创建一个Dictionary对象
		set menuData = D_
		
		menuData("download.asp") = "自动化下载文件"
		menuData("upload.asp") = "自动化上传文件"
		menuData("verify.asp") = "自动化生成英文验证码"
		menuData("cnverify.asp") = "自动化生成中文验证码"
		menuData("databases.asp") = "多种多个数据库同时操作"
		
		menuData("madd.asp") = "数据库批量添加"		
		menuData("msave.asp") = "数据库批量修改"	
		
		menuData("dbAdd.asp") = "数据模型的自动添加"		
		menuData("checkAdd.asp") = "js自动验证数据"
		menuData("htmlAdd.asp") = "自动生成添加数据的html"
		
		menuData("auto.asp") = "js自动填充表单"
		menuData("dbSave.asp") = "数据模型的自动修改"
		menuData("checkSave.asp") = "js自动验证修改数据"
		menuData("htmlSave.asp") = "生成修改数据的html与操作"
		
		menuData("htmlList.asp") = "以表格形式显示数据表"
		
		menuData("dbSet.asp") = "自动化完成设置值的操作"
		menuData("db1.asp") = "自动化完成设值为1操作"
		menuData("db0.asp") = "自动化完成设值为0操作"
		menuData("dbInc.asp") = "自动化完成自增操作"
		menuData("dbDec.asp") = "自动化完成自减操作"
		menuData("dbNot.asp") = "自动化完成取反操作"
		menuData("dbRemove.asp") = "自动化完成删除操作"


		menuData("excel_madd.asp") = "演示批量添加数据"
		menuData("excel_msave.asp") = "演示批量修改数据"
		menuData("excel_index.asp") = "自动化形成的增删改查"

		'分配标题
		
		if POP_MVC.a <> "index" then
			that.assign "title" , menuData( POP_MVC.a & ".asp" )
		end if		
	end sub
	
	sub index
		that.assign "menuData" , menuData
	end sub

	sub do_madd
		dim rs,m
		set m = M_( Array( "总分" , "excel" , "成绩单.xls" ) )
		m.db.prikey = "序号"
		set rs = m.db.fieldRev("序号").top(10).select
		m.db.data(rs).mAdd
		that.success("数据批量添加成功")
	end sub

	
	sub do_msave
		dim upfile,rs
		upfile = that.form("upfile")
		
		'获取上传文件sheet1表的所有行
		set rs = M_( Array("sheet1" ,"excel" , upfile ) ).db.select
		
		M_( Array("sheet1" ,"excel" , "成绩单.xls" ) ).db.data( rs ).msave
		
		that.success("批量修改完成")
		
	end sub
	
End Class%>