📄 choose2.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">
<%
bh=request("bh")
x=request.form("xxx")
bname=request.form("bname")
username=session("user")
aspname=request("aspname")
%>
<%
bsql="select * from bzd_list where bname='"& bname &"'"
set brs=server.createobject("adodb.recordset")
brs.open bsql,conn,1,1
b=brs.recordcount-1
%>
<%
'n=n+brs(2)+"="+"'"+ bh +"' "+"and"+" "
%>
<%
chsql="select * from selectlist Where uname='"& username &"' and bname='"& bname &"' and cc='"& x &"'"
set chrs=server.Createobject("ADODB.Recordset")
chrs.open chsql,conn,1,1
if not chrs.eof then
	m=chrs.recordcount-1
end if
%>
<%for i=0 to m-1%>
<%
	n=n+chrs(3)+chrs(4)+"'"+ chrs(5) +"' "+chrs(6)+" "
%>
<%
	chrs.movenext
next%>
<%
n=n+chrs(3)+chrs(4)+"'"+ chrs(5) +"' "
%>
<%
mysql="select * from "&bname&" Where "&n&""
set myrs=server.Createobject("ADODB.Recordset")
myrs.open mysql,conn,1,1
if not myrs.eof then
	a=myrs.recordcount-1
	action="suc"
else
	a=""
	action="err"
	errn="没有找到您所需要的信息！"
end if
%>

<%if action="suc" then%>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#c0c0c0">
  <tr bgcolor="#C0C0C0"> 
  <%for i=0 to b%>
    <td ><div align="center"><%=brs(3)%></div></td>
  <%brs.movenext
next
%>  
  </tr>
  <%for i=0 to a%>
  <tr>
    <td ><div align="center"><a href="<%=aspname%>.asp?aspname=<%=aspname%>&bh=<%=bh%>&bid=<%=myrs(0)%>&name=<%=name%>&xin=0" target="form"><%=myrs(1)%></a></div></td> 
    <%for j=2 to b+1%>
    <td ><div align="center"><%=myrs(j)%></div></td>
    <%next%>  
  </tr>
  <%myrs.movenext
next
%>
  </table>
<%elseif action="err" then%>
<script>
alert("<% =errn %>")
</script>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -