<%
if isChkInteger(request("web_id")) then
web_id=request("web_id")
elseif isChkInteger(web_id) then
web_id=web_id
else
Response.Redirect ("../../index.asp")
end if
sql="select * from snsn_user where id="&web_id
Set rsskiin= Server.CreateObject("ADODB.Recordset") 
rsskiin.open sql,conn,1,1
if rsskiin.eof or rsskiin.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此用户，请确认后或联系管理员再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
else
logindate=rsskiin("logindate")
h_i=rsskiin("h_i")
h_i=split(h_i,",")
skin=h_i(0)
home=h_i(1)
home1=h_i(2)
mini=h_i(3)
mini1=h_i(4)
xx=h_i(5)
xx1=h_i(6)
xc=h_i(7)
xc1=h_i(8)
sc=h_i(9)
sc1=h_i(10)
jy=h_i(11)
jy1=h_i(12)
xd=h_i(13)
xd1=h_i(14)
rj=h_i(15)
rj1=h_i(16)
lt=h_i(17)
lt1=h_i(18)
ly=h_i(19)
ly1=h_i(20)
yy=h_i(21)
h_i2=rsskiin("h_i2")
h_i2=split(h_i2,",")
mini2=h_i2(0)
xc2=h_i2(1)
sc2=h_i2(2)
jy2=h_i2(3)
xd2=h_i2(4)
rj2=h_i2(5)
lt2=h_i2(6)
ly2=h_i2(7)
fw=h_i2(8)
showqq=rsskiin("h_mf")
end if
rsskiin.close
set rsskiin=nothing

sql="select * from snsn_count where userid="&web_id
Set rscount= Server.CreateObject("ADODB.Recordset") 
rscount.open sql,conn,1,1
if rscount.eof or rscount.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此用户，请确认后或联系管理员再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
else
if session("over")<>web_id or session("count")="" then

    if datediff("d",rscount("daydate"),now())<1 then
	conn.execute("update snsn_count set dayhit=dayhit+1 where userid="&web_id)
	tmprs=conn.execute("Select dayhit From snsn_count where userid="&web_id)
	dayhit=tmprs(0)
    else
	conn.execute("update snsn_count set dayhit=1,daydate=getdate() where userid="&web_id)
	tmprs=conn.execute("Select dayhit From snsn_count where userid="&web_id)
	dayhit=tmprs(0)
    end if
   
    set tmprs=nothing
    
	conn.execute("update snsn_count set hit=hit+1 where userid="&web_id)
	tmprs=conn.execute("Select hit From snsn_count where userid="&web_id)
	hit=tmprs(0)
    set tmprs=nothing
    session("over")=web_id
    session("count")=true
else
'session("over")=""
    dayhit=1
	tmprs=conn.execute("Select dayhit From snsn_count where userid="&web_id)
	dayhit=tmprs(0)
	
	tmprs=conn.execute("Select hit From snsn_count where userid="&web_id)
	hit=tmprs(0)
    set tmprs=nothing
end if
end if

rscount.close
set rscount=nothing










sql="select count(id) from snsn_bbs where userid="&web_id&" and ldate>=getdate()-1"
set totle=conn.execute(sql)
totle=totle(0)
web_bbs_datetime=totle
sql="select count(id) from snsn_guestbook where userid="&web_id&" and adddate>=getdate()-1"
set totle=conn.execute(sql)
totle=totle(0)
web_guestbook_datetime=totle
web_diary_datetime=1
web_xd_datetime=0
sql="select count(id) from snsn_Shoucang where u_id="&web_id&" and adddate>=getdate()-1"
set totle=conn.execute(sql)
totle=totle(0)
web_sc_datetime=totle
web_mini_datetime=0
'sql="select count(id) from snsn_uppic where userid="&web_id&" and ldate>=getdate()-1"
sql="select count(snsn_uppic.id) from snsn_uppic,snsn_user where snsn_uppic.username=snsn_user.username and snsn_user.id="&web_id&""
set totle=conn.execute(sql)

totle=totle(0)
web_xc_datetime=totle
set mouse2=conn.execute("select id,mouse1  from snsn_user where id="&web_id&"")
%> 
<style type="text/css">
body{
CURSOR: url("http://www.snsn.net/img/mouse1/<%=mouse2("mouse1")%>")
}
</style>