ǵƷһЩ룬ԲοԼļġ6.0
ЩƷҲ޷ʹá

ƨ
login.asp
chklogin() ĺ
Call UpdateMenPai()

/////////////µĺӶȼ,ǶԸƨʹ/////////
Sub UpdateMenPai()
Dim username
Dim MenPaiGroupId,MenPaiTitleId,MenPaiFlag,Marticle,MuserWealth,MuserEP,MuserCP,YaoQiu
username=Request.Cookies("aspsky")("username")
sql="select GroupId,UserTitleId from [User] where UserName='"&username&"'"
set rs=ShopConn.execute(sql)
if not rs.eof then
	MenPaiGroupId=rs("GroupId")
	MenPaiTitleId=rs("UserTitleId")
	MenPaiFlag=1
else
	MenPaiFlag=0
end if
rs.close

if MenPaiFlag=1 then' ˹
	sql="select Article,userWealth,userEP,userCP from [user] where UserName='"&username&"'"
	set rs=conn.execute(sql)
	if not rs.eof then
		Marticle=rs("article")
		MuserWealth=rs("userWealth")
		MuserEP=rs("userEP")
		MuserCP=rs("userCP")
	else
		Marticle=0
		MuserWealth=0
		MuserEP=0
		MuserCP=0
	end if
	rs.close
	sql="select UserTitleId from [UserTitle] where UserGroupId="&MenPaiGroupId&" and UserClass<>-1 and ArticleNumber<="&Marticle&" and UserEP<="&MuserEP
	sql=sql&" and UserCP<="&MuserCP&" and UserMoney<="&MuserWealth&" Order By UserClass desc"
	set rs=ShopConn.execute(sql)
	if not rs.eof then
		sql="update [User] set UserTitleId="&rs("UserTitleId")&" where UserName='"&username&"'"
		ShopConn.execute(sql)
	end if
	rs.close
	dim mytitle,mymessage
	sql="select * from itemuse where ToName='"&membername&"' and ItemClass=7"
	set rs=ShopConn.execute(Sql)
	if not rs.eof then
		mytitle=""
		mymessage="û ["&membername&"] Ѿ"
		sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&rs("FromName")&"','','"&mytitle&"','"&mymessage&"',Now(),0,1)"
		Conn.execute(sql)
	end if
	rs.close
	
	ShopConn.close
	set ShopConn=nothing
end if

set rs=nothing
End Sub


򡢱
dispbbs.aspǹԱλü
<b>ʹõ</b> <a href="menpai/bbsshop/useitemadv.asp?ItemId=8&BoardID=<%=BoardID%>&ID=<%=Announceid%>" title="ʹ̶">ʹ</a> 
      <a href="menpai/bbsshop/useitemadv.asp?ItemId=9&BoardID=<%=BoardID%>&ID=<%=Announceid%>" title="Ϊ">ʹñ</a> 



online_l.asp114ҵĿ϶
	'뿪ʼ
	Dim DBPath,ShopConn,shoprs
	DBPath=Server.MapPath("menpai/menpaidb.asp")    'ݿλ
	Set ShopConn=server.CreateObject("adodb.connection")
	ShopConn.Open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
	
	sql="select ItemCount from itemown where OwnerName='"&membername&"' and ItemId=10"
	set shoprs=ShopConn.execute(sql)
	if not shoprs.eof then
		thiefdog=shoprs("ItemCount")
	else
		thiefdog=0
	end if
	shoprs.close
	ShopConn.close
	set shoprs=nothing
	set ShopConn=nothing
	if thiefdog>0 then
		dogword="<a href=menpai/bbsshop/useitem.asp?ItemId=10&ToName="&rs(0)&">ʹû</a>"
	end if
	'
	
	ȻʵطdogwordʾͿ


Ʒʹˡ


ļֻΪһοΪԭļԭļԾûпֱӸԭ̳ļķҪʮȫʮĳǱȽ鷳ģһЩƷʹˡʵʸĶʲôɵ̳ԡ