choose.asp
来自「企业信息化管理系统:针对的是一个计算机配件生产公司为背景实现的。」· ASP 代码 · 共 70 行
ASP
70 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择</title>
</head>
<body bgcolor="#D2D2CA">
<%
op=request.querystring("op")
sp=request.querystring("sp")
if strcomp(op,"tongzhifabu")=0 then
op= "tongzhifabu.asp"
end if
if strcomp(op,"email_index")=0 then
op= "email\email_index.asp"
end if
if strcomp(op,"Person")=0 then
op="person.asp"
end if
if strcomp(op,"persongzchx")=0 or strcomp(op,"Person.asp")=0 then
op="persongzchx.asp"
end if
if strcomp(op,"newregist")=0 then
op="newregister.asp"
end if
if strcomp(op,"change")=0 then
op="change.htm"
end if
if strcomp(op,"sfile")=0 then
op="filemanage.asp"
end if
if strcomp(op,"gongzixiugai")=0 then
op="AXgongzi.asp"
end if
if strcomp(op,"gongziff")=0 then
op="Agongzi.asp"
end if
if strcomp(op,"gongzichx")=0 then
op="gongzichx.asp"
end if
if strcomp(op,"rifa")=0 then
op="rifa.asp"
end if
if strcomp(op,"richa")=0 then
op="richa.asp"
end if
if strcomp(op,"zhou")=0 then
op="zhou.asp"
end if
if strcomp(op,"yue")=0 then
op="cha.asp"
end if
if strcomp(op,"manage")=0 then
op="manage.htm"
end if
%>
<IFRAME id='fmaint' WIDTH="100%" height="470" src=<%=op%> scrolling="<%=sp%>" frameborder="0" ></IFRAME>
<script language=javascript>
setInterval("refreshparent()",1000);
function refreshparent(){
parent.document.getElementById('fmain').innerHTML=document.getElementById('fmaint').innerHTML;
}
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?