advsearch.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module searches for members based on keyword and several other options
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Advsearch()
	
	dim accesslevel,fieldsdata,i,fields,todo,group,accesslevels,number,groupquery,levelquery
	dim sfield,keyword,perpage,start,torecs,smumpgbar,n,row,smumrs1,tkeyword,headerdataa,displaystring,istart,id,field

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

	todo = request("todo")
	istart = request("start")
	id = request("id")
	sfield = Request("sfield")
	field = Request("field")
	order = Request("order")
	keyword = request("keyword")
	accesslevel = request("members_accesslevel")
	group = request("group")

	if todo = "" then
		
		smumadminheader("Advanced Member Search")
	
		for i = 1 to 10
			fields = fields & "<option value=field"&i&">"&smumgetfieldname(i)&"</option>"
		next
	
		accesslevels = replace(getaccesslevel(session("accesslevel")),"<select name=members_accesslevel>","<select name=members_accesslevel><option value=0>All Levels</option>")
	
		fieldsdata = "<select name=sfield><option value=all>All fields</option><option value=members_firstname>First Name</option><option value=members_lastname>Last Name</option><option value=members_username>UserName</option><option value=members_password>Password</option><option value=members_email>Email</option><option value=members_address>Address</option><option value=members_city>City</option><option value=members_state>State</option><option value=members_country>Country</option><option value=members_zip>Zip</option><option value=members_phone>phone</option><option value=members_notes>Notes / Remarks</option>"&fields&"</select>"
	
		smumFormAction "<form action="""&smumadminpage&"?action=advsearch&todo=advsearch"" method=post>"
		smumFormOpenTable
		smumFormHeader "Advanced Search"
		smumFormFields "Search for","<input class=fieldbox type=text maxlength=255 size=30 name=keyword>"
		smumFormFields "in",fieldsdata
		smumFormFields "Access Level",accesslevels
		smumFormFields "Groups",replace(getgroupssingle(0),"<select name=group>","<select name=group><option value=0>All Groups</option>")
		smumFormButtons "<input class=fieldbox type=submit value=""Search"" name=submit>"
		smumFormCloseTable
		smumFormClose		
	
	else
	
		smumadminheader("Search Results")

		tkeyword = keyword
	
		keyword = replace(keyword, "'", "''")
		keyword = replace(keyword, "[", "")
		keyword = replace(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)

			
			dim listingar
	
			listingar = split(Application("smumlistingfields"),",")
			smumquery = "select members_id,"

			for i = 0 to ubound(listingar)
				
				if i <> ubound(listingar) then 
					smumquery = smumquery & listingar(i)&" , "
				else
					smumquery = smumquery & listingar(i)
				end if

			next
			
			if group <> 0 then
				smumquery = smumquery&" from smum_memberstbl,smum_usergroupstbl"		
			else
				smumquery = smumquery&" from smum_memberstbl"		
			end if
			
			if group <> 0 then groupquery = " and (usergroups_groupid = "&group&" and usergroups_userid = members_id) "
			if accesslevel <> 0 then levelquery = " and members_accesslevel = "&accesslevel
			
			dim order
			
			if field = "" then field = "members_date"
			if order = "" then order = "ASC"
			
			if sfield = "all" then
				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&"%') "&groupquery&" "&levelquery&" and members_accesslevel < "&session("accesslevel") &" order by " &field&" "&order
			else
				smumquery = smumquery&" where ("&sfield&" like '%"&keyword&"%') "&groupquery&" "&levelquery&" and members_accesslevel < "&session("accesslevel") &" order by " &field&" "&order
			end if

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

		end if
		
	end if	

End Sub%>