<%Session.CodePage=936%>
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Conn_User.asp"-->

<%
const ChannelID=1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">

<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE><%=SiteName%>--商店</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">


<script type=text/javascript>var xijuan={channel:"index"}</script>
<script type=text/javascript src="Inc/main.js"></script>
<!--#include file="top5.asp"-->
<script language="JavaScript" type="text/javascript">
	function chkfrm(){
		
		if (document.Myform.Keywords.value==""){
			alert('请输入要检索的关键字！');
			document.Myform.Keywords.focus();
			return false;
		}
		
		
			var Obj = document.getElementsByName("mysort");
			for(i=0;i<Obj.length;i++){
				if(Obj[i].selected){
					if (Obj[i].value=="flv"){
						document.Myform.action="flv_search.asp";
					}else if (Obj[i].value=="zone"){
						document.Myform.action="user_search.asp";
					}else if (Obj[i].value=="blog"){
						document.Myform.action="blog_search.asp";
					}else if (Obj[i].value=="photo"){
						document.Myform.action="photo_search.asp";
					}else{
						document.Myform.action="user_search.asp";
					}
				}
			}

		
		return true;
	}
</script>
<form id="Myform" name="Myform" onSubmit="return chkfrm();" action="" method=post>
    <div id=SearchBlock>
      <div id=search>
<input name="Keywords" type="text" id="Keywords" class="input2"size="40" value="美女" onMouseOver="this.focus()" onFocus="this.select()" onClick="if (this.value=='美女') this.value=''"  />


             <select name="mysort" id="mysort" size="1" class="input2"> 
             <option selected value="flv" name="mysort" id="mysort">用户视屏</option>
             <option value="zone" name="mysort" id="mysort">注册用户</option>
             <option value="photo" name="mysort" id="mysort">用户相册</option>
             <option value="blog" name="mysort" id="mysort">用户日志</option>
             </select> &nbsp;
      </div>
     <input class=input_btn value="" type=submit src=Inc/global/images/btn_search.gif name=submit style="cursor:hand;" />
    </div>
    <div class=keywords>
&nbsp;&nbsp;消息:
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from [516show] where hotType=1 order by ID desc",conn,1,1 
%>
<%
do while not rs.eof
%>
<B><a href="<%=rs("url")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=left(rs("title"),40)%><%if len(rs("title"))>40 then response.write ""%></font></B></a>
 <%rs.movenext
loop%>
<%rs.close
set rs=nothing%>

    </div>
  </form>
</div><div >

<LINK 
href="css/shopgj.css" type=text/css rel=stylesheet>

<META content="MSHTML 6.00.5730.13" name=GENERATOR></HEAD>
<BODY>


<DIV class=sdff>
<DIV class=top_dlq id=loginmsg></DIV></DIV></DIV>
<DIV class=header_nav>


</DIV></DIV>
<DIV class=Banner>

<embed src="ad/swf/964x50-cn.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="950" height="50" wmode="transparent"></embed>
<SCRIPT language=javascript>
function shoping()
{
   if(confirm("您确定要购买此模版吗？"))
     return true;
   else
     return false;
	 
}
function shoping2()
{
   if(confirm("您确定要购买此挂饰吗？"))
     return true;
   else
     return false;
	 
}

</SCRIPT>

</DIV>



</DIV></DIV></DIV></DIV>
<DIV class=main>
<DIV class=sidebar>
<DIV class=S_panel>
<H1>
<P><SPAN><B>常见问题</B></SPAN></P></H1>
<DIV class="S_panel_c1 c2">
<DIV class=Gg>



<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">




<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 10 * from [flv]  order by WeekHits desc",conn,1,1 
%>




			    <tr>
				  <%

						i=1
do while not rs.eof
%>
                   <td height="22" bgcolor="fafafa"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                     <tr>
                       <td width="20" align="center"><img src="img0415/d<%=i%>.gif"></td>
                       <td><a href="video_play.asp?photoid=<%=rs("photoid")%>" target="_blank"><%=left(replace(rs("photoname"),"&nbsp;",""),12)%>
                         <%
				  if len(rs("photoname"))>12 then
				   response.Write""
				   else 
				   end if%></a>
                         <td width="20" align="center"><font color="#FF6600" style="font-size:10" ><%=rs("WeekHits")%></font></td>
                     </tr>
                   </table>
                   </td>
			    </tr>
				<%
						i=i+1
						if i>10 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
              </table>
                      </table>


 </DIV></DIV>
<H6>
<P><SPAN></SPAN></P></H6><IMG src="images/button_onlinesales_191.gif" vspace=3 border=0></DIV>
<DIV class=qqjt>
<H1>客服服务</H1>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 valign="top">
<TBODY>
<TR>
<TD align=middle><IMG src="images/button_onlinesales_191.jpg" vspace=3 border=0></A></TD></TR>
<TR>
<TD align=middle><IMG src="images/button_onlinefaq_191.jpg" vspace=3 border=0></A></TD></TR>
<TR>
<TD align=middle><IMG src="images/button_hotline_191.jpg" vspace=3 border=0></A></TD></TR></TBODY></TABLE>



