<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur,k
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If 

Dim JaMsg
Dim JaCheckIsLog
Dim MsgCount
JaMsg = JaZ.GetBlogRe("JaUid,JaMsg,JaSign","JaMsg","JaUid='"&B&"' and IsPub=1 ")
 
 
MsgCount = JaZ.GetCount("Count(*)","JaMsg","Where JaUid='"&B&"' and IsPub=0 ")
 
JaCheckIsLog = JaZ.JaIsUser(B)

Dim Rs,sqlstr,MaxPerPage,text,checkpage,CurrentPage,i
k=1
sqlstr = "SELECT * FROM [JaMsg] Where JaUid='"&B&"' and IsPub=0 Order By JaDate Desc"
Set Rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sqlstr,conn,1,1
MaxPerPage=10
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0
%>
<html>
<head>
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>myzone-互动-个性交友-在线聊天-装扮小屋</title>
<link type="text/css" rel="stylesheet" href="Style/<%=Trim(C(5))%>/css.css">
</head>
<script src="JsInc/MsgPage.js"></script>
<script src="JsInc/JaUbb.js"></script>
<script src="JsInc/JaG.js"></script>
<script src="JsInc/Jafloat.js"></script>
<script>
Jafloat('<%=FlyN(0)%>','2','<%=FlyN(1)%>');
document.cookie = "divc=<%=Trim(C(7))%>;";
function CheckJaUser() {
         if (document.diary_form.content.value=="")
           {
           alert("内容不能为空!");
           document.diary_form.content.focus();
           return false;
           }
}

function showleft(th)
{
if (th.style.display == "none")
{
eval("th.style.display=\"\";");
document.getElementById("sc").src="Style/<%=Trim(C(5))%>/bt_mline_on.gif"
}
else
{
eval("th.style.display=\"none\";");
document.getElementById("sc").src="Style/<%=Trim(C(5))%>/bt_mline_off.gif"
}
}
					</script>
<body leftmargin="2" topmargin="2" style="background-color:transparent;<%=cur%>" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc">
<table width="785" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="7" align="left" >
<div align="right"><img src="Style/<%=Trim(C(5))%>/t_t_l.gif" width="7"></div></td>
    <td width="785" background="Style/<%=Trim(C(5))%>/t_t_m.gif"><font color="#6699CC" size="2"><strong> 
      </strong></font> 
      <%if Trim(C(5))="sky" Then%>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="cursor: hand;">
        <tr> 
          <td width="2%"><img src="Style/<%=Trim(C(5))%>/icon_01.gif"></td>
          <td width="88%"><strong class="datet">留言板</strong></td>
          <td width="10%"><img src="Style/<%=Trim(C(5))%>/more.gif"></td>
        </tr>
      </table>
      <%End If%>
    </td>
    <td width="7" align="right" > 
      <div align="left"><img src="Style/<%=Trim(C(5))%>/t_t_r.gif" width="7" border="0"></div></td>
  </tr>
  <tr> 
    <td background="Style/<%=Trim(C(5))%>/t_m_l.gif">&nbsp;</td>
    <td width="785" rowspan="2"> <div align="center">
		 <%if Trim(C(5))="plady" Then%> 
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="cursor: hand;">
        <tr> 
          <td width="2%"><img src="Style/<%=Trim(C(5))%>/icon_01.gif"></td>
          <td width="88%"><strong class="datet">留言板</strong></td>
          <td width="10%"><img src="Style/<%=Trim(C(5))%>/more.gif"></td>
        </tr>
      </table>
        <%End If%>
        <table width="99%"  border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="785" height="23" background="Style/<%=Trim(C(5))%>/titleback.gif"><span class="classs"><img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp;<b>主人寄语 
              <a href="MsgTop.asp?JaUid=<%=B%>"><img src="Qz/bt_06.gif" width="14" height="14" border="0"></a></b></span></td>
            <td width="599" background="Style/<%=Trim(C(5))%>/titleback.gif"><div align="right">共 
                <font color="#FF0000"><%=MsgCount%></font> 条留言</div></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0"  style="word-break:break-all ;word-wrap: break-all;">
          <tr align="center"> 
            <td colspan="2"><table width="95%"  border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="20" class="text">
<%
Dim JaHtml,JaHtmls,JaReHtml,JaReHtmls
If JaMsg <> false Then
JaHtml = Replace(JaZ.HTMLEncode(JaMsg(1,0)),"<BR>","\n")
%>
<script>
document.write(ubbReplace("<%=JaHtml%>","all"));
</Script>
<%
If JaMsg(2,0) = 1 Then
JaHtmls = JaZ.GetCount("JaMemo","JaUser","Where JaUid='"&JaMsg(0,0)&"' ")
JaZ.HTMLEncode(JaHtmls)
JaHtmls = Replace(JaHtmls ,"<BR>","\n")
Response.Write "<br>&nbsp;--------------------------------------------------------------------------------<br>"
%>
<script>
document.write(ubbReplace("<%=JaHtmls%>","all"));
</Script>
<%
End if
End if
%>
</td>
                </tr>
                <tr> 
                  <td class="line"></td>
                </tr>
<%
Do While Not Rs.Eof

%>
                <tr> 
                  <td class="text2"><b>留言者：</b>
<a href="<%=SESSION("ServerUrl")%>/Index.asp?JaUid=<%=Rs(4)%>" target="_blank">
<%=JaZ.GetCount("JaUname","JaUser","Where JaUid='"&Rs(4)&"' ")%></a>　<b>留言时间：</b> 
                    <%=Rs(3)%><img src="Qz/bb_code.gif" alt="插入引用" border="0" align="absmiddle" onClick="javascript:document.diary_form.content.value='[quote]<%=Rs(2)%>[/quote]';">
<%
If JaCheckIsLog="yes" Then%>
<a href="MsgDel.asp?JaUid=<%=B%>&id=<%=Rs(0)%>">
                    <img src="Qz/bt_03.gif" alt="删除" width="12" height="12" onClick="{if(confirm('确定删除吗?')){return true;}return false;}" border=0></a>
<%End if%>
</td>
                </tr>
                <tr> 
                  <td class="text">
<%JaReHtml = Replace(JaZ.HTMLEncode(Rs(2)),"<BR>","\n")%>
<script>
document.write(ubbReplace("<%=JaReHtml%>","all"));
</Script>
</td>
<%If Rs(6)=1 Then%>
				  <tr><td>
		 &nbsp;-------------------------------------------------------------------------------- 
				  </td></tr>
				  <tr><td>

<%
JaReHtmls = JaZ.GetCount("JaMemo","JaUser","Where JaUid='"&Rs(4)&"' ")
JaReHtmls = Replace(JaZ.HTMLEncode(JaReHtmls),"<BR>","\n")%>
<script>
document.write(ubbReplace("<%=JaReHtmls%>","all"));
</Script>
</td>
</tr>
<%
End if
i=i+1 
If i >= MaxPerpage Then Exit do 
rs.MoveNext
Loop
%>
                </tr>
                <tr> 
                  <td class="line"></td>
                </tr>
              </table>
<%If Rs.PageCount > 9 Then%>
<Script Language="JavaScript">Pages(<%=CurrentPage%>,<%=Rs.PageCount%>,<%=Rs.RecordCount%>,'page',<%=B%>);</Script>
<%End if%>
              <table width="95%"  border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td class="num">&nbsp; </td>
              </table>
