nettoasp.asp

来自「学校的人事管理系统 适合初学者参考」· ASP 代码 · 共 38 行

<%
'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)
%>