📄 choose.asp

📁 数据结构课程设计之最小生成数的K算法的实现简短简洁

💻 ASP

字号:

<!--#include file="../conn.asp"-->

<head>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>

<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<br>
<br>
<br>
<br>
<%
dim bh
aspname=request("aspname")
action=request("ch_name")
sql="select top 10 * from zxxm order by zxxm_id desc"
set choosers=server.createobject("adodb.recordset")
choosers.open sql,conn,1,1
if not choosers.eof then
	x=choosers.recordcount-1
	action1="n"
else
	action1="y"
end if
%>
<%if action1="n" then%>  
<table width="75%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#c0c0c0">
  <tr> 
    <td colspan="6"><div align="center">请选择<%=action%>编号</div></td>
  </tr>
  <tr bgcolor="#C0C0C0"> 
    <td width="20%"><div align="center">项目编号</div></td>
    <td width="20%"><div align="center">课题名称</div></td>
    <td width="20%"><div align="center">负责人</div></td>
    <td width="20%"><div align="center">立题文件</div></td>
    <td width="20%"><div align="center">经济目标</div></td>
	
  </tr>
  <%for i=0 to x%>
  <tr> 
    <td width="20%"><div align="center"><a href="kj.asp?aspname=<%=aspname%>&bh=<%=choosers(1)%>&name=<%=choosers(2)%>"><%=choosers(1)%></a></div></td>
    <td width="20%"><div align="center"><%=choosers(2)%></div></td>
    <td width="20%"><div align="center"><%=choosers(11)%></div></td>
    <td width="20%"><div align="center"><%=choosers(12)%></div></td>
    <td width="20%"><div align="center"><%=choosers(20)%></div></td>
  </tr>
  <%choosers.movenext
next
%>
  <tr> 
    <td bgcolor="#C0C0C0" colspan="5">
      <table align="right" width="50%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="30%"><div align="center">上一页</div></td>
		  <td width="30%"><div align="center">下一页</div></td>
		  <td width="40%"><div align="center">最后页</div></td>
        </tr>
      </table></td>
  </tr>
</table>
<%elseif action1="y" then%>
<script>
  alert('项目基本信息为空，请先录入基本信息！');
</script>
<%end if%>
<p></p>
<%
'if(confirm("您想现在就开始录入第一个基本信息吗？")){
	'  window.location="kjjb.asp?ch_name=纵向项目基本信息&aspname=zx_xxlrxm&xin=1";
	'  }
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -