Dim pageA As String = e.GetValues("page") '获取上一页面uid
Dim shier As DataRow = DataTables("专业分类").sq lFind("id=" & pageA) '通过id获取标题
Dim liu1A As String = "<br/><div>您好 " & liu & "</div>"
Dim liu2A As String = "<br/>您没有当前课程的访问权限,请联系企业负责人!"
Dim liu3A As String = liu1A + liu2A
Dim pageB As String = shier("id")
如何查询 专业分类 表 是否存在 pageA ， 如果专业分类 表 不存在或者为空 就执行下面这语句
If pageB= "" Then '如果page等于空
wb.Title = "拒绝访问" '添加页面标题
With wb.AddMsgPage("","msgpage","拒绝访问",liu3A)
.icon = "Warn" '改变图标
.AddButton("btna","返回").Attribute = ""
End With
e.WriteString(wb.Build) '生成网页
Return "" '必须返回
End If
加好友 
发短信
Post By：2018/11/24 18:25:00 [只看该作者]
