http://www.gongwen.com/list.htm?k=1&v=3
HTTPRequest 代码如下：
If Functions.Execute("Permit",e,"xxxxxxxxxxxxx","http://www.gongwen.com/","123") = False Then '授权访问
Dim sb As New StringBuilder
sb.AppendLine("你无权访问本系统")
e.WriteString(sb.ToString)
Else
Select Case e.Path
Case "home.htm"
'默认页面
Functions.Execute("home",e)
Case "addnew.htm"
'递交新的公文
Functions.Execute("addnew",e)
Case "list.htm"
'公文详情
Functions.Execute("list",e)
Case Else
Dim sb As New StringBuilder
sb.AppendLine("有异常情况!请重新再打开一次")
e.WriteString(sb.ToString)
End Select
Permit等函数也是抄教程代码的。
加好友 
发短信
Post By：2019/4/23 11:56:00 [显示全部帖子]
