📄 choose.asp

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

💻 ASP

字号:

<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<br>
<br>
<br>
<br>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("KYDB.mdb")
dim bh
aspname=request("aspname")
action=request("ch_name")
sql="select top 10 * from hxxm order by hxxm_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(3)%></div></td>
    <td width="20%"><div align="center"><%=choosers(4)%></div></td>
    <td width="20%"><div align="center"><%=choosers(15)%></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('请先录入基本信息！');
if(confirm("您想现在就开始录入第一个基本信息吗？"))
	window.location="hx_xxlrxm.asp"
</script>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -