<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: klview.asp
' Version:3.0
' Date: 2005-8-28
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim Kid
Kid=checkStr(Request("id"))
response.buffer=true
stats="聚会内容"
if Kid="" or not isnumeric(Kid) then
errmsg=errmsg+"<br>"+"<li>参数错误！"
		founderr=true
else
Kid=Cint(Kid)
end if
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("聚会广场","klatch.asp")
	if split(Reflash,"|")(0)=1 then'防刷新点击
		  if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IP"&Kid&"") then
		  response.cookies("IP"&Kid&"")=Request.ServerVariables("REMOTE_ADDR")
		  conn.execute("update Ms_klatch set Hits=Hits+1 where kid="&Kid&"")
		  end if
	else
		  conn.execute("update Ms_klatch set Hits=Hits+1 where kid="&Kid&"")
	end if
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE width="749" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD><IMG height=6 src="Skins/Default/klatch/con_border1.gif" width=750></TD>
    </TR>
    <TR> 
      <TD> <TABLE height=33 cellSpacing=0 cellPadding=0 width="100%" 
            background=Skins/Default/klatch/con_bg01.gif border=0>
          <TBODY>
            <TR> 
              <TD width=117><IMG height=33 src="Skins/Default/klatch/con_pic1.gif" 
                  width=117></TD>
              <TD width=73><IMG height=15 src="Skins/Default/klatch/con_pic3.gif" 
                  width=73></TD>
              <FORM action=klatchlist.asp method=post>
                <TD width="473" align=middle>聚会城市： 
                  <input name="City" type="text" id="City" size="10">
                  聚会类别 
                  <SELECT id=typeid name=typeid>
                    <option value="1">周末闲聊</option>
                    <option value="2" selected>酒吧畅饮</option>
                    <option value="3">郊外远足</option>
                    <option value="4">游戏切磋</option>
                    <option value="5">逛街看戏</option>
                    <option value="6">白领聚会</option>
                    <option value="7">网站聚会</option>
                  </SELECT><input name="action" type="hidden" id="action" value="search">
                  <INPUT type=image src="Skins/Default/klatch/con_but1.gif" 
                  align=absMiddle name=Submit></TD>
              </FORM>
              <TD width="95" align=right><IMG height=33 src="Skins/Default/klatch/con_pic2.gif" 
                  width=73></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD style="border-right:#999999 1px solid;border-left:#999999 1px solid" background=Skins/Default/klatch/con_bg03.gif height="23">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<%dim joinchk,jname''判断用户是否已经加入并审核以处理联系方式显隐
jname=""
joinchk=0
set rs=server.createobject("adodb.recordset")
	sql="select j.Checked,j.username from Ms_kljoin j inner join Ms_klatch k on j.kid=k.kid where j.Kid="&Kid&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
joinchk=rs(0)
jname=rs(1)
end if
rs.close

''读出聚会数据库
dim Klname,kContent,kNotice,kTakebus,kJoinsay,ktitle,kTypeid,kStardate,kEnddate
dim kprovince,kCity,kAddress,kquota,Klatchsex,kMinage,kMaxage,Klanhao,kMoney,kTouch
dim kJoinnum,khits
sql="select * from [Ms_klatch] where Kid="&Kid&""
set rs=conn.execute(sql)
if not (rs.eof and rs.bof) then
Klname=rs("Username")
kContent=rs("Content")
kNotice=rs("Notice")
kTakebus=rs("Takebus")
kJoinsay=rs("Joinsay")
ktitle=rs("title")
kTypeid=rs("Typeid")
kStardate=rs("Stardate")
kEnddate=rs("Enddate")
kprovince=rs("State")
kCity=rs("City")
kAddress=rs("Address")
kquota=rs("quota")
Klatchsex=rs("Klatchsex")
kMinage=rs("Minage")
kMaxage=rs("Maxage")
Klanhao=rs("Klanhao")
kMoney=rs("Money")
kTouch=rs("Touch")
kJoinnum=rs("Joinnum")
khits=rs("hits")
else
errmsg=errmsg+"<br>"+"<li>系统没有找到您指定的聚会项目！"
		founderr=true
