===========================================================
给出伪代码:
========================登录页面=============================
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if username=rs("username") and password=rs("password") then
session("username")=rs("username")
session("password")=rs("password")
session("pergroup")=rs("pergroup")
else
//跳转错误页面
end if
========================模块A页面=============================
dim ModelName '定义模块名称
ModelName="Model_A" '要和[permission]表中的列一致
if session("pergroup")="" then Response.Redirect("login.asp")'跳转登录页面
sql="SELECT "&ModelName &" FROM [permission] WHERE username='"&session("username")&"'"
rs.open sql 1,1
if rs(0)=0 then //只读操作
if rs(0)=1 then //添加操作
if rs(0)=2 then //删除操作
if rs(0)=3 then //修改操作