<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
Call saycardd("社区网店")
dim Action
Action=Request.QueryString("Action")

dim TP,b,i
TP=request.querystring("TP")
if TP="" then TP=1

IF  Action<>"save" Then

b=request("b")
if b="" or Isnumeric(b)=Falsh then b=1
for i=b to b+2
if TP=1 then
if i>20 then exit for
else
if i>15 then exit for
end if
	img=""&i
if TP=1 then

img="images/boy/"&img&".jpg"
else
img="images/mm/"&img&".jpg"
end  if

response.write "<img src="""&img&""" alt=""photo"" /><br/>"

response.write "<anchor title=""选择作为头像"">选择作为头像"
response.write "<go href=""shop.asp?action=save&amp;TP="&TP&"&amp;pic="&img&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
response.write "<postfield name=""pic"" value="""&img&"""/>"
response.write "</go></anchor><br/>"
next
if TP=1 then
if b<20 then response.write "<a href=""shop.asp?TP="&TP&"&amp;b="&b+3&"&amp;saytk="&saytk&"&amp;sid="&sid&""">下页</a>"
else
if b<15 then response.write "<a href=""shop.asp?TP="&TP&"&amp;b="&b+3&"&amp;saytk="&saytk&"&amp;sid="&sid&""">下页</a>"
end if
if b>2 then response.write " <a href=""shop.asp?TP="&TP&"&amp;b="&b-2&"&amp;saytk="&saytk&"&amp;sid="&sid&""">上页</a> "
response.write "<br/><a href='shop.asp?TP=1&amp;saytk="&saytk&"&amp;sid="&sid&"'>帅哥头像</a><br/>"
response.write "<a href='shop.asp?TP=2&amp;saytk="&saytk&"&amp;sid="&sid&"'>MM 头像</a><br/>"
'response.write "<a href='photofile.asp?TP=1&amp;saytk="&saytk&"&amp;sid="&sid&"'>&gt;&gt;上传头像</a><br/>"
else
dim pic
pic=Request.QueryString("pic")
conn.Execute("update users set photo='"&pic&"' where id="&myid)

response.write "头像更改成功！<br/>"
end if
response.write "------------"
%>
<!--#include file="fanhui.asp"-->
<%
conn.close
set conn=Nothing
Call head1()%>
