代码拉取完成,页面将自动刷新
<!--
'=======================================================
'工程学院专用
'此文件是在“教师-选课情况”文件里面,打印成绩时的跳出对话框,用于选择班级
'=======================================================
-->
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="js_xkqk_PrintDialog.aspx.vb" Inherits="zjdx.ja_xkqk_PrintDialog" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<title>现代教学管理信息系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<meta content="all" name="robots" />
<meta name="author" content="sunleoo@gmail.com" />
<meta name="Copyright" content="正方软件 zfsoft" />
<meta name="description" content="教务软件 学分制 教学管理" />
<meta content="教务软件 学分制 教学管理" />
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="stylesheet" rev="stylesheet" href="style/main.css" type="text/css" media="all" />
<style>
TD { FONT-SIZE: 9pt }
INPUT { FONT-SIZE: 9pt }
SELECT { FONT-SIZE: 9pt }
</style>
<script language="VBScript">
Sub PopWin()
Dim xkkh, jfz, bjdm, bmc
xkkh = "<%=Request.QueryString("xkkh")%>"
jfz = "<%=Request.QueryString("jfz")%>"
bmc = "<%=Request.QueryString("bmc")%>"
xsfs = "<%=Request.QueryString("xsfs")%>"
bjdm = Document.all("ddlBJ").value
Dim Url, sFeature
url = "tocjbexcel_gc.aspx?xkkh=" + xkkh + "&jfz=" + jfz + "&bjdm=" + bjdm + "&bmc=" + bmc + "&xsfs=" + xsfs
sFeature = "toolbar=0,location=0,directories=0,status=0,menubar=1,scrollbars=1,resizable=1"
Window.Open Url,"toexcel",sFeature
End Sub
</script>
</head>
<body MS_POSITIONING="GridLayout" onload="window.focus()" bgcolor="#d4d0c8">
<form id="Form1" method="post" runat="server">
<iframe src="head.htm" frameborder="0" scrolling="no" width="100%" height="59"></iframe>
<div id="main">
<div id="title">
<div id="title_l"></div>
<div id="title_m">打印成绩录入对话框</div>
<div id="title_r"></div>
</div>
<div id="content"> <table>
<tr>
<td>班级名称</td>
<td><asp:dropdownlist ID="ddlBJ" Runat="server" DataTextField="XZB" DataValueField="BJDM" Width="160pt"></asp:dropdownlist></td>
</tr>
<tr>
<td height="30" valign="bottom" colspan="2" align="middle">
<input type="button" id="ToExcel" value=" 打 印 " onclick="VBScript:PopWin" class="button">
<input type="button" id="CloseMe" value=" 关 闭 " onclick="window.close()" class="button"></td>
</tr>
</table></div>
</div>
<div id="bottom">
<iframe src="bottom.htm" frameborder="0" scrolling="no" width="100%" height="28"></iframe>
</div>
</form>
</body>
</html>
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。