theme.asp

学生评教系统,可以实现学生评教,教师查分功能.

<script language="javascript">
function openScript(url, width, height) {
        var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}

function PopWindow()
{ 
openScript('messanger.asp?action=newmsg',420,320); 
}
var nn = !!document.layers;
var ie = !!document.all;

if (nn) {
  netscape.security.PrivilegeManager.enablePrivilege("UniversalSystemClipboardAccess");
  var fr=new java.awt.Frame();
  var Zwischenablage = fr.getToolkit().getSystemClipboard();
}
function a(){
el=event.srcElement
if (el.tagName=='A') el.target=(globalTarget.value)
}

function JM_setTarget(){
globalTarget.value=(globalTarget.value=='_blank')?'':'_blank';
globalTarget.children[0].src=(globalTarget.value=='')?'<%=ForumUrl%><%=picurl%>w.gif':'<%=ForumUrl%><%=picurl%>nw.gif';
setVMcookie(globalTarget.value);
}
function submitonce(theform){
//if IE 4+ or NS 6+
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
//disable em
tempobj.disabled=true
}
}
}
</script>
<script> 
var currentpos,timer; 
function initialize() 
{timer=setInterval("scrollwindow()",1);} 
function sc(){clearInterval(timer);} 
function scrollwindow() 
{currentpos=document.body.scrollTop; window.scroll(0,++currentpos); 
if (currentpos != document.body.scrollTop) sc();} 
document.onmousedown=sc 
document.ondblclick=initialize 
function New(para_URL) 
{var URL =new String(para_URL) 
window.open(URL,'','resizable,scrollbars')} 
</SCRIPT> 
<table width="95%" align="center" cellspacing="0" cellpadding="1"  border="0" bgcolor='<%=Tablebackcolor%>'>
  <tr>
    <td>
      <table width="100%" cellspacing="0" cellpadding="4" border="0">
        <tr bgcolor='<%=Tabletitlecolor%>'>
        <td valign="middle" align=left><FONT COLOR=<%=TableFontcolor%>>
            >> <%if session.contents("username")="" then%>欢迎您，<a href=login.asp><FONT COLOR=<%=TableFontcolor%>>请先登陆</FONT></a> | <a href="reg.asp"><FONT COLOR=<%=TableFontcolor%>>注册</FONT></a><%else%>欢迎您，<b><%=session.contents("username")%></b>： <a href="login.asp"><FONT COLOR=<%=TableFontcolor%>>重登陆</FONT></a> | <a href="javascript:openScript('MYMODIFY.ASP?name=<%=session.contents("username")%>',500,400)"><FONT COLOR=<%=TableFontcolor%>>更改信息</FONT></a> | <a href="javascript:openScript('messanger.asp?action=inbox',420,320)"><FONT COLOR=<%=TableFontcolor%>>短消息</FONT></a> | <a href="favlist.asp"><FONT COLOR=<%=TableFontcolor%>>收藏</FONT></a><%end if%> | <a href="toplist.asp?orders=1"><FONT COLOR=<%=TableFontcolor%>>发贴排行</FONT></a> | <a href="query.asp"><FONT COLOR=<%=TableFontcolor%>>搜索</FONT></a> | <a href="javascript:openScript('help.asp',500,400)"><FONT COLOR=<%=TableFontcolor%>>帮助</FONT></a> | <a href="logout.asp"><FONT COLOR=<%=TableFontcolor%>>退出</FONT></a>  | <a href="elogin.asp"><FONT COLOR=<%=TableFontcolor%>>管理</FONT></a> </FONT>
        </td>
        <td valign="middle" align=right><FONT COLOR=<%=TableFontcolor%>> | 
            <a href="<%=ForumURL%>"><b><FONT COLOR=<%=TableFontcolor%>>返回主页</FONT></B></a></FONT>
        </td>
            </tr>
        </table>
        </td>
    </tr>
</table>
<table width="95%" align="center" cellspacing="0" cellpadding="1"  border="0" bgcolor='<%=Tablebodycolor%>'>
  <tr>
    <td align=right>
<%
ON ERROR RESUME NEXT
if Cint(incept())>Cint(0) then
	if openmsg=0 then
	response.write "<img src="&picurl&"newmail.gif><a href=javascript:openScript('messanger.asp?action=inbox',420,320)>您有新短消息</a>"
	else
	response.write "<script language=JavaScript>JavaScript:PopWindow()</script>"
	end if
end if
%>
    </td>
  </tr>
</table>
<%
'统计留言
function incept()
incept=0
msgRs=conn.execute("Select Count(id) as msgs From Message Where flag=0 And incept='"&trim(session.contents("username"))&"'")
    incept=msgrs("msgs")
	set msgrs=nothing
	if isnull(incept) then incept=0
end function
function allincept()
msgRs=conn.execute("Select Count(id) as msgs From Message Where flag=0 And incept='"&trim(session.contents("username"))&"'")
    allincept=msgrs("msgs")
	set msgrs=nothing
	if isnull(allincept) then allincept=0
end function
function allsend()
msgRs=conn.execute("Select Count(id) as msgs From Message Where flag=0 And sender='"&trim(session.contents("username"))&"'")
    allsend=msgrs("msgs")
	set msgrs=nothing
	if isnull(allsend) then allsend=0
end function
%>