search.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in retrieving details of a member based on the keyword provided
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Search()
	
	dim sfield,keyword,perpage,start,torecs,i,smumpgbar,n,row,smumrs1,tkeyword,headerdataa,displaystring,istart,id,field
	
	action = request("action")
	
	smumadminheader("Search Results")

	if not Application("smumdebugmode") then on error resume next

	istart = request("start")
	id = request("id")
	sfield = Request("sfield")
	field = Request("field")
	order = Request("order")
	
	if sfield = "" then sfield = Request.querystring("sfield")

	keyword = request("keyword")
	tkeyword = keyword
	
	keyword = replace(keyword, "'", "''")
	keyword = replace(keyword, "[", "")
	keyword = replace(keyword, "]", "")
	
	if keyword = "" then 
		keyword = replace(keyword, "'", "''")
		keyword = replace(keyword, "[", "")
		keyword = replace(keyword, "]", "")
	end if

	if keyword = "'" then keyword = ""

	if keyword = "" then
	
		smumFormOpenTable
		smumFormHeader "Member Search Results"
		smumFormResponse "Please enter one or more keywords to search."
		smumFormCloseTable

	else		

		headerdataa = getheaderformat(id,istart)
		displaystring = getdisplayformat(1)
		smumquery = getqueryformat()

		dim order
			
		if field = "" then field = "members_date"
		if order = "" then order = "ASC"

		smumquery = smumquery&" where (members_firstname like '%"&keyword&"%' or members_lastname like '%"&keyword&"%' or members_username like '%"&keyword&"%' or members_email like '%"&keyword&"%' or members_address like '%"&keyword&"%' or members_city like '%"&keyword&"%' or members_state like '%"&keyword&"%' or members_country like '%"&keyword&"%' or members_zip like '%"&keyword&"%' or members_phone like '%"&keyword&"%' or members_notes like '%"&keyword&"%' or members_field1 like '%"&keyword&"%' or members_field2 like '%"&keyword&"%' or members_field3 like '%"&keyword&"%' or members_field4 like '%"&keyword&"%' or members_field5 like '%"&keyword&"%' or members_field6 like '%"&keyword&"%' or members_field7 like '%"&keyword&"%' or members_field8 like '%"&keyword&"%' or members_field9 like '%"&keyword&"%' or members_field10 like '%"&keyword&"%') and members_accesslevel < "&session("accesslevel") &" order by " &field&" "&order

		smPaging smumdataconn,smumquery,headerdataa,displaystring,Application("smumrecordsperpage"),"search&keyword="&keyword&"&sfield="&sfield,"Sorry, no results were found for <b>"&tkeyword&"</b>","Results for "&keyword,iStart

	end if

End Sub%>