会员等级、图片分性别显示
一、修改login.asp文件找到UserClass=rsUser(0),大概是734行,将UserClass=rsUser(0)修改为:
Dim SexUserClass
SexUserClass=Split(rsUser(0),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rsUser(0)
Else
UserClass=SexUserClass(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@user***\").text)
End If
二、修改reg.asp文件
找到UserClass=rs(0),大概是422行,将UserClass=rs(0)修改为:
Dim SexUserClass
SexUserClass=Split(rs(0),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rs(0)
Else
UserClass=SexUserClass(Sex)
End If
三、修改savepost.asp文件
**** Hidden Message *****
页:
[1]