choose.asp

来自「数据结构课程设计之最小生成数的K算法的实现简短简洁」· ASP 代码 · 共 64 行

ASP

64 行

<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%>

choose.asp - 源码说明

本页面展示了「数据结构课程设计之最小生成数的K算法的实现简短简洁」中的 choose.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与数据结构相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?