⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 zhaoshengjihua.asp

📁 设计学校管理系统设计中的招生模块
💻 ASP
字号:
   <!-- #include virtual="/admin/include/title.html"-->
<%@ Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftMargin="0" topmargin="0" background="../IMAGES/netbkgnd.gif" bgcolor="#FFFFFF" text="#000000" link="#339933" vlink="#996600" alink="#CC9900">
  <!-- #include virtual="/admin/include/title.html"-->
 <table WIDTH="98%" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
 <tr height="6%">
 <td>&nbsp;
 </td>
 </tr>
	<tr>
		<td width="20%" align="center" valign="top"> 
		<table border="2" width="56%" align="center" bordercolor="DodgerBlue">
		
		<td>
		  <table width="81%" border="0" cellpadding="0" align="left" bordercolor="Chartreuse">       
            
          
     <td valign="top" align="left">
 <%
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/stu.mdb")
conn.Open connstr

dim sql,Res,n
sql="select * from zhaoshengjihua"
set Res=server.createobject("adodb.recordset")
	Res.open sql,conn,1,1
	if Res.eof then
%>
<p><strong><font face="宋体" style="FONT-SIZE: larger" color="DarkBlue">
    目前,学校没有发布</font><font face="宋体" style="font-size: larger" color="#00008B">招生计划</font></strong><% else %>

   </p>

   <table WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="1">
	<tr>
		<td><table WIDTH="90%" BORDER="0" CELLSPACING="1" CELLPADDING="1">
		<tr>
		<td><strong><font face="宋体" style="font-size: larger" color="#00008B">
		招生计划</font></strong></td>
		</tr>
	</table>
	</td>
	</tr>
	<tr>
		<td>   <table WIDTH="90%" BORDER="0" CELLSPACING="1" CELLPADDING="1">
   	<% n=Res.RecordCount 
	for i=1 to n
	 %>
	
		<tr>
			<td valign="top"><font color="darkblue" size="2"><%=Res("gonggao")%></font></td>
		</tr>
		<tr>
		<td align="right" height="15"><font color="brown" size="2"><%=Res("atime")%></font></td>
		</tr>
		<tr>
		<td><hr width="100%"></td>
		</tr>
		<% Res.MoveNext()
		next%>
		
</table>
<% end if
	Res.Close()
	set Res=nothing 
	set Conn=nothing
%>

	


  
          </td>  
        </tr>    
      </table>
		</table>
		<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>
		</table>
		<p>&nbsp;<input id=button2 style="WIDTH: 132; HEIGHT: 24" onclick="location.href=&quot;zhaoshengjihuafabu.asp&quot;" type=button value="返回" name=button2></p> </body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -