mei.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->

<%
if lgname="" then
response.write"<img border='0' src='pic/guest.gif' align='absmiddle'> 游客您好。请先登陆<img border='0' src='pic/go.gif' align='absmiddle'>用户名：<input size='10' name='lgname'>&nbsp;密&nbsp; 码：<input type='password' size='10' value name='lgpwd'> Cookies：<select style='FONT-SIZE: 9pt' size='1' name='cook'><option value='j0' selected>不保存</option><option value='j1'>保存一天</option><option value='j30'>保存一月</option><option value='j365'>保存一年</option></select> <input type='submit' value='登 陆' name='B1'> <input type='reset' value='重 置' name='b2'>"
else
response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><th valign=middle colspan=2 align=center height=25><b>社区酒吧</b></td></tr><tr><td valign=middle class=tablebody1 height=100><CENTER>"
my=membername%>


<%
dim r 
set rs=myconn.execute("select * from user where name='"&lgname&"'")
if rs.eof and rs.bof then
        response.write "你还没有登录论坛呢，不能进酒吧"
	conn.close
	response.end

else
       	mymoney=rs("qian")
	if rs("meili")>1000 and rs("qian")>10000 then
		randomize timer
		r=int(rnd*6)
		if r=1 then
                    upji=myconn.execute("update user set meili=meili+1000,qian=qian-1000 WHERE name='"&lgname&"'")
			response.write "由于你是留学生，对方小姐是北大的学生,你们很投缘，你们确认了恋爱关系，准备发展结婚了，你的魅力增加了1000点,嘿，只花了1000元的酒费!"
			response.end
		elseif r=2 then
	              
                      upji=myconn.execute("update user set meili=meili+5000,qian=qian-10000 WHERE name='"&lgname&"'")
			
			response.write "你是个色狼，对方是个荡妇，你们说了没两句就去酒店一夜情去了，花了你一共10000元，不过魅力长了5000点哦!"
			response.end
		elseif r=3 then
		
                      upji=myconn.execute("update user set meili=meili-300,qian=qian-1000 WHERE name='"&lgname&"'")
		
			                        response.write "你长的这样还来泡妞，撒泡尿照照镜子去，比正中基还丑，滚！你白花了1000元酒费，魅力减少300点了!"
			response.end
		elseif r=4 then
		
                      upji=myconn.execute("update user set meili=meili-200,qian=qian-2000 WHERE name='"&lgname&"'")
			response.write "很不幸，碰到了妓女，妓女你也干？你嫖娼花了2000元，魅力减少200点了!"
			response.end
		elseif r=5 then
		
                      upji=myconn.execute("update user set meili=meili-500,qian=qian-5000 WHERE name='"&lgname&"'")
			response.write "很不幸，你碰到了骗子，骗了你5瓶酒还不跟你上床？你白花了5000元，魅力减少500点了!"
			response.end
	    else
		
		
                    upji=myconn.execute("update user set meili=meili+1000,qian=qian+5000 WHERE name='"&lgname&"'")
			response.write "很爽，你太帅了，好多女的喜欢你？你当了一次小白脸，姐姐妹妹们给了你5000元，魅力增加1000点了!"
			response.end
			
			
		end if

	else
		response.write "没钱没魅力也想泡女人?小姐们一番讥讽把你轰走门口，滚！有钱再来"
		
		response.end
	end if
%>



<%end if%>
<% 
'response.write "</CENTER></td></tr></table>"   
end if  
 
%>