www.pudn.com > wap-wscs.rar > pl.asp, change:2014-08-10,size:1358b


<!--#include file="conn.asp"--> 
<% 
Set usinfo =New userinfo 
userid=usinfo.usinfo(gsid,"userid") 
pl=usinfo.usinfo(gsid,"pl") 
Set usinofo = Nothing  
act=request.querystring("act") 
code=request.form("code") 
Call myhead("清洗疲劳") 
Call echo("如果发现刷怪过程中收益越来越少,记得要来洗洗疲劳哦!",1) 
If act="clear" Then  
			Call echo("<form name=login action=""pl.asp?act=login&gsid="&gsid&"&t="&t&""" method=POST style=margin:0px;>",0) 
			If second(now()) Mod 2 Then  
			Call yzcode(sj(),sj()) 
			Call echo(urlencode("pl.asp?act=clear","刷新"),1) 
			call echo("答案:<input name=code type=text>",1) 
			Else  
			Call echo("<img src=""../login/code.asp?"&now()&"""/>"&urlencode("pl.asp?act=clear","刷新"),1)	 
			Call echo("验证码:<input name=code type=text>",1) 
			End If  
			Call echo("<input name=login type=submit value=清洗 class=buttonface>",0) 
			Call echo("</form>",0) 
ElseIf act="login" Then  
	If UCase(code)=UCase(session("code")) Then  
	Call echo("清洗完毕!",1) 
	If pl>=0 Then  
	Call chinfo(userid,"pl",0) 
	End If  
	Else 
	Call echo("请输入正确的答案",1) 
	End If  
Else  
If pl<=0 Then pl=0 
Call echo("你当前的疲劳度为:"&pl,1) 
Call echo(urlencode("pl.asp?act=clear","马上清洗"),1) 
End If  
Call echo(urlencode("../index.asp","返回游戏"),1) 
Call myend() 
%>