<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<!--#include file="webtop.asp"-->
<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="20"></td>
    <td valign="bottom"><img src="<%=weburl%>images/arrow01.gif" width="11" height="11" /> Your present position: <a href="<%=weburl%>"><%=webname%></a> ->
 Member Center ->
  Order it of "out of stock"</td>
    <td valign="bottom"> 
       
    </td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<table width="1008" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
  <td width="203" valign="top"><!--#include file="index_login.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	<!--#include file="rexiao.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
    <%if session("username")<>"" then%>
	<table width="200" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
              <tr>
                <td width="200" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">Your Recent History</span></div></td>
                    </tr>
       
          <td valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <%set rsl=server.createobject("adodb.recordset")
		    rsl.open "select * from shop_his where username='"&session("username")&"' and lx=1 order by ltime desc",conn,1,1
			while not rsl.eof%>
                  <tr>
                    <td height="22"><img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href='list.asp?id=<%=rsl("shopid")%>' target=_blank>
                      <%if len(trim(rsl("shopname")))>14 then
	response.write left(trim(rsl("shopname")),14)&".."
	else
	response.write trim(rsl("shopname"))
	end if%>
                      </a></td>
              </tr>
                       <tr>
                <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
              </tr>
                    
                  <%rsl.movenext
		    wend
		    rsl.close
		  %>
                  </table></td>
       
                </table></td>
              </tr>
      </table><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	  <table width="200" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
              <tr>
                <td width="200" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">Search History</span></div></td>
                    </tr>
   <td valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <%set rss=server.createobject("adodb.recordset")
		    rss.open "select * from shop_his where username='"&nosql(session("username"))&"' and lx=2 order by ltime desc",conn,1,1
			while not rss.eof%>
                  <tr>
                    <td height="22"><img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <%if len(trim(rss("shopname")))>14 then
	response.write left(trim(rss("shopname")),14)&".."
	else
	response.write trim(rss("shopname"))
	end if%>
                      </a></td>
              </tr>
                       <tr>
                <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
              </tr>
                    
                  <%rss.movenext
		    wend
		    rss.close
			set rss=nothing%>
                  </table></td>
        </tr>
                </table></td>
              </tr>
      </table>
        <%end if%>
    
</td>
    <td width="591" valign="top"> <FORM action=qhsave.asp method=post name="form" id="form">
              <br>
              <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=1>
                <TBODY>
                  
                  <TR> 
                    <TD height="25">&nbsp;&nbsp; Nome：                      
                      <input name=name class="wenbenkuang" id="name" value="<%=session("username")%>">
                      <span class="STYLE1">*</span> Sex： 
                        <input name="sex" type="radio" value="boy" checked>
male
<input type="radio" name="sex" value="girl"> 
female
</TD>
                  </TR>
                  <TR> 
                    <TD height="25">&nbsp;&nbsp; <label>Need Product： 
                        <input name=shp class="wenbenkuang" id="shp2" size="34">
                      <span class="STYLE1">*</span> </label></TD>
                  </TR>
                  <TR> 
                    <TD height="25">&nbsp;&nbsp; How to contact you： 
                      <input name=qq class="wenbenkuang" id="qq2" size="34"> <label>ex:msn</label></TD>
                  </TR>
                  <TR>
                    <TD height="25">&nbsp;&nbsp; Email：
                      <input  name=email class="wenbenkuang" id="email2" size="34">
                      <span class="STYLE1">*</span></TD>
                  </TR>
                  <TR>
                    <TD height="25">&nbsp;&nbsp; Web： 
                      <input name=url class="wenbenkuang" id="url3" value="http://" size="34">                    </TD>
                  </TR>
                  <TR> 
                    <TD height="25">&nbsp;&nbsp; Content：</TD>
                  </TR>
                  <TR> 
                    <TD height="130" noWrap> &nbsp;&nbsp; 
                      <textarea name=content cols=80 rows=8 id="content" class="wenbenkuang"></textarea>                    </TD>
                  <TR> 
                    <TD height="30" colspan="2"> &nbsp;&nbsp; <input name="submit2" type=submit class="go-wenbenkuang" id="submit4" value=Submit> 
                      &nbsp;&nbsp; <input name="submit32" type=reset class="go-wenbenkuang" id="submit32" value=Reset> 
                      <%
Randomize '初始代随机数种子
num1=rnd() '产生随机数num1
num1=int(26*num1)+65 '修改num1的范围以使其是A-Z范围的Ascii码，以防表单名出错
session("antry")="test"&chr(num1) '产生随机字符串
%>
                      <input name="temp" type="hidden" id="temp" value="<%=session("antry")%>">                    </TD>
                  </TR>
                </TBODY>
              </TABLE>
              <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td> 
                  <%
Function unHtml(content)
	ON ERROR RESUME NEXT
	unHtml=content
	IF content <> "" Then
		unHtml=Server.HTMLEncode(unHtml)
		unHtml=Replace(unHtml,vbcrlf,"<br>")
		unHtml=Replace(unHtml,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
		unHtml=Replace(unHtml," ","&nbsp;")
	End IF
	IF Err.Number <>0 Then
		unHtml= "HTML转换中出错请联系管理员<br>"
		Err.Clear
	End IF
End Function
%></td>
                </tr>
              </table>
    </FORM> <td width="205" valign="top">
<table width="200" border="0" cellpadding="0" cellspacing="0">
      
      <tr>
        <td>
          <table width="200" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
            <tr>
              <td width="200" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">Guest Notices</span></div></td>
                  </tr>
      <tr>
        <td height="153" valign="top">
		<%if session("username")="" then
				 set rsg=server.createobject("adodb.recordset")
				 		rsg.open "select top 8 * from shop_usergg where lx=0 order by id desc",conn,1,1
				 else
				set rsg=server.createobject("adodb.recordset")
				rsg.open "select top 8 * from shop_usergg where  lx="&nosql(session("reglx"))&" or lx=0 order by id desc",conn,1,1
				end if
		if rsg.recordcount=0 then 
		%>
		<table width="90%" height="222" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="67%"><div align="center">No Notices ！</div></td>
            </tr>
            

            <tr>
              <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
            </tr>
            <tr>
              <td height="20"><div align="right"><img src="<%=weburl%>images/more.gif" width="36" height="9" /></div></td>
            </tr>
        </table>
		<%else%>
		<table width="90%" height="222" border="0" align="center" cellpadding="0" cellspacing="0">
           <%
			while not rsg.eof
			%>
		    <tr>
              <td width="67%" height="25"><img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="<%=weburl%>gg_list.asp?id=<%=rsg("id")%>" title=<%=rsg("zt")%>（<%=year(rsg("adddate"))%>年<%=month(rsg("adddate"))%>月<%=day(rsg("adddate"))%>日发布）>
                      <%if len(trim(rsg("zt")))>12 then
	response.write left(trim(rsg("zt")),29)&""
	else
	response.write trim(rsg("zt"))
	end if%>
                </a></td>
            </tr>
            
            <tr>
              <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
            </tr>
			<%
			rsg.movenext
		    wend
			
			%>
            
            <tr>
              <td height="20"><div align="right"><a href="<%=weburl%>gg_show.asp"><img src="<%=weburl%>images/more.gif" width="36" height="9" border="0" /></a></div></td>
            </tr>
        </table>
		<%end if
		rsg.close
		set rsg=nothing%>		</td>
      </tr>
              </table></td>
            </tr>
          </table></td>
      </tr>
    </table> <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table></td>
          <td width="9"></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->

<%
Sub PageControl(iCount,pagecount,page,table_style,font_style,per_page)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
	
    temp=""

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条/每页"&per_page&"条" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=4 Maxlength=8 VALUE=" & page & " class=wenbenkuang>" & "页"  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO  class=go-wenbenkuang>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%> <td>
</td>
  </tr>
</table>
</body>
</html>