exit sub
end if
rs.close%>
<table width="750" align=center cellpadding=3 cellspacing=1 class=tableborder1>
  <tr align="left"> 
    <td width="49%" valign="top" bgcolor="#ffffff"> 
      <TABLE cellSpacing=1 cellPadding=1 width=372 
            border=0>
        <TBODY>
          <TR bgColor=#9ca785> 
            <TD bgColor=#9ca785> <TABLE cellSpacing=1 cellPadding=1 width="100%" 
                  bgColor=#ffffff border=0>
                <TBODY>
                  <TR bgColor=#9ca785> 
                    <TD width=29><IMG height=22 
                        src="Skins/Default/klatch/con_tabpic1.gif" width=29></TD>
                    <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                        <TBODY>
                          <TR> 
                            <TD width="76%"><A name=gz><IMG height=22 
                              src="Skins/Default/klatch/con_tabpic2.gif" width=61></A> 
                            </TD>
                            <TD width="24%" align=right><a href="userklatch.asp?action=edit&Kid=<%=Kid%>"><img height=19 
                              src="Skins/Default/klatch/con_tab1edit.gif" width=113 
                              border=0></a></TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
          </TR>
          <TR> 
            <TD bgColor=#ffffff> <TABLE cellSpacing=1 cellPadding=1 width="100%" 
                  bgColor=#cbd7b1 border=0>
                <TBODY>
                  <TR> 
                    <TD> <TABLE cellSpacing=1 cellPadding=3 width="100%" 
                        bgColor=#ffffff border=0>
                        <TBODY>
                          <TR> 
                            <TD width="26%" bgColor=#e6f0cd><font color="#d66b00">发 
                              起 人：</font></TD>
                            <TD width="74%" bgColor=#fbfaf9><a href=dispuser.asp?username=<%=Klname%> target="_blank"><%=Klname%></a></TD>
                          </TR>
                          <TR> 
                            <TD width="26%" bgColor=#e6f0cd><font color="#d66b00">聚会名称：</font></TD>
                            <TD width="74%" bgColor=#fbfaf9><%=ktitle%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">聚会类别：</font></TD>
                            <TD bgColor=#fbfaf9><%
	  Select Case kTypeid
	Case 1
	response.Write("周末闲聊")
	Case 2
	response.Write("酒吧畅饮")
	Case 3
	response.Write("郊外远足")
	Case 4
	response.Write("游戏切磋")
	Case 5
	response.Write("逛街看戏")
	Case 6
	response.Write("白领聚会")
	Case 7
	response.Write("网站活动")
	End Select%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">开始时间：</font></TD>
                            <TD bgColor=#fbfaf9><%=kStardate%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">结束时间：</font></TD>
                            <TD bgColor=#fbfaf9><%=kEnddate%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">所在城市：</font></TD>
                            <TD bgColor=#fbfaf9><%=kprovince%>－<%=Kcity%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">聚会地点：</font></TD>
                            <TD bgColor=#fbfaf9><%=Kaddress%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">聚会性别：</font></TD>
                            <TD bgColor=#fbfaf9><%if Klatchsex=1 then
							response.Write("先生")
							elseif Klatchsex=0 then
							response.Write("小姐")
							else
							response.write("不限")
							end if
							%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">聚会年龄：</font></TD>
                            <TD bgColor=#fbfaf9><%=kMinage%>－<%=kMaxage%>岁</TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">接头暗号：</font></TD>
                            <TD bgColor=#fbfaf9><%=Klanhao%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">邀请人数：</font></TD>
                            <TD bgColor=#fbfaf9><%if kquota=0 then
							response.Write("不限")
							else
							response.Write(kquota)
							end if%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">费用预算：</font></TD>
                            <TD 
                              bgColor=#fbfaf9><%=Kmoney%> 元/人</TD>
                          </TR>
				<%if Klname<>trim(MemberName) or not (master or standmaster or supermaster) then
						  if jname=trim(membername) and joinchk=1 then%>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">联系方式：</font></TD>
                            <TD 
                              bgColor=#fbfaf9>电话：<%=split(kTouch,"|")(0)%><br>
                              手机：<%=split(kTouch,"|")(1)%><br>
                              邮件：<%=split(kTouch,"|")(2)%> </TD>
                          </TR>
						  <%else
						  response.Write("<tr><td bgColor=#e6f0cd><font color=#d66b00>联系方式：</font></td><td bgColor=#fbfaf9><font color=red>登录可查看</font></td></tr>")
						  end if
						  else
						  %>
						  <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">联系方式：</font></TD>
                            <TD 
                              bgColor=#fbfaf9>电话：<%=split(kTouch,"|")(0)%><br>
                              手机：<%=split(kTouch,"|")(1)%><br>
                              邮件：<%=split(kTouch,"|")(2)%></TD>
                          </TR>
						 <%
						 end if%>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">聚会内容：</font></TD>
                            <TD 
                              bgColor=#fbfaf9><%=kContent%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">注意事项：</font></TD>
                            <TD 
                              bgColor=#fbfaf9><%=kNotice%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">交通线路：</font></TD>
                            <TD 
                              bgColor=#fbfaf9><%=kTakebus%></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#e6f0cd><font color="#d66b00">报名说明：</font></TD>
                            <TD 
                              bgColor=#fbfaf9><%=kJoinsay%></TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE width=368 border=0 align="center" cellPadding=0 cellSpacing=1 bgColor=#999999>
        <TBODY>
          <TR> 
            <TD bgColor=#b5de00 height=22>&nbsp;&nbsp;<SPAN 
  class=text2><font color="#d66b00">免责声明</font></SPAN></TD>
          </TR>
          <TR> 
            <TD class=text4 vAlign=center bgColor=#f0f0f0 height=149> 
              <TABLE cellSpacing=0 cellPadding=0 width="90%" align=center border=0>
                <TBODY>
                  <TR> 
                    <TD height="149"> 
                      <P><%=webname%>只为网友自发活动提供平台，对于在此平台上发布的自发活动不承担任何行政、法律、经济责任！活动参与者请提高警惕。</P>
                      您可在参加活动前，浏览活动组织者的资料，审核活动地点是否安全、活动内容是否健康。如果您对该活动有任何意见或建议，可以随时向我们反映。</TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE>
	  <%if Klname=trim(MemberName) and (master or standmaster or supermaster) then
	  if Cint(GroupSetting(98))=1 then%>
      <TABLE width=368 border=0 align="center" cellPadding=0 cellSpacing=1 bgColor=#999999>
        <TBODY>
          <TR> 
            <TD bgColor=#e6f0cd height=22>&nbsp;&nbsp;<SPAN 
  class=text2><font color="#d66b00">活动上传</font></SPAN></TD>
          </TR>
          <TR> 
            
          <TD class=text4 vAlign=center bgColor=#f0f0f0 height=61> <table cellspacing=0 cellpadding=0 width="90%" align=center border=0>
              <tbody>
                <tr align="center"> 
                  <td height="42" colspan="2">本上传只提供发起人上传<br>
                    上传属性：<font color=red><%=GroupSetting(99)%></font> 张 格式：<font color=red><%=replace(GroupSetting(100),"|",",")%></font></td>
                </tr>
              <form action="klatchuser.asp?action=savephoto" method=post name=theForm>
                <tr> 
                  <td width="18%" height="32" align="center">标题：</td>
                  <td width="82%"><input name="Title" type="text" id="Title"></td>
                </tr>
                <tr> <input name="Kid" type="hidden" id="Kid" value=<%=Kid%>>
                  <td height="25" align="center">图片：</td>
                  <td height="25"><iframe name=ad frameborder=0 width=100% height=24 scrolling=no src="klatch_upload.asp?kid=<%=kid%>"></iframe></td>
                </tr>
                <tr align="center"> 
                    <td height="24" colspan="2"><input class=2 type=Submit value="保存" name=Submit3></td>
                </tr>
              </form>
            </table></TD>
          </TR>
        </TBODY>
      </TABLE>
	  <%end if
	  end if%>
	  </td>
    <td width="51%" valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="33"><table cellspacing=1 cellpadding=1 width=100% align=left 
            bgcolor=#ffffff border=0>
              <tbody>
                <tr bgcolor=#9ca785> 
                  <td bgcolor=#8f7277> <table cellspacing=1 cellpadding=1 width="100%" 
                  bgcolor=#ffffff border=0>
                      <tbody>
                        <tr bgcolor=#9ca785> 
                          <td width=29><img height=22 
                        src="Skins/Default/klatch/con_tab2pic1.gif" width=29></td>
                          <td bgcolor=#a8858c> <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
                              <tbody>
                                <tr bgcolor=#9ca785> 
                                  <td bgcolor=#a8858c><img height=22 
                              src="Skins/Default/klatch/con_tab2pic2.gif" width=61></td>
                                  <td align=right bgcolor=#a8858c>&nbsp;</td>
                                </tr>
                              </tbody>
                            </table></td>
                        </tr>
                      </tbody>
                    </table></td>
                </tr>
                <tr bgcolor=#e6f0cd> 
                  <td valign=top bgcolor=#ffffff> <table cellspacing=1 cellpadding=1 width="100%" 
                  bgcolor=#e4d8da border=0>
                      <tbody>
                        <tr> 
                          <td bgcolor=#ffffff> <table cellspacing=1 cellpadding=2 width="100%" 
                        bgcolor=#ffffff border=0>
                              <tbody>
                                <tr> 
                                  <td bgcolor=#dcc7c6><a href="userklatch.asp?action=photolist&Kid=<%=kid%>">【<strong>所有精采图片回顾</strong>】</a></td>
                                </tr>
                                <tr> 
                                  <td bgcolor=#fbf5f5> <table cellspacing=0 cellpadding=0 width="100%" 
                              align=center border=0>
                                      <tbody>
                                        <tr> 
                                          <td height="160"><IFRAME border=0 marginWidth=0 
                  marginHeight=0 src="klatchuser.asp?action=photo&Kid=<%=Kid%>" frameBorder=no 
                  width="100%" height=160></IFRAME></td>
                                        </tr>
                                      </tbody>
                                    </table></td>
                                </tr>
                              </tbody>
                            </table></td>
                        </tr>
                      </tbody>
                    </table></td>
                </tr>
              </tbody>
            </table> </td>
        </tr>
        <tr> 
          <td> 
            <TABLE cellSpacing=1 cellPadding=1 width=100% align=left 
            bgColor=#ffffff border=0>
              <TBODY>
                <TR bgColor=#9ca785> 
                  <TD bgColor=#89869b> <TABLE cellSpacing=1 cellPadding=1 width="100%" 
                  bgColor=#ffffff border=0>
                      <TBODY>
                        <TR bgColor=#9ca785> 
                          <TD width=29 bgColor=#b7b2d2><IMG 
                        src="Skins/Default/klatch/con_tab3pic1.gif"></TD>
                          <TD bgColor=#b7b2d2> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                              <TBODY>
                                <TR> 
                                  <TD><IMG src="Skins/Default/klatch/con_tab3pic2.gif"></TD>
                                  <TD align=right><a href="userklatch.asp?action=ctrluser&Kid=<%=Kid%>"><IMG height=19 
                              src="Skins/Default/klatch/con_tab3fabu.gif" width=113 
                              border=0></a></TD>
                                </TR>
                              </TBODY>
                            </TABLE></TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                </TR>
                <TR bgColor=#e6f0cd> 
                  <TD vAlign=top bgColor=#ffffff><IFRAME border=0 marginWidth=0 
                  marginHeight=0 src="klatchuser.asp?action=user&Kid=<%=Kid%>" frameBorder=no 
                  width="100%" height=460></IFRAME></TD>
                </TR>
                <TR bgColor=#e6f0cd>
                  <TD align="right" vAlign=top bgColor=#ffffff>
                    <%if founduser then%>
                    <a href="klatchuser.asp?action=join&Kid=<%=kid%>"><img src="Skins/Default/klatch/con_tab3reg.gif" width="83" height="19" border="0"></a> 
                    <%end if%>
                  </TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
        <tr>
          <td><TABLE cellSpacing=1 cellPadding=1 width=100% align=left 
            bgColor=#ffffff border=0>
              <TBODY>
                <TR bgColor=#9ca785> 
                  <TD bgColor=#89869b> <TABLE cellSpacing=1 cellPadding=1 width="100%" 
                  bgColor=#ffffff border=0>
                      <TBODY>
                        <TR bgColor=#9ca785> 
                          <TD width=29 bgColor=#b7b2d2><IMG height=22 
                        src="Skins/Default/klatch/con_tab4pic1.gif" width=29></TD>
                          <TD bgColor=#c06ed2><A name=ly><IMG height=22 
                        src="Skins/Default/klatch/con_tab4pic2.gif" 
                    width=61></A></TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                </TR>
                <TR bgColor=#e6f0cd> 
                  <TD vAlign=top bgColor=#ffffff height=125><table width="100%" align=center cellpadding=3 cellspacing=1>
                      <form action="userbook.asp?action=saveadd" method=POST name="theForm">
                        <input name="ClassID" type="hidden" id="ClassID" value="4">
                        <input name="Touser" type="hidden" id="Touser" value="<%=Klname%>">
                        <tr> 
                          <td width="18%" height="26" align="right">标题：</td>
                          <td width="82%"><input name="title" type="text" id="title" size="30" maxlength="250"></td>
                        </tr>
                        <tr> 
                          <td height="25" align="right">内容：</td>
                          <td height="25"><textarea name="Content" cols="40" rows="5" id="IDContent"></textarea> 
                            <a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a> 
                            <a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a></td>
                        </tr>
                        <tr align="center"> 
                          <td height="27" colspan="2"> <input class=2 type=Submit value="保存" name=Submit> 
                            &nbsp; <input class=2 type="reset" name="Clear" value="清除"></td>
                        </tr>
                      </form>
                    </table> </TD>
                </TR>
            </TABLE></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<%
end sub
%>
</body>
</html> 