fl.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 42 行

<table>
<%on error resume next
'option explicit
dim conn,connstr,db,rs,rs_s,rs_s1
db="../database/data.mdb"
set conn = server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")
conn.open connstr

 
classid=19

set rs1=server.createobject("adodb.recordset")
sqltext="select   * from nc_flashlist where classid="&classid&""
rs1.open sqltext,conn,1,1
do while not rs1.eof
url1=url1&"<a href='/flash/"&rs1("classid")&"/show-"&rs1("flashid")&".html'  title='"&rs1("title")&"'>"&rs1("title")&"</a><br>"

rs1.movenext

url2=url2&"<a href='/flash/"&rs1("classid")&"/show-"&rs1("flashid")&".html'  title='"&rs1("title")&"'>"&rs1("title")&"</a><br>"

rs1.movenext

url3=url3&"<a href='/flash/"&rs1("classid")&"/show-"&rs1("flashid")&".html'  title='"&rs1("title")&"'>"&rs1("title")&"</a><br>"

rs1.movenext
url4=url4&"<a href='/flash/"&rs1("classid")&"/show-"&rs1("flashid")&".html'  title='"&rs1("title")&"'>"&rs1("title")&"</a><br>"

rs1.movenext
	
loop
%>
<tr>
<td class="paih1" valign=top width="157"><%=url1%></td>
<td class="paih1" valign=top width="158"><%=url2%></td>
<td class="paih1" valign=top width="158"><%=url3%></td>
<td class="paih1" valign=top width="158"><%=url4%></td>
</tr>
</table>