submsear.asp

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

<%@ 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
%>