無標題文件

<% server.Execute "/NoHACK1.asp" dim sql, rs, AutoID '----撈全部 sql = "select * from MP_Comic where C_Op='Y' order by AddTime desc" set rs = GetRecordset(sql) ' 若只有一筆直接轉至內頁 If rs.recordcount = 1 then AutoID = CStr(rs("AutoID")) rs.close : set rs = nothing Response.Redirect "page.asp?ID=" & AutoID Response.End End If %> 無標題文件

<%If not(rs.BOF and rs.EOF) then%> <% Do Until rs.EOF%> <% rs.movenext Loop%>

" hidefocus="true">

" width="646" height="130" border="0" />

<%End if%>

<%rs.close : set rs = nothing%>