📄 choosez.asp

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

💻 ASP

字号:

<!--#include file="../conn.asp"-->
<link rel="stylesheet" type="text/css" href="../style.css">
<body topmargin="0" leftmargin="0" bgcolor="#dddddd">
<br>
<br>
<br>
<br>
<%
dim x
'接收变量
aspname=request("aspname")
aspguide=request("aspguide")
ch_name=request("ch_name")
zbaspname=request("zbaspname")
'在ASPNAME表中查询对应数据库表名
sql="select * from aspname where aspname='"& aspname &"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
if not rs1.eof then
	bname=rs1("bname")
	action="suc"
else
	action="err"
end if
'根据确定的表名读取有效记录
sql="select * from "& bname &""
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if not rs2.eof then
n=rs2.recordcount-1
action1="suc"
else
action1="err"
end if
'选找该表所有字段
sql="select * from bzd_list where bname='"& bname &"'"
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
m=rs3.recordcount-1
%>
<table width="80%" border="1" align="center">
  <tr>
  <td align="center" colspan="<%=m+1%>">
	  <%=ch_name%>列表<%=x%>
  </td>
  </tr>
  <tr>
<%for i=0 to m%>
    <td bgcolor="AEB4B7" align="center"><%=rs3(3)%></td>
<%rs3.movenext
next%>
  </tr>
<%if action1="suc" then%>
<%for i=0 to n%>
<tr>
	<td align="center"><a href="kj.asp?aspname=<%=zbaspname%>&xin=1&bid=<%=rs2(1)%>"><%=rs2(1)%></a></td>
<%for j=2 to m+1%>
    <td align="center"><%=rs2(j)%></td>
<%
next%>
  </tr>
<%rs2.movenext
next%>
<%elseif action1="err" then%>
<tr>
<td align="center" colspan="<%=m+1%>">该表还没有一个有效记录</td>
</tr>
<%end if%>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -