show.asp

网趣购物系统加强升级版 ○ 完美整合BBS论坛程序

	
	If IsArray(Arr_Rs) Then
		Lou = (Page-1)*10
		For i = 0 to UBound(Arr_Rs,2)
			UserName=Arr_Rs(11,i)
			BBSID=Arr_Rs(0,i)
			YxBBs_ubb.UbbString=Arr_Rs(8,i)
			Temp=Replace(Template,"{信息}",TempLink(0))
			Temp=Replace(Temp,"{短信}",TempLink(1))
			If YxBBs.Fun.GetSqlStr(Arr_Rs(13,i))<>"" Then
				Temp=Replace(Temp,"{QQ}",Replace(TempLink(2),"{QQ}",YxBBs.Fun.GetSqlStr(Arr_Rs(13,i))))
			Else
				Temp=Replace(Temp,"{QQ}","")
			End If
			
			If YxBBs.Fun.GetSqlStr(Arr_Rs(21,i))<>"" Then
				Temp=Replace(Temp,"{邮箱}",Replace(TempLink(3),"{邮箱}",YxBBs.Fun.GetSqlStr(Arr_Rs(21,i))))
			Else
				Temp=Replace(Temp,"{邮箱}","")
			End If
			If YxBBs.Fun.GetSqlStr(Arr_Rs(22,i))<>"" Then
				Temp=Replace(Temp,"{主页}",Replace(TempLink(4),"{主页}",YxBBs.Fun.GetSqlStr(Arr_Rs(22,i))))
			Else
				Temp=Replace(Temp,"{主页}","")
			End If
			Temp=Replace(Temp,"{编辑}",TempLink(5))
			Temp=Replace(Temp,"{引用}",TempLink(6))
			If Arr_Rs(1,i)=ID Then
				Temp=Replace(Temp,"{删除}","")
				Temp=Replace(Temp,"{楼号}","楼 主")
				ShowCaption=TopicCaption
				ShowMood=TopicMood()
			Else
				ShowCaption="":ShowMood=""
				Temp=Replace(Temp,"{楼号}","第 <font color=#FF0000>"&Lou+i&"</font> 楼")
				Temp=Replace(Temp,"{删除}",TempLink(7))
			End If
			Temp=Replace(Temp,"{数据表ID}",YxBBs.TB)
			Temp=Replace(Temp,"{版块ID}",YxBBs.BoardID)
			Temp=Replace(Temp,"{主题ID}",ID)
			Temp=Replace(Temp,"{页次}",page)
			Temp=Replace(Temp,"{帖子ID}",Arr_Rs(0,i))
			Temp=Replace(Temp,"{用户名称}",Arr_Rs(11,i))
			Temp=Replace(Temp,"{发帖时间}",Arr_Rs(6,i))
			IF YxBBs.ClassID>2 then
				Temp=Replace(Temp,"{用户IP}",YxBBs.Fun.GetIp(Arr_Rs(9,i),2))
			Else
				Temp=Replace(Temp,"{用户IP}",YxBBs.Fun.GetSqlStr(Arr_Rs(9,i)))
			End If
			Temp=Replace(Temp,"{积分数}",YxBBs.Fun.GetSqlStr(Arr_Rs(24,i)))
			Temp=Replace(Temp,"{金钱数}",YxBBs.Fun.GetSqlStr(Arr_Rs(25,i)))
			Temp=Replace(Temp,"{等级图片}","<img src='"&Arr_Rs(19,i)&"' alt="&Arr_Rs(18,i)&" Align=center>")
			Temp=Replace(Temp,"{等级名称}","<b>"&Arr_Rs(18,i)&"</b>")
			If Arr_Rs(33,i)<>"" Then
				Temp=Replace(Temp,"{头衔}","头衔："&YxBBs.Fun.GetSqlStr(Arr_Rs(33,i))&"<br>")
			Else
				Temp=Replace(Temp,"{头衔}","头衔：未定义<br>")
			End If
			If Arr_Rs(34,i)<>"" Then
				Temp=Replace(Temp,"{帮派}","帮派："&YxBBs.Fun.GetSqlStr(Arr_Rs(34,i))&"<br>")
			Else
				Temp=Replace(Temp,"{帮派}","帮派：未定义<br>")
			End If
			If IsOnline(Arr_Rs(11,i)) Then
				If Arr_Rs(23,i) Then
					Temp=Replace(Temp,"{性别}","<img src='Images/11.gif' alt='性别：男<br>状态：在线<br>积时：" &YxBBs.Fun.DateToSting(Arr_Rs(35,i))&"' align='absmiddle'>")
				Else
					Temp=Replace(Temp,"{性别}","<img src='Images/01.gif' alt='性别：女<br>状态：在线<br>积时：" &YxBBs.Fun.DateToSting(Arr_Rs(35,i))&"' align='absmiddle'>")
				End If
			Else
				If Arr_Rs(23,i) Then
					Temp=Replace(Temp,"{性别}","<img src='Images/10.gif' alt='性别：男<br>状态：离线<br>积时：" &YxBBs.Fun.DateToSting(Arr_Rs(35,i))&"' align='absmiddle'>")
				Else
					Temp=Replace(Temp,"{性别}","<img src='Images/00.gif' alt='性别：女<br>状态：离线<br>积时：" &YxBBs.Fun.DateToSting(Arr_Rs(35,i))&"' align='absmiddle'>")
				End If
			End If
			Temp=Replace(Temp,"{帖数}",Arr_Rs(20,i))
			Temp=Replace(Temp,"{注册时间}",formatdatetime(Arr_Rs(27,i),2))
			IF Arr_Rs(12,i) then
				Temp=Replace(Temp,"{用户头像}","<img src='http://qqshow-user.tencent.com/"&Arr_Rs(13,i)&"/10/'>")
			else
				Temp=Replace(Temp,"{用户头像}","<img border='0' src='"&Arr_Rs(14,i)&"' width="&Arr_Rs(15,i)&" height="&Arr_Rs(16,i)&">")
			End If
			Sign=Arr_Rs(26,i)
			IF Arr_Rs(28,i) then
				Temp=Replace(Temp,"{帖子内容}","<Hr Size=1><Font Color=red>该用户帖子已被管理员屏蔽，请和管理员联系</Font><Hr Size=1>")
				Temp=Replace(Temp,"{签名}","【签名档被已管理员屏蔽】")
			Else
				IF YxBBs.BBSSetting(12)="1" then Sign="" 
				IF Arr_Rs(30,i) Then Sign="【签名档已被管理员屏蔽】"
				IF isNull(sign) or sign="" then
					Temp=Replace(Temp,"{签名}",YxBBs.BBSName&"欢迎您！")
				Else
					Temp=Replace(Temp,"{签名}",YxBBs_ubb.Sign_Code(Sign))
				End IF
				Temp=Replace(Temp,"{帖子内容}",ShowMood&"<SPAN style='line-height:150%;table-layout:fixed;word-wrap:break-word;word-break:break-all;width:100%'><img src='Images/face/"&Arr_rs(2,i)&".gif'> <b>"&ShowCaption&"</b><br><br>"&YxBBs_ubb.UBB(Arr_Rs(4,i),1)&"</SPAN>")
			End IF
			TempStr=TempStr&Temp
		Next
		Response.Write(TempStr)
	End If
End Function

Function IsOnline(TUserName)
	Dim Temp,Rs,Ary_Rs,i
	IsOnline=false
 		Cache.Name="UserOnline"
	If Cache.valid Then
	   Temp=Cache.Value
	Else
		Set Rs=YxBBs.Execute("Select Name From [YX_online] where ClassID<>6")
		If Rs.Eof Or Rs.Bof Then Exit Function
		Ary_Rs=Rs.GetRows(-1)
		Rs.Close
		For i=0 To Ubound(Ary_Rs,2)
			Temp=Temp & Ary_Rs(0,i)&","
		Next
		Temp=","&Temp
		Cache.add Temp,dateadd("n",5,YxBBs.NowBBSTime)'5分钟
	End If
	If InStr(Lcase(Temp),","&Lcase(TUserName)&",")>0 Then IsOnline=true
End Function

Function SetTopic()
	Dim Temp,Url
	If Not YxBBs.FoundUser Then Exit Function
	Url="admin.Asp?BoardID="&YxBBs.BoardID&"&ID="&ID&"&TB="&YxBBs.TB&"&Action="
        
	IF TopicTopType=5 then Temp="<div class=menuitems><a href="&Url&"取消总置顶>取消总置顶</a></div>" Else Temp="<div class=menuitems><a href="&Url&"总置顶>设为总置顶</a></div>"
	IF TopicTopType=4 Then Temp=Temp&"<div class=menuitems><a href="&Url&"取消区置顶>取消区置顶</a></div>" ELse Temp=Temp&"<div class=menuitems><a href="&Url&"区置顶>设为区置顶</a></div>"
	IF TopicTopType=3 Then Temp=Temp&"<div class=menuitems><a href="&Url&"取消置顶>取消置顶</a></div>" ELse Temp=Temp&"<div class=menuitems><a href="&Url&"置顶>设为置顶</a></div>"
	IF TopicIsGood Then Temp=Temp&"<div class=menuitems><a href="&Url&"取消精华>取消精华</a></div>" Else Temp=Temp&"<div class=menuitems><a href="&Url&"精华>设为精华</a></div>"
	IF TopicIsLock Then Temp=Temp&"<div class=menuitems><a href="&Url&"解锁>解除锁定</a></div>" Else Temp=Temp&"<div class=menuitems><a href="&Url&"锁定>锁定主题</a></div>"
	Temp=Temp&"<div class=menuitems><a href="&Url&"删除主题>删除主题</a></div><div class=menuitems><a href="&Url&"移动>移动主题</a></div><div class=menuitems><a href="&Url&"提升>提升主题</a></div>"
       Temp="<a onmouseover=""showmenu(event,'"&Temp&"')""><font color=blue>主题管理</font></a>"
	SetTopic=Temp
End Function

Function FastReply()
	If Not YxBBs.FoundUser Then Exit Function
	IF Not TopicIsLock Or YxBBs.ClassID=1 then
		Dim Caption,Content
		Caption="快速回复【<a href='Say.Asp?action=reply&BoardID="&YxBBs.BoardID&"&id="&ID&"'>高级回复</a>】"
		Content="<div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div>"&_
		"<form style='margin: 8;' method='POST' name='yimxu' onsubmit='if(content.value==""""){alert(""您还没有填写帖子内容!"");content.focus();return (false);};"
		If Cint(YxBBs.BoardSetting(0))=1 then Content=Content&"if(CheckCode.value==""""){alert(""请填写验证码！"");CheckCode.focus();return (false);};"
		Content=Content&"BtnPost.disabled = true;' action='Save.Asp?action=Reply&BoardID="&YxBBs.BoardID&"&TB="&YxBBs.TB&"&ID="&ID&"&page="&Page&"'><table align='center' border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%'></td></tr><tr><td width='24%' valign='top'><table width='100%' border='0' cellpadding='5' cellspacing='0'><tr><td align='center'><img onClick=Cbold() src='Images/UbbPic/1.gif' border=0 alt=粗体字> <img onClick=Cwmv() src=Images/UbbPic/14.gif border=0 alt='Media Player视频文件'> <img onClick=swf() src=Images/UbbPic/13.gif border=0 alt=Flash动画 > <img onClick=image() src='Images/UbbPic/12.gif' border=0 alt=图片> <img onClick=showpic() src='Images/UbbPic/11.gif' border='0' alt='心情图片'></td>"&_
		"</tr><tr><td align='center'><img src='Images/butreply.gif' onClick=Especial('[reply]','[/reply]')> <img src='Images/butlogin.gif' onClick=Especial('[LOGIN]','[/LOGIN]')></td></tr>"&_
		"<tr><td align='center'><img src='Images/butgrade.gif' width='60' height='22' onClick=Grade()> <img src='Images/butcode.gif' onClick=Code()></td></tr></table>"&_
		"</td><td width='71%' valign='top'><input type=hidden name='caption' value='Re:"&TopicCaption&"'><textarea onkeydown=presskey(); rows=6 name=content Style='width:100%'></textarea><p style='margin-top: 10; margin-bottom: 0'>"
		IF Cint(YxBBs.BoardSetting(0))=1 then Content=Content&"验证码：<input type=text name='CheckCode' size=8><img align='absmiddle' src=Inc/code.Asp> "
		Content=Content&"<input type=submit value='回复帖子' ID='BtnPost'> <input type=button value='预 览' onclick=openwin()> <input type='reset' value='重 写'> 快捷键 Ctrl+Enter </p></td><td width='5%' valign='top'><input type='button' style='BACKGROUND: url(Images/plus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(3,this.form.content)' ><br><br><input type='button' style='BACKGROUND: url(Images/minus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(-3,this.form.content)'></td></tr></table></form><form  style='margin:0;' name=preview action=See.Asp?Action=preview method=post target=preview><input type=hidden name=caption value=><input type=hidden name=content value=''></form>"
	Call YxBBs.ShowTable(Caption,Content)
	END IF
End Function
%>