<%If SESSION("VicNum") <> "" then%>
              <br> <table width="95%"  border="0" align="center" cellpadding="1" cellspacing="1" class="back">
                <tr> 
                  <td class="backf"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                      <tr> 
                        <td class="title3">&nbsp;发&nbsp;表&nbsp;留&nbsp;言</td>
                      </tr>
                    </table>
                    <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="12">
                      <form name="diary_form" method="post" action="MsgAdd.asp?JaUid=<%=B%>" onSubmit="return CheckJaUser();">
                        <tr> 
                          <td> 评论：<br> <table width="100%"  border="0" cellpadding="1" cellspacing="1" class="back">
                              <tr> 
                                <td class="backf"><table width="100%"  border="0" cellpadding="3" cellspacing="0">
                                    <tr> 
                                      <td height="13" class="shadows"><select name="selectface" onChange="ubbselectfont('face','document.all.selectface', 'diary_form.content');">
                                          <option  value="宋体" selected>宋体</option>
                                          <option  value="黒体">黒体</option>
                                          <option  value="仿宋_GB2312">仿宋</option>
                                          <option  value="隶书">隶书</option>
                                          <option  value="楷体_GB2312">楷体</option>
                                          <option  value="Times New Roman">Times 
                                          New Roman</option>
                                          <option  value="Arial Black">Arial Black</option>
                                          <option value="Verdana">Verdana</option>
                                          <option value="Helvetica">Helvetica</option>
                                        </select> <select name="selectsize" onChange="ubbselectfont('size','document.all.selectsize', 'diary_form.content');">
                                          <option value="1">1</option>
                                          <option value="2">2</option>
                                          <option value="3">3</option>
                                          <option value="4">4</option>
                                          <option value="5">5</option>
                                          <option value="6">6</option>
                                        </select>
                                        <a href="javascript:ubbfont('B', diary_form.content)"><img src="Qz/bb_bold.gif" alt="插入粗体文本" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbfont('I', diary_form.content)"><img src="Qz/bb_italicize.gif" alt="插入斜体文本" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbfont('U', diary_form.content)"><img src="Qz/bb_underline.gif" alt="插入下划线" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbcolorm(diary_form.content)"><img src="Qz/bb_color.gif" alt="字体颜色" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbfacem(diary_form.content)"><img src="Qz/bb_face.gif" alt="插入表情" width="22" height="20" hspace="1" border="0" align="absmiddle"></a> 
                                        <a href="javascript:ubbpicturem(diary_form.content)"><img src="Qz/bb_image.gif" alt="插入图像" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbfont('M', diary_form.content)"><img src="Qz/bb_center.gif" alt="居中" width="22" height="20" hspace="1" border="0" align="absmiddle"></a><a href="javascript:ubbfont('R', diary_form.content)"><img src="Qz/bb_right.gif" alt="居右" width="22" height="20" hspace="1" border="0" align="absmiddle"></a> 
                                        <input name="hassign" type="checkbox" value="yes" checked>
                                        使用签名档</td>
                                      <input type="hidden" name="hassubmited" value="0">
                                    </tr>
                                  </table>
                                  <textarea name="content" cols="" rows="5"  style="border: 0px; width:100%"></textarea>	
                                </td>
                              </tr>
                            </table>
                            <div align="center"> 
                              <input name="imageField" type="image" src="Qz/b.gif" width="1" height="1" border="0" class="submit" onClick="return checkAndSub();">
                              <input name="imageField" type="image" src="Qz/b.gif" width="1" height="1" border="0" class="reset" onClick="javascript:diary_form.reset();return false;">
                            </div></td>
                        </tr>
                      </form>
                    </table></td>
                </tr>
              </table>
<%End If%>
              <table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" class="shadows">
                <tr> 
                  <td height="3"></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <br>
      </div></td>
    <td width="7" background="Style/<%=Trim(C(5))%>/t_m_r.gif"> 
      <div align="left"></div></td>
  </tr>
  <tr> 
    <td background="Style/<%=Trim(C(5))%>/t_m_l.gif"></td>
    <td background="Style/<%=Trim(C(5))%>/t_m_r.gif">
<div align="left"></div></td>
  </tr>
  <tr> 
    <td height="7"><img src="Style/<%=Trim(C(5))%>/t_d_l.gif" width="7" height="7"></td>
    <td width="599" height="7" background="Style/<%=Trim(C(5))%>/t_d_m.gif"></td>
    <td height="7"><img src="Style/<%=Trim(C(5))%>/t_d_r.gif" width="7" height="7"></td>
  </tr>
</table>
</body>

</html>
