<%
''过程变量：Find_TemplateTag
Public Function Replace_PublicTag(PageContent)
	If InStr(PageContent,"{$Utitle")>0 Then Call Find_TemplateTags("Utitle",PageContent)
	If InStr(PageContent,"{$Uphoto")>0 Then Call Find_TemplateTags("Uphoto",PageContent)
	If InStr(PageContent,"{$Ustat")>0 Then Call Find_TemplateTags("Ustat",PageContent)
	If InStr(PageContent,"{$Upersonal")>0 Then Call Find_TemplateTags("Upersonal",PageContent)
	If InStr(PageContent,"{$Udiary")>0 Then Call Find_TemplateTags("Udiary",PageContent)
	If InStr(PageContent,"{$Uinfo")>0 Then Call Find_TemplateTags("Uinfo",PageContent)
	If InStr(PageContent,"{$Uconet")>0 Then Call Find_TemplateTags("Uconet",PageContent)
	If InStr(PageContent,"{$Uchart")>0 Then Call Find_TemplateTags("Uchart",PageContent)
	If InStr(PageContent,"{$Ufriend")>0 Then Call Find_TemplateTags("Ufriend",PageContent)
	If InStr(PageContent,"{$Uctrl")>0 Then Call Find_TemplateTags("Uctrl",PageContent)
	If InStr(PageContent,"{$Ujihui")>0 Then Call Find_TemplateTags("Ujihui",PageContent)
	If InStr(PageContent,"{$Uvote")>0 Then Call Find_TemplateTags("Uvote",PageContent)
	Replace_PublicTag=PageContent
	response.Write(Replace_PublicTag)
End Function

''过程变量：Find_TemplateTags
''取出带变量参数的标签
Public Function Find_TemplateTags(KeyStr,PageStr)
		Dim TempStr,PageLen
		Dim CurrentTag,StartTag,EndTag
		Dim ParameterArray,ReplaceStr,ReplaceLen

		CurrentTag=-1
		StartTag=1
		PageLen=Len(PageStr)

		Do While CurrentTag<>0
			CurrentTag=InStr(StartTag,PageStr,"{$"&KeyStr&"(")
			If CurrentTag<>0 Then 
				StartTag=CurrentTag
				EndTag=InStr(StartTag,PageStr,")$}")
				TempStr=Mid(PageStr,StartTag+Len(KeyStr)+3,EndTag-(StartTag+Len(KeyStr)+3))
				ParameterArray=Split(TempStr,",")
				Select Case KeyStr
				Case "Utitle"''页标题
					ReplaceStr=Utitle_show(ParameterArray)
				Case "Uphoto"''个人照片
					ReplaceStr=Uphoto_show(ParameterArray)
				Case "Ustat"''个人状态
					ReplaceStr=Ustat_show(ParameterArray)
				Case "Upersonal"''自我介绍
					ReplaceStr=Upersonal_show(ParameterArray)
				Case "Udiary"''自我介绍
					ReplaceStr=Udiary_show(ParameterArray)
				Case "Uinfo"''用户资料
					ReplaceStr=Uinfo_show(ParameterArray)
				Case "Uconet"''联系方式
					ReplaceStr=Uconet_show(ParameterArray)
				Case "Uchart"''详细资料
					ReplaceStr=Uchart_show(ParameterArray)
				Case "Ufriend"''交友资料
					ReplaceStr=Ufriend_show(ParameterArray)
				Case "Uctrl"''用户操作
					ReplaceStr=Uctrl_show(ParameterArray)
				Case "Ujihui"''网友聚会
					ReplaceStr=Uklatch_show(ParameterArray)
				Case "Uvote"''投票页
					ReplaceStr=Uvote_show(ParameterArray)											
				End Select
				ReplaceLen=Len(ReplaceStr)
				PageStr=Left(PageStr,StartTag-1)&ReplaceStr&Right(PageStr,PageLen-(EndTag+2))
				StartTag=StartTag+ReplaceLen
				PageLen=Len(PageStr)
			End If
		Loop
		Find_TemplateTags=PageStr
	End Function
	

	Private Function Utitle_show(Parameter)
	'过程变量Utitle_show页标题
	'参数一：是否显示网站名称
	'参数二：是否显示网址 
	'参数三：是否显示用户名
		dim TempStr
		if Parameter(1)=1 then
			TempStr=TempStr&""&Homeurl&"-"
		else
			TempStr=TempStr&"-"
		end if
		if Parameter(0)=1 then
			TempStr=TempStr&""&Webname&"-"
		else
			TempStr=TempStr&"-"
		end if
		if Parameter(2)=1 then
			TempStr=TempStr&""&username&"的个人主页"
		else
			TempStr=TempStr&"我的主页"
		end if
	Utitle_show=TempStr
	End Function

	Private Function Uphoto_show(Parameter)
	'过程变量Uphoto_show个人照片
	'参数一：1为虚拟形象0为上传头像
	'参数二：宽度数
	'参数三：高度数
	'参数四：边框
	dim TempStr,Purl,SplitOpenFace
		SplitOpenFace=split(OpenFace,"|")''全局头像变量控制
		if Uphototitle<>null then''判断用户照片是否为空
			TempStr=TempStr&"<IFrame src=visual_show2.asp?username="&username&"&boardid=0&type=1&bgcolor=tablebody1 width="&Parameter(1)&" height="&Parameter(2)&" marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=NO allowtransparency=true></iframe>"
		else
			Purl=""&Uimages&""
			TempStr=TempStr&"<img src="&Purl&""
			TempStr=TempStr&" width="&SplitOpenFace(3)&""
			TempStr=TempStr&" height="&SplitOpenFace(4)&""
		end if
			TempStr=TempStr&" border="&Parameter(3)&">"
	Uphoto_show=TempStr	
	End Function
	
	Private Function Ustat_show(Parameter)
	'过程变量Ustat_show个人状态
	'参数一：是否显示当前位置，1为是，0为否
	'参数二：是否显示在线时间，1为是，0为否
	dim TempStr,Lockname
		TempStr=TempStr&"<table border=0"" cellpadding=""0"" cellspacing=""0"" align=""right"" width=""95%"">"
		
		TempStr=TempStr&"<tr>"
		TempStr=TempStr&"<td align=""left"">最后登录时间："&Ulastlogin&"</td>"
		TempStr=TempStr&"</tr>"
		if Parameter(0)=1 then
		TempStr=TempStr&"<tr>"
		TempStr=TempStr&"<td align=""left"">"&Ostat&"</td>"
		TempStr=TempStr&"</tr>"
		end if
		if Ulock=1 then
		Lockname="锁定"
		elseif Ulock=2 then
		Lockname="屏蔽"
		else
		Lockname="正常"
		end if
		if Parameter(1)=1 then
		TempStr=TempStr&"<tr>"
		TempStr=TempStr&"<td align=""left"">"&Lockname&OnlineTime&"</td>"
		TempStr=TempStr&"</tr>"
		end if
		TempStr=TempStr&"</table>"
		Ustat_show=TempStr	
	End Function
	
	Private Function Upersonal_show(Parameter)
	'过程变量Upersonal_show自我介绍
	'参数一：是否Html解析
	'参数二：显示字数长度
	dim TempStr
	TempStr=TempStr&"<table border=0"" cellpadding=""0"" cellspacing=""0"" align=""right"" width=""98%"">"
	TempStr=TempStr&"<tr><td align=""left"">"
	if Parameter(0)=1 then
	TempStr=TempStr&""&Htmlencode(left(personal,Parameter(1)))&""
	end if
	TempStr=TempStr&"</td></tr></table>"
	Upersonal_show=TempStr
	End Function
	
	Private Function Udiary_show(Parameter)
	'过程变量UDiary_show我的日记
	'参数一：栏目id，0=全部
	'参数二：类型，0=最新，1=推荐，2=佳作，3=热门
	'参数三：文章数
	'参数四：标题长度字节数
	'参数五：是否显示栏目名称，0=否，1=是
	'参数六：是否显示发布日期，0=否，1=是
	'参数七：每行列数
	'参数八：是否显示新文章标记，0=否，1=是
	'参数九：是否新开窗口，0=否，1=是
	'参数十：全站或者用户开关0为全站，1为用户
	dim TempStr,Sqld,Dtypeid,DTypename,Di
	if Parameter(9)=0 then
	Sqld="select top "&Parameter(2)&" Did,Title,Typeid,Datetime,Addtime from Ms_diary where Ispublic=1"
	else
	Sqld="select top "&Parameter(2)&" Did,Title,Typeid,Datetime,Addtime from Ms_diary where Ispublic=1 and Username='"&htmlencode(username)&"'"
	end if
		if Parameter(0)<>0 then
			Sqld=Sqld&" and Typeid="&Parameter(0)&""
		end if
		if Parameter(1)=1 then
			Sqld=Sqld&" and Istop=1"
		elseif Parameter(1)=2 then
			Sqld=Sqld&" and Isbest=1"
		elseif Parameter(1)=3 then
			Sqld=Sqld&" and Ishot=1"
		end if
			TempStr="<table border=0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""98%"">"
	Set Rs=Conn.Execute(Sqld)
	If not (Rs.Eof and Rs.Bof) Then
		Di=0
		if Parameter(6)>1 then''分列处理
			TempStr=TempStr&"<tr>"
		end if
	do while not rs.eof
	Di=Di+1
			Dtypeid=rs("Typeid")
			if Parameter(6)>1 then''分列处理
			TempStr=TempStr&"<td algin=left>"
			else
			TempStr=TempStr&"<tr><td algin=left>"
			end if
	if Parameter(4)=1 then''显示栏目名称
		Select Case Dtypeid
			Case 1
				DTypename="<font color=blue>[以文会友]</font>"
			Case 2
				DTypename="<font color=blue>[生活点滴]</font>"
			Case 3
				DTypename="<font color=blue>[情感话题]</font>"
			Case 4
				DTypename="<font color=blue>[人生感悟]</font>"
			Case 5
				DTypename="<font color=blue>[胡思乱想]</font>"
			Case 6
				DTypename="<font color=blue>[此刻心情]</font>"
		End Select
	end if
			TempStr=TempStr&""&DTypename&""
		if Parameter(8)=1 then''新窗口打开
			TempStr=TempStr&"<a href=diaryview.asp?Did="&rs("Did")&" target=_blank>"&left(rs("Title"),Parameter(3))&"</a>"
		else
			TempStr=TempStr&"<a href=diaryview.asp?Did="&rs("Did")&">"&left(rs("Title"),Parameter(3))&"</a>"
		end if
		if Parameter(5)=1 then''显示日记日期
			TempStr=TempStr&"<font color=#999999>["&rs("Datetime")&"]</font>"
		end if
		if Parameter(7)=1 and datediff("d",rs("Addtime"),date())<1 then''显示新的标记
			TempStr=TempStr&"&nbsp;<img src=images/new.gif>"
		end if
		if Parameter(6)<=1 then''分列处理
			TempStr=TempStr&"</td></tr>"
			else
			TempStr=TempStr&"</td>"
		end if
		if Parameter(6)>1 then''分列处理
			if Di>0 and (Di mod Parameter(6))=0 then
			TempStr=TempStr&"</tr><tr>"
			end if
		end if
		rs.movenext
	loop
		if Parameter(6)>1 then
			TempStr=TempStr&"</tr>"
		end if
else
			TempStr=TempStr&"<tr><td algin=center>无记录</td></tr>"
end if
	rs.close
	TempStr=TempStr&"</table>"
	UDiary_show=TempStr
	End Function
	
	Private Function Uinfo_show(Parameter)
	'过程变量Uinfo_show用户资料
	dim TempStr,Theight
	Theight=Parameter(0)
	TempStr="<table border=0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""98%"">"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[用 户 名]：<font color=#0000FF>"&htmlencode(username)&"</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[会员等级]："&Uclass&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[我的爱人]："&Userwife&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[性　　别]："&iif(Usex,"酷哥","靓女")&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[出　　生]："&iimg(Ubirth,"未填",Ubirth)&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[星　　座]："&iimg(Ubirth,"未填",astro(Ubirth))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[身　　高]："&iimg(Pheight,"未填",Pheight)&"&nbsp;CM</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[体　　重]："&iimg(Pweight,"未填",Pweight)&"&nbsp;Kg</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[体　　型]："&iimg(figure,"未填",figure)&"</td></tr>"	
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[账户财产]：<img src=Skins/Default/yuanbao.gif width=12 height=13 align=absmiddle>&nbsp;"&Uwealth&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[会员属性]："&iifV(Uvip)&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[经 验 值]：<img src=Skins/Default/jingyan.gif width=11 height=10 align=absmiddle>&nbsp;"&Uep&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[魅 力 值]：<img src=Skins/Default/meili.gif width=11 height=10 align=absmiddle>&nbsp;"&Ucp&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[威 望 值]：<img src=Skins/Default/weiwang.gif width=11 height=10 align=absmiddle>&nbsp;"&Upower&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[相册总数]："&Upics&"&nbsp;张</td></tr>"
	TempStr=TempStr&"<tr><td height="&Theight&" align=left>[日记总数]："&Udiarynum&"&nbsp;篇</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[人气指数]：<font color=#FF00FF>"&Uhits&"</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>[最近登录]："
			if datediff("h",Ulastlogin,Now())>24 then
				TempStr=TempStr&"<font color=#FF0000>超过24H未登录"
			elseif 12<datediff("h",Ulastlogin,Now())<24 then
				TempStr=TempStr&"<font color=#FF0000>今天登录过"
			elseif datediff("h",Ulastlogin,Now())<12 then
				TempStr=TempStr&"<font color=#FF0000>12H前登录过"
			end if
				TempStr=TempStr&"</font></td></tr>"
	TempStr=TempStr&"</table>"
	Uinfo_show=TempStr
	End Function
	
	Private Function Uconet_show(Parameter)
	'过程变量Uconet_show联系方式
	dim TempStr,Theight
	Theight=Parameter(0)
		TempStr="<table border=0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""98%"">"
	if master or supermaster or Standmaster or vipuser then
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>邮件："&iimg(Umail,"未填",htmlencode(Umail))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>Oicq："&iimg(Oicq,"未填",htmlencode(Oicq))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>ICQ："&iimg(Icq,"未填",htmlencode(Icq))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>MSN："&iimg(Msn,"未填",htmlencode(Msn))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>AIM："&iimg(Aim,"未填",htmlencode(Aim))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>Yahoo："&iimg(Yahoo,"未填",htmlencode(Yahoo))&"</td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>Uc："&iimg(Uc,"未填",htmlencode(Uc))&"</td></tr>"
	else
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>邮件：<font color=red>VIP会员可查看</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>Oicq：<font color=red>VIP会员可查看</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>I CQ：<font color=red>VIP会员可查看</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>M SN：<font color=red>VIP会员可查看</font></td></tr>"
		TempStr=TempStr&"<tr><td height="&Theight&" align=left>A IM：<font color=red>VIP会员可查看</font></td></tr>"
	end if
	TempStr=TempStr&"</table>"
	Uconet_show=TempStr
	End Function
	
	Private Function Uchart_show(Parameter)
	'过程变量Uchart_show详细资料
	dim TempStr,Theight
	Theight=Parameter(0)
	TempStr="<table width=100% align=center cellpadding=1 cellspacing=1><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>真实姓名：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(realname,"未填",htmlencode(realname))&"</td>"
	TempStr=TempStr&"<td width=18% height="&Theight&" align=right>信　　仰：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(Ubelief,"未填",htmlencode(Ubelief))&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>血　　型：</td>"
	TempStr=TempStr&"<td width=32% >"&iimg(Ublood,"未填",htmlencode(Ublood))&"</td>"
    TempStr=TempStr&"<td width=18% align=right height="&Theight&">职　　业：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(Uoccupation,"未填",htmlencode(Uoccupation))&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>生　　肖：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(shengxiao,"未填",htmlencode(shengxiao))&"</td>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>职　　称：</td>"
	TempStr=TempStr&"<td width=32% >"&iimg(Udutytype,"未填",htmlencode(Udutytype))&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>民　　族：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(UFolk,"未填",htmlencode(UFolk))&"</td>"
    TempStr=TempStr&"<td width=18% align=right height="&Theight&">国　　家：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(country,"未填",htmlencode(country))&"</td>"
    TempStr=TempStr&"</tr><tr>" 
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>所在省份：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(province,"未填",htmlencode(province))&"</td>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>股票市值：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&Stockmoney&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>所在城市：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(city,"未填",htmlencode(city))&"</td>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>银行存款：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&bankmoney&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>最高学历：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(Ueducation,"未填",htmlencode(Ueducation))&"</td>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>上站次数：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&">"&Loginnum&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td width=18% height="&Theight&" align=right>通信地址：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&" colspan=3>"&iimg(Uaddress,"未填",htmlencode(Uaddress))&"</td>"
    TempStr=TempStr&"</tr><tr>"
    TempStr=TempStr&"<td  width=18% height="&Theight&" align=right>我的性格：</td>"
	TempStr=TempStr&"<td width=32% height="&Theight&" colspan=3>"&iimg(character,"未填",htmlencode(character))&"</td>"
	TempStr=TempStr&"</tr></table>"
	Uchart_show=TempStr
	End Function
	
	Private Function Ufriend_show(Parameter)
	'过程变量Ufriend_show交友资料
	dim TempStr,Theight
	Theight=Parameter(0)
	TempStr="<table width=100% align=center cellpadding=1 cellspacing=1>"
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td width=18% align=right height="&Theight&">健康程度：</td>"
    TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(Uhealth,"未填",htmlencode(Uhealth))&"</td>"
    TempStr=TempStr&"<td width=18% align=right height="&Theight&">身　　高：</td>"
    TempStr=TempStr&"<td width=32% height="&Theight&">"&iimg(Pheight,"-",htmlencode(Pheight))&"CM</td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td align=right height="&Theight&">体　　重：</td>"
    TempStr=TempStr&"<td>"&iimg(Uweight,"未填",htmlencode(Uweight))&"公斤</td>"
    TempStr=TempStr&"<td align=right height="&Theight&">体　　型：</td>"
    TempStr=TempStr&"<td height="&Theight&">"&iimg(Ufigure,"未填",htmlencode(Ufigure))&"</td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td align=right height="&Theight&">相貌自评：</td>"
    TempStr=TempStr&"<td >"&iimg(Umylook,"未填",htmlencode(Umylook))&"分</td>"
    TempStr=TempStr&"<td align=right height="&Theight&">是否吸烟：</td>"
    TempStr=TempStr&"<td >"&iimg(Ufug,"未填",htmlencode(Ufug))&"</td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td align=right height="&Theight&">收入情况：</td>"
    TempStr=TempStr&"<td height="&Theight&">"&iimg(Uincome,"未填",htmlencode(Uincome))&"元/月</td>"
    TempStr=TempStr&"<td align=right height="&Theight&">是否喝酒：</td>"
    TempStr=TempStr&"<td height="&Theight&">"&iimg(Ualcohol,"未填",htmlencode(Ualcohol))&"</td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"<tr>" 
    TempStr=TempStr&"<td align=right height="&Theight&">住房状况：</td>"
    TempStr=TempStr&"<td height="&Theight&">"&iimg(Uhouses,"未填",htmlencode(Uhouses))&"</td>"
    TempStr=TempStr&"<td align=right height="&Theight&">掌握语言：</td>"
    TempStr=TempStr&"<td height="&Theight&">"&iimg(Ulanguage,"未填",htmlencode(Ulanguage))&"</td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"</table>"
	Ufriend_show=TempStr
	End Function
	
	Private Function Uctrl_show(Parameter)
	'过程变量Uctrl_show用户控制
	dim TempStr,Theight
	Theight=Parameter(0)
	TempStr="<table width=90% border=0 cellspacing=0 cellpadding=0>"
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td height="&Theight&"><a href=mylove.asp?action=marqa&Typeid=2&touser="&htmlencode(username)&" target=_blank><img src=Skins/template/001/qa.gif width=73 height=27 border=0></a></td>"
    TempStr=TempStr&"<td><a href=userbook.asp?action=add&ClassID=2&Touser="&htmlencode(username)&" target=_blank><img src=Skins/template/001/sh.gif width=89 height=26 border=0></a></td>"
    TempStr=TempStr&"<td><a href=friendlist.asp?action=addF&myFriend="&HTMLEncode(username)&" target=_blank><img src=Skins/template/001/jy.gif width=92 height=27 border=0></a></td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"<tr>" 
    TempStr=TempStr&"<td height="&Theight&"><a href=mylove.asp?action=maradd&Typeid=1&touser="&htmlencode(username)&" target=_blank><img src=Skins/template/001/qh.gif width=72 height=27 border=0></a></td>"
    TempStr=TempStr&"<td><a href=""javascript:openScript('messanger.asp?action=new&touser="&htmlencode(username)&"',500,400)""><img src=Skins/template/001/sh1.gif width=89 height=26 border=0></a></td>"
    TempStr=TempStr&"<td><img src=Skins/template/001/sh2.gif width=89 height=26></td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"</table>"
	Uctrl_show=TempStr
	End Function
	
	Private Function Uklatch_show(Parameter)
	'过程变量Uklatch_show网友聚会
	'参数一：栏目id，0=全部
	'参数二：类型，0=最新，1=热门
	'参数三：文章数
	'参数四：标题长度字节数
	'参数五：是否显示栏目名称，0=否，1=是
	'参数六：是否显示城市，0=否，1=是
	'参数七：每行列数
	'参数八：是否显示新文章标记，0=否，1=是
	'参数九：是否新开窗口，0=否，1=是
	'参数十：显示全站与用户开关0为全站，1为用户
	dim TempStr,Sqld,Ktypeid,KTypename,Ki
	if Parameter(9)=0 then
	Sqld="select top "&Parameter(2)&" Kid,Title,Typeid,Addtime,City from Ms_klatch where Checked=1"
	else
	Sqld="select top "&Parameter(2)&" Kid,Title,Typeid,Addtime,City from Ms_klatch where Checked=1 and Username='"&htmlencode(username)&"'"
	end if
		if Parameter(0)<>0 then
			Sqld=Sqld&" and Typeid="&Parameter(0)&""
		end if
		if Parameter(1)=0 then
		Sqld=Sqld&" order by Kid desc"
		elseif Parameter(1)=1 then
		Sqld=Sqld&" order by hits desc"
		end if
			TempStr="<table border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" width=""98%"">"
	Set Rs=Conn.Execute(Sqld)
	If not (Rs.Eof and Rs.Bof) Then
		Ki=0
		if Parameter(6)>1 then''分列处理
			TempStr=TempStr&"<tr>"
		end if
	do while not rs.eof
	Ki=Ki+1
			Ktypeid=rs("Typeid")
			if Parameter(6)>1 then''分列处理
			TempStr=TempStr&"<td algin=left>"
			else
			TempStr=TempStr&"<tr><td algin=left>"
			end if
	if Parameter(4)=1 then''显示栏目名称
		Select Case Ktypeid
			Case 1
				KTypename="<font color=blue>[周末闲聊]</font>"
			Case 2
				KTypename="<font color=blue>[酒吧畅饮]</font>"
			Case 3
				KTypename="<font color=blue>[郊外远足]</font>"
			Case 4
				KTypename="<font color=blue>[游戏切磋]</font>"
			Case 5
				KTypename="<font color=blue>[逛街看戏]</font>"
			Case 6
				KTypename="<font color=blue>[白领聚会]</font>"
			Case 7
				KTypename="<font color=blue>[网站聚会]</font>"
		End Select
	end if
			TempStr=TempStr&""&KTypename&""
		if Parameter(8)=1 then''新窗口打开
			TempStr=TempStr&"<a href=klview.asp?id="&rs("kid")&" target=_blank>"&left(rs("Title"),Parameter(3))&"</a>"
		else
			TempStr=TempStr&"<a href=klview.asp?id="&rs("kid")&">"&left(rs("Title"),Parameter(3))&"</a>"
		end if
		if Parameter(5)=1 then''显示城市
			TempStr=TempStr&"<font color=#999999>["&rs("City")&"]</font>"
		end if
		if Parameter(7)=1 and datediff("d",rs("Addtime"),date())<1 then''显示新的标记
			TempStr=TempStr&"&nbsp;<img src=images/new.gif>"
		end if
		if Parameter(6)<=1 then''分列处理
			TempStr=TempStr&"</td></tr>"
			else
			TempStr=TempStr&"</td>"
		end if
		if Parameter(6)>1 then''分列处理
			if Ki>0 and (Ki mod Parameter(6))=0 then
			TempStr=TempStr&"</tr><tr>"
			end if
		end if
		rs.movenext
	loop
		if Parameter(6)>1 then
			TempStr=TempStr&"</tr>"
		end if
