📄 choose1.asp

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

💻 ASP

字号:

<base target="form">
<%
aspname=request("aspname")
bh=request("bh")
name=request("name")
%>
<!--#include file="../conn.asp"-->
<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<br>
<br>
<br>
<br>
<%
aspsql="select * from aspname where aspname='"& aspname &"'"
set asprs=server.createobject("adodb.recordset")
asprs.open aspsql,conn,1,1
if not asprs.eof then
	bname=asprs("bname")
	action="suc"
else
	action="err"
end if
%>
<%
bsql="select * from bzd_list where bname='"& bname &"'"
set brs=server.createobject("adodb.recordset")
brs.open bsql,conn,1,1
n=brs.recordcount-1
%>
<%
if trim(aspname)="zx_xxlrtcmx" then
   bnrsql="select * from "& bname &" where  zxxmtc_tzdh='"& name &"' and Zxxm_no='"& bh &"'"
else
   bnrsql="select * from "& bname &" where Zxxm_no='"& bh &"'"   
end if
Set bnrrs = Server.CreateObject("ADODB.Recordset")
bnrrs.open bnrsql,conn,1,1
m=bnrrs.recordcount-1
%>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#c0c0c0">
  <tr bgcolor="#C0C0C0"> 
  <%for i=0 to n%>
    <td ><div align="center"><%=brs(3)%></div></td>
  <%brs.movenext
next
%> 
  <td ><div align="center">删除</div></td> 
  </tr>
  <%for i=0 to m%>
  <tr>
    <td ><div align="center"><a href="<%=aspname%>.asp?aspname=<%=aspname%>&bh=<%=bh%>&bid=<%=bnrrs(0)%>&name=<%=name%>&xin=0"><%=bnrrs(1)%></a></div></td> 
    <%for j=2 to n+1%>
    <td ><div align="center"><%=bnrrs(j)%></div></td>
    <%next%> 
	<td ><div align="center"><a href="zdelete.asp?bh=<%=bh%>&bid=<%=bnrrs(0)%>&aspname=<%=aspname%>&bname=<%=bname%>&name=<%=name%>" onClick="" target="list">删除</a></div></td> 
  </tr>
  <%bnrrs.movenext
next
%>
  <tr bgcolor="#C0C0C0">
   <td colspan="<%=n+2%>"><div align="center">
   <a href="choose1.asp?aspname=<%=aspname%>&bh=<%=bh%>&name=<%=name%>&xin=0" target="list">刷新</a>
  </div></td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -