?? nettoasp.asp
字號:
<%
'Function: 我的任務(wù)轉(zhuǎn)至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/"'學(xué)校文件
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"'動態(tài)信息
case "13" strUrl="/cauc/"'公文流傳
case "14" strUrl="/gzzd/"'規(guī)章制度
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)
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -