二级菜单连动.doc

省表create table tb_province( pid int primary key identity(1,1) not null, provinceName varchar(50) not null)市表create table tb_city( cid int primary key identity(1,1) not null, pid int foreign key references tb_province(pid) not null, cityName varchar(50) not null)填加省份if not isEmpty(request.Form(addprovince) then provinceName = trim(request.Form(provinceName) if provinceName then sql = insert into tb_Province(provinceName)values(&provinceName&) conn.execute(sql) response.Write() response.Write(alert(&provinceName&省添加成功!) response.Write() else response.Write() response.Write(alert(省份的名称不能为空!) response.Write() end if end if添加城市if not isempty(request.Form(addCity) then cityName = trim(request.Form(cityName) if cityName then pid = request.Form(pid) sql = insert into tb_City(pid,cityName)values(&pid&,&cityName&) conn.execute(sql) response.Write() response.Write(alert(&cityName&市添加成功!) response.Write() else response.Write() response.Write(alert(城市的名称不能为空!) response.Write() end if end if显示和修改Add.aspUntitled Documentbodyfont-size:12px; font-family:Arial, Helvetica, sans-seriftd font-size:12px; font-family:Arial, Helvetica, sans-serif% 添加省 if not isEmpty(request.Form(addprovince) then provinceName = trim(request.Form(provinceName) if provinceName then sql = insert into tb_Province(provinceName)values(&provinceName&) conn.execute(sql) response.Write() response.Write(alert(&provinceName&省添加成功!) response.Write() else response.Write() response.Write(alert(省份的名称不能为空!) response.Write() end if end if 修改省 if not isempty(request.Form(modifyProvince) then provinceName = trim(request.Form(provinceName) if provinceName then pid = request.Form(pid) sqlstr = update tb_Province set provinceName=&provinceName& where pid=&pid conn.execute(sqlstr) response.Write() response.Write(alert(修改成功!) response.Write() else response.Write() response.Write(alert(省份的名称不能为空!) response.Write() end if end if 删除省 if not isempty(request.Form(delProvince) then pid = request.Form(pid) sql = delete * from tb_City where pid=&pid conn.execute(sql) sqlstr = delete * from tb_Province where pid=&pid conn.execute(sqlstr) response.Write() response.Write(alert(删除成功!) response.Write() end if 添加城市 if not isempty(request.Form(addCity) then cityName = trim(request.Form(cityName) if cityName then pid = request.Form(pid) sql = insert into tb_City(pid,cityName)values(&pid&,&cityName&) conn.execute(sql) response.Write() response.Write(alert(&cityName&市添加成功!) response.Write() else response.Write() response.Write(alert(城市的名称不能为空!) response.Write() end if end if 修改城市 if not isempty(request.Form(modifyCity) then cityName = trim(request.Form(cityName) if cityName then cid = request.Form(cid) sqlstr = update tb_City set cityName=&cityName& where cid=&cid conn.execute(sqlstr) response.Write() response.Write(alert(城市修改成功!) response.Write() else response.Write() response.Write(alert(城市的名称不能为空!) response.Write() end if end if 删除城市 if not isEmpty(request.Form(delCity) then cid = request.Form(cid) sqlstr = delete * from tb_City where cid=&cid conn.execute(sqlstr) response.Write() response.Write(alert(城市删除成功!) response.Write() end if % option value= form name=form method=post action=add.asp input type=text name=provinceNa