lie.asp

来自「一个人用ASP+SQL制作的个人博客」· ASP 代码 · 共 22 行

<center>

<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td>
<%sql1="select * from type"
Set typelie = Server.CreateObject("ADODB.Recordset")
typelie.open sql1,conn,1.1
do while not typelie.eof%>
<div>-&nbsp;<a href=index.asp?typeid=<%=typelie("typeid")%>><%=typelie("type")%></a> &nbsp;&nbsp;&nbsp;&nbsp;<%typelie.movenext  %>-&nbsp;<a href=index.asp?typeid=<%=typelie("typeid")%>><%=typelie("type")%></a>
</div>
<%typelie.movenext
loop
typelie.Close
set typelie=nothing%>
</td>
</tr>
</table>
</center>