www.gusucode.com > 新锐领秀网络相册 1.1 > list.asp
<!--#include file="conn.asp"--> <% '---------------------------------------------------- ' [Gong] (C)2007-2008 . ' This is NOT a freeware, use is subject to license terms ' Id: list.asp 2008-03-26 00:53:29 Gong '---------------------------------------------------- Dim id,Title,sql,rs,strWhere id = gSafeRequest("id",1) If id > 0 Then sql = "Select Title From gTypes Where ID=" & id If Not IsObject(conn) Then Call ConnectionDatabase Set rs = conn.Execute(sql) If Not (rs.eof And rs.bof) Then Title = rs(0) rs.close():Set rs = Nothing strWhere = "TypeID=" & id Else Title = "全部" strWhere = "" End If PageTitle = Title & "," & gTitle %> <!--#include file="head.asp"--> <table width="778" border="0" align="center" class="maintable"> <tr> <td style="height:30px;background: url('images/cat_bg.gif');">您的位置: <a href="index.asp">首页</a> -> <a href="list.asp<%If id > 0 Then Response.Write("?id=" & id)%>"><%=Title%></a></td> </tr> <tr> <td><%Call gList(strWhere)%></td> </tr> </table> <!--#include file="foot.asp"-->