📄 choose2.asp

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

💻 ASP

字号:

<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<%
bh=request("bh")
x=request.form("xxx")
bname=request.form("bname")
username=session("user")
aspname=request("aspname")
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("KYDB.mdb")
set brs=server.createobject("adodb.recordset")
bsql="select * from bzd_list where bname='"& bname &"'"
Set brs= conn.Execute(bsql) 
b=brs.recordcount-1
%>
<%
n=n+brs(2)+"="+"'"+ bh +"' "+"and"+" "
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("KYDB.mdb")
set brs=server.createobject("adodb.recordset")
chsql="select * from selectlist Where uname='"& username &"' and bname='"& bname &"' and cc='"& x &"'"
Set brs= conn.Execute(chsql) 
if not brs.eof then
m=brs.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) +"' "
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("KYDB.mdb")
set myrs=server.Createobject("ADODB.Recordset")
mysql="select * from "&bname&" Where "&n&""
Set myrs= conn.Execute(mysql) 
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 + -