<H6></H6></DIV></DIV>
<DIV class=content>
<DIV class=panel>
<DIV class=panel_p></DIV>
<H1><SPAN class=panel_tb></SPAN><SPAN 
class=panel_title><B>最新</B>挂饰</SPAN></H1>
<%
myPagesize=24
set rs=server.createobject("adodb.recordset")
sql="select * from [usergs] order by id desc"
rs.open sql,Conn_User,1,1
call myPages(rs,myPagesize)
%>           
<DIV class=panel_c>
<DIV class=panel_cc>
<DIV class=zxjp>                  
                     <%if rs.eof then%>
                  <br/>
                  暂时没有挂饰 <br/> <br/>
                  <%else%>
                      <%i=0%>
                      <%line=myPagesize
do while not rs.eof and line>0
%>
<DL>
  <DT><A href="viewg.asp?usergid=<%=rs("gid")%>" target="_blank"><IMG 
  src="userg/<%=rs("gid")%>.gif"></A> 

  <DD class=cen>&nbsp;&nbsp;价格：<%=rs("point")%>&nbsp;<img src="user/gold.gif" width="12" height="13">币&nbsp;&nbsp;</font> 
 </DD>
  <DD class=cen>&nbsp;<A 
  href="shopinggj.asp?action=r&gid=<%=rs("gid")%>&point=<%=rs("point")%>" target="_blank" onClick="return shoping();"><IMG src="images/gm.gif"></A>&nbsp;<A href="viewg.asp??usergid=<%=rs("gid")%>" target="_blank"><IMG 
  src="images/yl.gif"></A> 
 </DD></DL><%i=i+1%>
                      <%if i mod 6=0 then%>
                    </tr>
                    <%else%>
                    <%end if%>
                    <%rs.movenext
					line=line-1
		loop
		rs.close
		set rs=nothing%>
  
                  <%end if%></DIV></DIV></DIV>


<DIV class=panel_b><SPAN><B></B></SPAN></DIV></DIV>
<DIV class="panel panelA">
<DIV class=panel_p></DIV>


</DIV></DIV></DIV></DIV>

</DIV></DIV>
<DIV class=content>





            <table width="90%" border="0" cellspacing="0" cellpadding="0">
            
              <tr>
                <td width="1" bgcolor="#ffffff"><img src="img0415/space.gif" width="1" height="1"></td>
                <td height="25" align="center" bgcolor="#FFFFF"><%call listpages(mycondition)%> </td>
                <td width="1" bgcolor="#ffffff"><img src="img0415/space.gif" width="1" height="1"></td>
              </tr>
                <tr>
                <td width="1" height="1"><img src="img0415/space.gif" width="1" height="1"></td>
                <td bgcolor="#ffffff"></td>
                <td width="1"></td>
              </tr>
            </table>

<%sub listpages(mycondition)
	response.write "<table height=22  border=0 cellpadding=0 cellspacing=0><Tr><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	if pages<1 then
		exit sub
	end if
	
	
	if p>0 then
		response.write	"<a href="&request.ServerVariables("script_name")&"?currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0></a>&nbsp;&nbsp;&nbsp;"
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>&nbsp;&nbsp;&nbsp;"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td><img src=user/lined.gif border=0><img src=user/k.gif border=0 width=5>"
	for i=1 to 10
		if (p*10+i)>pages then exit for
		if currentpage=i then
		
			response.write "<b><a style='color:ff6600'"
		else
			response.write "<a"
		end if 
		response.write " href="&request.ServerVariables("script_name")&"?currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b>&nbsp;&nbsp;<img src=user/lined.gif border=0><img src=user/k.gif width=5 border=0>"	
     next
	 response.write "</td><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=3></td></tr></table>"
	 '--------------------察看下十页的连接
    if (p*10+10)<pages then
		response.write "<img src=user/k.gif border=0><a href="&request.ServerVariables("script_name")&"?currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>&nbsp;&nbsp;" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>&nbsp;&nbsp;"
	end if
	'-----------------------------------------------上下页导航
	response.write "&nbsp;</td>"
	

	  response.write "</tr></table>"
end sub

sub myPages(myRS,mysize)  '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
	if myRS.eof and myRS.bof then str="没有纪录"
	if str="" then
		if mysize="" or NOT IsNumeric(mysize) then
			mysize=15
		end if
		myRS.PageSize=mysize
		pages=myRS.pagecount
		records=myRS.recordcount
		On Error Resume Next '取得数字
		currentPage=request("currentPage")
		if currentPage="" then
			currentPage=1
		end if
		currentPage=CInt(currentPage)
		if Err.Number <> 0 Then
			currentPage=1
			Err.Clear
		end if
		if currentPage<1 then
			currentPage=1
		elseIf currentPage>10 then
			currentPage=10
		end if
		'----------------处理p
		p=request("p")
		if p="" then
			p=0
		end if
		p=CLng(p)
		if Err.Number <> 0 Then
			p=0
			Err.Clear
		end if
		if p<0 then
			p=0
		end if
		'--判断是否出了页数范围
		nowPage=p*10+currentPage
		if nowPage>pages then
			p=(pages-1)\10
			currentPage=((pages-1) mod 10)+1
		end if
		myRS.absolutepage=p*10+currentPage
	else
	   currentPage=1
	   records=0
	   pages=1
	end if
end sub

dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>

</DIV></DIV></DIV></DIV>




<DIV class=Footer>
<DIV >
<!--#include file="end.asp"--></BODY></HTML>
