📄 c0f30df0b0be001c1f18b933bfcaae15
字号:
<%@page pageEncoding="GBK"%>
<HTML>
<HEAD>
<TITLE>教学督导组--部门首页</TITLE>
<META http-equiv="content-type" content="text/html; charset=gb2312">
<LINK rel='stylesheet' href='Css/dep0.css'>
</HEAD>
<BODY bgcolor=#CCCCCC style='margin:0'>
<CENTER>
<TABLE class=maintbl width=760 border=0 cellPadding=0 cellSpacing=0 align=center>
<TR><TD width=760 height=1></TD></TR>
<TR>
<TD>
<TABLE width='100%' border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD><IMG src="Img/logo1.jpg" width=94 height=94></TD>
<TD align=left width=160><IMG src="Logo/33.jpg" height=70 width=176></TD>
<TD align=right><IMG src='Img/logo2.jpg' width=490 height=100></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD width=760 height=9 style='line-height:0px; border:#737BB6 2px solid; border-width:2px 0px 0px 0px'> </TD>
</TR>
<TR>
<TD>
<TABLE width='100%' border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD width=147 height=20 bgColor='#FFFFFF' align=center><IMG src='Img/Tuanjie.jpg'></TD>
<TD width=10 bgColor='#FFFFFF'></TD>
<TD width=603 height=20 bgColor='#FFFFFF' Valign=bottom>
<MARQUEE direction=left width=600 height=16 scrolldelay=80 scrollamount=6 behavior="alternate" id='board' onmouseover='board.stop()' onmouseout='board.start()'>
<font color=#0000CC><a href='/Dep/Default.asp?bm=33' target=_top style='color:#0000FF'>
欢迎您访问<b>成都信息工程学院--教学督导组</b>的主页</a></font></MARQUEE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<TR><TD width=760 height=10></TD></TR>
</TABLE>
</CENTER>
<script language="VBscript">
<!--
Dim ImgArr(100),ImgNum,ImgStat(100),ImgSize(100)
ImgNum=0
sub focusto(x)
document.form1.elements(x).focus()
end sub
Sub ShHelp(theMsg)
window.parent.footW.ShelpT.innerHTML="<b>系统提示：</b>"
window.parent.footW.ShelpC.innerHTML=theMsg
End Sub
Sub ShHelpSj()
window.parent.footW.ShelpT.innerHTML="<b>系统提示：</b>"
window.parent.footW.ShelpC.innerHTML="当仅具有部门编辑权限(即不具备审校权限)的用户提交本条信息后，本条信息将自动变为<b>不能对外发布</b>。若新闻带有多张图片并且图片的位置各异，请在内容中需要显示图片的地方输入标记<span style='color:#FF0000'><b>\pic/</b></span>！"
End Sub
Sub ShHelpCls()
window.parent.footW.ShelpT.innerHTML=""
window.parent.footW.ShelpC.innerHTML=""
End Sub
Function zLen(str)
dim strlen,i,sjlen
strlen = len(str)
zLen=0
if not strlen = 0 then
sjlen=0
For i=1 to strlen
If ASCW(Mid(str,i,1))<128 and ASCW(Mid(str,i,1))>0 Then sjlen=sjlen+1 Else sjlen=sjlen+2
Next
zLen=sjlen
end if
End Function
Function zDate(str)
dim strlen
If IsDate(str) Then
zDate=True
Else
zDate=False
End If
End Function
Function FormDate(str)
FormDate=Year(str) & "-" & Right(100+Month(str),2) & "-" & Right(100+Day(str),2)
End Function
Function FormDateTime(str)
If str="" Then
FormDateTime=""
Exit Function
End If
FormDateTime=Year(str) & "-" & Right(100+Month(str),2) & "-" & Right(100+Day(str),2) & " " & _
Right(100+Hour(str),2) & ":" & Right(100+Minute(str),2)
End Function
Sub FormatStr(x)
Dim Lines,i,MaxLine,OneLine
Lines=Split(form1.Lr.value,VbCrLf)
form1.Lr.value=VbCrLf
MaxLine=Ubound(Lines)
For i=0 to MaxLine
OneLine=Trim(Lines(i))
If OneLine<>"" Then
If Left(OneLine,1)<>" " Then
OneLine=" " & OneLine
Else
If Left(OneLine,2)<>" " Then
OneLine=" " & OneLine
End If
End If
form1.Lr.value=form1.Lr.value & OneLine
If i<>MaxLine Then form1.Lr.value=form1.Lr.value & VbCrLf & VbCrLf
End If
Next
focusto x
End Sub
-->
</script>
<script language="javascript">
<!--
function shNewsPic(TableName,TheId,thePic)
{
window.open('/Lib/ShNewsPic.asp?Table='+TableName+'&Id='+TheId+'&Pic='+thePic,'','scrollbars=yes,resizable=yes,width=700,height=600');
return (false);
}
function Set_LyPxh0(href)
{
window.open(href,'_self');
}
function DelNews(href)
{ var beSure = window.confirm("真的要删除本条信息吗？");
if (beSure)
{ window.open(href,'_self'); }
}
function Del_News(href,mess)
{ var beSure = window.confirm("真的要删除本条信息吗？\n"+" "+mess);
if (beSure)
{ window.open(href,'_self'); }
}
var ReSzWR=0;
function ReSizeImg(theXh,PicMaxWdth)
{ var WD,HI,BW,BH;
if (theXh==1) { WD=theImg1.width; if (WD>PicMaxWdth) theImg1.width=PicMaxWdth; }
if (theXh==2) { WD=theImg2.width; if (WD>PicMaxWdth) theImg2.width=PicMaxWdth; }
if (theXh==3) { WD=theImg3.width; if (WD>PicMaxWdth) theImg3.width=PicMaxWdth; }
if (ReSzWR==1) {
window.top.fTabM.height=fTabR.offsetHeight
window.top.fTabM2.style.display="none"
window.top.fTabM2.style.display=""
}
}
function ReSizeImg1(theXh,PicMaxWdth)
{ var WD,HI,BW,BH;
if (theXh==1) { WD=form1.theImg1.width; if (WD>PicMaxWdth) form1.theImg1.width=PicMaxWdth; }
if (theXh==2) { WD=form1.theImg2.width; if (WD>PicMaxWdth) form1.theImg2.width=PicMaxWdth; }
if (theXh==3) { WD=form1.theImg3.width; if (WD>PicMaxWdth) form1.theImg3.width=PicMaxWdth; }
}
var hasSet=0,ImgIntV;
function ReSizeImgX(theXh,PicMaxWdth)
{ var WD,HI,BW,BH,mi;
if (hasSet==0) {hasSet=1; ImgIntV=setInterval("rsAllImg()",500); }
if (ImgNum>99) return -1;
ImgNum++;
ImgArr(ImgNum)="theImg"+theXh; ImgSize(ImgNum)=PicMaxWdth;
if (document.all("theImg"+theXh).complete)
{ ImgStat(ImgNum)="Y";
WD=document.all("theImg"+theXh).width;
if (WD>PicMaxWdth) document.all("theImg"+theXh).width=PicMaxWdth; }
else ImgStat(ImgNum)="N";
}
function rsAllImg()
{ var ri,alrOK=1,WD;
for (ri=1; ri<=ImgNum; ri++)
{ if (ImgStat(ri)=="N")
{ if (document.all(ImgArr(ri)).complete)
{ ImgStat(ri)="Y";
WD=document.all(ImgArr(ri)).width;
if (WD>ImgSize(ri)) document.all(ImgArr(ri)).width=ImgSize(ri); }
else alrOK=0; }
}
if (alrOK) clearInterval(ImgIntV);
}
-->
</script>
<script language="VBscript">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -