二级菜单连动.docVIP

省表 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(script) response.Write(alert(provinceName省添加成功!)) response.Write(/script) else response.Write(script) response.Write(alert(省份的名称不能为空!)) response.Write(/script) 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(script) response.Write(alert(cityName市添加成功!)) response.Write(/script) else response.Write(script) response.Write(alert(城市的名称不能为空!)) response.Write(/script) end if end if 显示和修改 Add.asp %@LANGUAGE=VBSCRIPT CODEPAGE=936% !--#include file=conn.asp-- !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN /TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=/1999/xhtml head meta http-equiv=Content-Type content=text/html; charset=gb2312 / titleUntitled Document/title style type=text/css body{font-size:12px; font-family:Arial, Helvetica, sans-serif} td{ font-size:12px; font-family:Arial, Helvetica, sans-serif} /style /head body % 添加省 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(script) response.Write(alert(provinceName省添加成功!)) response.Write(/script) else response.Write(script)