else
			TempStr=TempStr&"<tr><td algin=center>无记录</td></tr>"
end if
	rs.close
	TempStr=TempStr&"</table>"
	Uklatch_show=TempStr
	End Function
	
	Private Function Uvote_show(Parameter)
	'过程变量Uvote_show投票
	'参数一：是否可投票
	dim TempStr,Votename,Votenum,VoteID,rsv,Voters,Voteallcount,Votepes
	dim Votewidth
	set rsv=server.createobject("adodb.recordset")
	sql="select Votename,Votenum,VoteID,Voters from Ms_vote where TypeID=0 and LockVote=0 and VoteUser='"&htmlencode(username)&"'"
	rsv.Open sql,conn,1,1
	if not (rsv.eof and rsv.bof) then
	Votename=rsv("Votename")
	Votenum=rsv("Votenum")
	VoteID=rsv("VoteID")
	Voters=rsv("Voters")
	else
	Votename=""
	end if
	rsv.close
	set rsv=nothing
	if Votename<>"" then
	Votename=split(Votename,"|")
	Votenum=split(Votenum,"|")
	TempStr="<table width=203 border=0 align=center cellpadding=0 cellspacing=0>"
	TempStr=TempStr&"<form name=markform method=post action=uservote.asp?action=vote>"
    TempStr=TempStr&"<tbody>"
    TempStr=TempStr&"<tr align=center>"
    TempStr=TempStr&"<td height=24 colspan=3><font color=#003366>档案已有 <font color=red>"&Voters&"</font> 人投票</font></td>"
    TempStr=TempStr&"</tr>"
	for i=0 to ubound(Votenum)''循环读出计算统计总
	Voteallcount=Voteallcount+cint(Votenum(i))''统计全部投票
	next
	for i=0 to ubound(Votenum)''循环读出
	if Voteallcount<>0 then''总投票不为0
	Votewidth=Round(cint(Votenum(i))/cint(Voteallcount)*100,2)''百分比
	Votepes=Votewidth&"%"
	else
	Votewidth=0
	Votepes="0%"
	end if
	if Votewidth>=70 then''计算图片宽度
	Votewidth=70
	end if
    TempStr=TempStr&"<tr align=absmiddle>" 
    TempStr=TempStr&"<td width=80><input type=checkbox value="&i&" name=markvalue> "&Votename(i)&"</td>"
    TempStr=TempStr&"<td width=80><img src=Skins/Default/bar/bar"&(i+1)&".gif width="&Votewidth&" height=12 align=absmiddle></td>"
    TempStr=TempStr&"<td width=40>"&Votepes&"</td>"
    TempStr=TempStr&"</tr>"
	next
    TempStr=TempStr&"<tr>"
    TempStr=TempStr&"<td align=middle colspan=3><input type=hidden value="&VoteID&" name=VoteID> <input type=image src=Skins/Default/vote.gif name=Submit></td>"
    TempStr=TempStr&"</tr>"
    TempStr=TempStr&"</form>"
    TempStr=TempStr&"</table>"
	else
	TempStr="用户未激活投票"
	end if
	Uvote_show=TempStr
	End Function
%>