money.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD width=200 bgColor=#f4f4f4>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
		
        <TR borderColor=#999999>
          <TD vAlign=center align=middle><IMG height=8 alt="" 
            src="image/stu.htm" width=1 name=""></TD></TR>
        <TR>
          <TD vAlign=top height=350>
          
				<TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="90%" align=center 
bgColor=#ffffff>
              <TBODY>
<TR>
                <TD>
                  <DIV align=center><IMG height=37 
                  src="image/vnews2.gif" width=180></DIV></TD></TR>
              <TR>
                <TD class=6>
                  <TABLE cellSpacing=6 cellPadding=0 width="100%" 
                    align=center><TBODY>
                    <TR>
                      <TD>
                        <TABLE id=AutoNumber2 style="BORDER-COLLAPSE: collapse" 
                        cellSpacing=0 cellPadding=3 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD colSpan=2 height=22 align=left>
							<%set rs=conn.execute ("select count(*) from mo")%>                              <div align="center">总计赠送<span style="color: #FF0000"><%=rs(0)%></span>次<br>
                                  <a href="viewmoney.asp"><span style="color: #FF0000">查看所有赠送纪录</span></a></div> 
                              <br>                                
    <%dim i,rs,sql,tt,rr
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 15 * from mo order by date desc"
rs.open sql,conn,1,1
if rs.eof then
%>
                                  还没有金钱交易
				                  <%else

i=0
	do While not rs.eof
set rt=Server.CreateObject("Adodb.Recordset")
set re=Server.CreateObject("Adodb.Recordset")
rt.open "select name from user where username='"&rs("sender")&"'",conn,1,3
re.open "select name from user where username='"&rs("accept")&"'",conn,1,3%>                                
				                  <%=rt("name")%>送给<%=re("name")%><%=rs("money")%>元<BR>                                
				                  <%i=i+1
		Rs.movenext
		if i=15 then
		exit do
		end if
	loop
	    rs.close
	  set rs= nothing
end if%>                              
				                  </TD>
                          </TR></TBODY></TABLE>                        </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
            <TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%" 
            align=center border=0>
              <TBODY>
              <TR>
                <TD align=middle width="100%"><IMG height=8 alt="" 
                  src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
           </TD></TR></TBODY></TABLE></TD>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD height=26 vAlign=top bgcolor="#F7E7BD">
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <a href="index.asp">网站首页</a> - 金钱交易</TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                       src="image/more.gif" 
                    border=0></DIV></TD></TR>
                    </TBODY></TABLE>
                  　　<span style="font-size: 12px; color: #000000;">提示：
此金钱仅限于本站内使用，由于这一版刚加入此金钱功能，所以其金钱作用还不够大，待下次改版，我将加强其作用，有些栏目和功能使用只有达到一定金钱值时才能使用。<br>
 　　
此交易不可逆转</span></TD>
              </TR>
              <TR>
                <TD vAlign=top height=26>
<%Select Case Request.QueryString("type2")
	Case "add":
		Call add
	Case Else:
		 call show
End Select 
sub show
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select money from user where username='"&Session("wzname")&"'"
rs.open sql,conn,1,3%>
				<form action="?type2=add" method="post"><table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#CCCCCC">
                  <tr>
                    <td colspan="2">　　　　　　　　注意：你现在拥有<span style="color: #FF0000">
                      <% if session("wzname")<>"" then%><%=rs("money")%>
<input name="mom" type="hidden" id="mom" value="<%=rs("money")%>">
<%end if%></span>元钱</td>
                    </tr>
                  <tr>
                    <td width="26%"><div align="right">送给人：</div></td>
                    <td width="74%"><input name="username" type="text" id="username" size="15">                      
                      (填用户名)</td>
                  </tr>
                  <tr>
                    <td><div align="right">金钱数：</div></td>
                    <td><input name="money" type="text" id="money" size="15">
                      元</td>
                  </tr>
                
                  <tr>
                    <td colspan="2">　　　　　　　输入的钱数不能大于自己现有的数目</td>
                    </tr>
                  <tr>
                    <td colspan="2"> 　　　　　　　　　　                          
                      <%  If session("wzname")="" Then%>
<font color=red>只有登录才能留言!</font>
<%else%>
 <input type="submit" name="Submit2" value="提交">　
                  <input type="reset" name="Submit3" value="重置">
<%End If%>                      </td>
                    </tr>
                </table></form>
<%end sub
sub add
dim dr
if request.form("username")="" then
	Response.Write("你送给谁啊？")
	exit sub
end if
money=clng(request.form("money"))
mom=clng(request.form("mom"))
	if money="" then
		Response.Write("我怎么知道你送多少钱啊？")
	exit sub
	end if
	if money>mom or mom=<0 or mom-money=<0 or money<1 then
		Response.Write("你的金钱数不够，无法进行此操作")
	exit sub
	end if
		set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from user where username='"&request.form("username")&"'"
rs.open sql,conn,1,3
	if rs.eof then
		Response.Write("受赠人不存在，请核对其它帐号")
	exit sub
	end if
		rs.close
	set rs=nothing
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where username='"&Session("wzname")&"'"
rs.open sql,conn,1,3
if rs("money")-money=<0 then
Response.Write("你的金钱数不够，无法进行此操作")
	exit sub
	end if
		rs("money")=rs("money")-money
	rs.update
	rs.close
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where username='"&request.form("username")&"'"
rs.open sql,conn,1,3
		rs("money")=rs("money")+money
	rs.update
	rs.close
	set rs=nothing
set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from mo where 1=2",conn,1,3
	rs.addnew()
		rs("accept")=request.form("username")
		rs("money")=money
		rs("sender")=Session("wzname")
		rs("date")=now()
	rs.update
	rs.close
set rs=nothing
	Response.Write("谢谢你的赠送，欢迎下次再来")
	end sub%>
</TD>
              </TR>
              </TBODY>
 </TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>