📄 nettoasp.asp
字号:
<%
'Function: 我的任务转至asp页面
'Author: 李娜红
'Date: 2007-7-12
%>
<%
strType=request("type")
if isempty(strType) then
response.Write("<script language='javascript'>alert('非法操作!');window.close();</script>")
end if
strUserID=request("id")
if isempty(strUserID) then
response.Write("<script language='javascript'>alert('非法操作!');window.close();</script>")
else
session("userEname")=strUserID
session("name")=strUserID
session("loginname")=strUserID
end if
select case strType
case "1" strUrl="/cauc/report/dubanlist.asp"'督办
case "2" strUrl="/xxwj/"'学校文件
case "3" strUrl="/message/"'我的留言
case "4" strUrl="/gg/"'通知通告
case "5" strUrl="/cauc/admin/hy/"'会议安排
case "6" strUrl="/cauc/Doing/default.asp"'待阅公文
case "11" strUrl="/index.asp"'首页
case "12" strUrl="/dtxx/default.asp"'动态信息
case "13" strUrl="/cauc/"'公文流传
case "14" strUrl="/gzzd/"'规章制度
case "15" strUrl="/ckxx/"'参考信息
case "16" strUrl="/cyxx/"'常用信息
case "17" strUrl="/xfzc/"'信访之窗
case "18" strUrl="http://www.cauc.edu.cn/pjb/index.asp"'评建专栏
case else strUrl="/index.asp"
end select
response.Redirect(strUrl)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -