list.asp

（完整代码） 817B 

<link href="CSS/style.css" rel="stylesheet" type="text/css" />
<%
dim conn,connstr,db,rs
db="gamesdata/#games.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
<table>
<%
anclassid=request("id")
If IsNumeric(anclassid) Then 
	Set rs=conn.execute("select * from nclass where anclassid="&anclassid&" and zt<>'满仓' order by nclass")
	Do While Not rs.eof 
	%>
	  <tr>
		 <td width=100><%=rs("anclass")%></td> <td width=180><%=rs("nclass")%></td> <td width=60>
		 <% If CDbl(rs("jiage"))<1 Then 
		       response.write "0"
	         End if%>
		 <%=rs("jiage")%></td>  <td width=60><%=rs("sulian")%></td>
	  </tr>
	<%
	 rs.movenext
	Loop
	rs.close
	Set rs=Nothing
End if
%>
</table>

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。