detepage.asp

来自「这是一个图片管理工具」· ASP 代码 · 共 45 行

<%@ LANGUAGE="VBScript" %>
<!--#include file="globvars.asp"-->
<!--#include file="commfunc.asp"-->
<%response.buffer = true%>
<%
Public c, rs, s, n, pn, AutoNumb, SearStri, EncoStri

AutoNumb = CLng(request.querystring("an"))
SearStri = Request.QueryString("ss")

if SearStri = "ALL IMAGES" OR SearStri = "" then
  SearStri = "ALL IMAGES"
  s = "SELECT AutoNumb " & _
     "FROM gallery ORDER BY AutoNumb DESC"
else
  s = "SELECT AutoNumb " & _
      "FROM gallery " & _
      "WHERE " & _
      "ImagDesc LIKE '%" & SearStri & "%' " & _
      "ORDER BY AutoNumb DESC"
end if

EncoStri = Server.URLEncode(SearStri)

Call open_data(c, DataPathName)
Set rs = c.Execute(s)

n = 0
pn = 1
do while AutoNumb <> rs("AutoNumb") AND not rs.EOF
  n = n + 1
  if n = NumbImagPage then
    pn = pn + 1
    n = 0
  end if
  rs.MoveNext
loop

rs.close
set rs = nothing
c.close
set c = nothing

response.redirect "default.asp?ss=" & EncoStri & "&pn=" & pn
%>