config.asp

2Fly通讯录v1.1,一个不错的系统

<%
dim MessageWebName
MessageWebName="2Fly通讯录"  '系统名称
MessageWebURL="http://www.2fly.cn"  '系统网址
ValidateLock="No" '是否需要通过登陆浏览，即是否公开浏览，是="Yes" 否="No"
indexwebpage="Default.htm"  '首页文件地址或网址
nnnn=100   '每页显示数量
%>


<!--以下内容请慎重修改，极易导致出错-->
<!--#include file="check_string.asp" -->
<!--#include file="check_path.asp" -->
<%
if ValidateLock="Yes" then
 if Session("adminopen")<>True xor Session("open")<>True then
  Response.Redirect "login2fly.asp"
 end if
end if

	px=trim(request("px"))   '排序
	tj=trim(request("tj"))  '条件
	key2=trim(request("key2"))

	if tj="" then   tj=0   end if   '条件
	select case tj
	 case 11 tj2="class2fly='"& key2&"'"  
	 
	 case 21 tj2="Name2fly Like '%"& key2 &"%'"   '姓名搜索
	 				sousuoname="搜索姓名『"&key2&"』的结果如下"
	 case 22 tj2="Email2fly Like '%"& key2 &"%'"   'Email搜索
	 				sousuoname="搜索Email地址『"&key2&"』的相关结果如下"
	 case 26 tj2="No1Tel2fly Like '%"& key2 &"%' or MobileTelephone2fly Like '%"& key2 &"%' or P_Telephone2fly Like '%"& key2 &"%' or HomeTelephone2fly Like '%"& key2 &"%' or WorkTelephone2fly Like '%"& key2 &"%'"   '电话搜索
	 				sousuoname="搜索电话号码『"&key2&"』的相关结果如下"
	 case 23 tj2="QQmsnUC2fly Like '%"& key2 &"%'"   'QQ搜索
	 				sousuoname="搜索QQ/Msn/UC『"&key2&"』的相关结果如下"
	 case 24 tj2="Whereabouts2fly Like '%"& key2 &"%'"   '所在地搜索
	 				sousuoname="搜索所在地『"&key2&"』的相关结果如下"
	 case 25 tj2="NativePlace2fly Like '%"& key2 &"%'"   '籍贯搜索
	 				sousuoname="搜索籍贯『"&key2&"』的相关结果如下"
	 case 27 tj2="idio_weburl2fly Like '%"& key2 &"%'"   '网址搜索
	 				sousuoname="搜索个人网址『"&key2&"』的相关结果如下"
	 case else tj2="id"  
	end select


 ' px=Trim(Request.QueryString("px"))
	select case px '排序
	 case "top_11"		px2="class.class2fly, messagebook.Sex2fly, messagebook.Name2fly"  
	 case "Sex2fly"		px2="messagebook.Sex2fly,class.class2fly,messagebook.Name2fly"  
	 case "class2fly"	px2="class.class2fly,messagebook.Name2fly, messagebook.Sex2fly" 
	 case "Name2fly"	px2="messagebook.Name2fly,class.class2fly, messagebook.Sex2fly"  
	 case "top41"		px2="top41 desc , musicid desc"
	 case else			px2="messagebook.Name2fly"
	end select
%>