submsear.asp

这是一个图片管理工具

<%@ LANGUAGE="VBScript" %>
<%response.buffer = true%>
<%
Dim s

s = request.form("SearText")
if s = "" then
  s = "ALL IMAGES"
end if
s = Server.URLEncode(s)
response.redirect "default.asp?ss=" & s
%>