📄 mymoney.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="md5.asp"-->
<html>
<head>
<title>论坛金钱转帐工具</title>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<body>
<%
login=Request.Cookies("login")
username=Request.Cookies("username")
if login="Y" then
xgup=cint(Request.QueryString("xgup"))
sql="SELECT top 1 * FROM 用户资料 where 用户名='"&username&"' "
sql1="SELECT top 1 * FROM 用户资料 where 用户名='"&Request.form("zname")&"' "
Set rs = Server.CreateObject("ADODB.Recordset")
set rs1= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs1.Open sql1,conn,1,3
if xgup>0 then
if not(rs.BOF and rs.EOF) and not(rs1.BOF and rs1.EOF) then
if username=rs("用户名") and md5(Request.Form("pass"))=rs("密码") then
rs("金钱")=rs("金钱")-cint(Request.Form("size"))
rs1("金钱")=rs1("金钱")+cint(Request.Form("size"))
rs.Update
rs1.Update
Response.Write "转帐成功!!!"
else
Response.Write "用户名或密码有误"
end if
else
Response.Write "<br><br><br>没有找到这二个帐户或其中一个!!!<br><br><br><br>"
end if
else
%>
<form name="mymoney" method="post" action=mymoney.asp?xgup=1>
<table>
<tr><td colspan=2 class=light1>下面的内容必须都填清楚</td></tr>
<tr><td width=100 class=light>你的用户名</td><td><%=rs("用户名")%></td></tr>
<tr><td class=light>帐户金钱数额</td><td><%=rs("金钱")%></td></tr>
<tr><td class=light>你的用户密码</td><td><input type=password name=pass size=10></td></tr>
<tr><td class=light>对方的用户名</td><td><input type=text name=zname size=10></td></tr>
<tr><td class=light>转帐的金额</td><td><input type=text name=size size=8></td></tr>
<tr><td colspan=2 align=center><input type=Submit value="确定" name=add> <input type="reset" name="Clear" value="重写"></td></tr>
</table>
</form>
<%
end if
rs.Close
rs1.Close
set rs=nothing
set rs1=nothing
set conn=nothing
else
Response.Write "<br><br><br>你登未登陆<br><br><br><br>"
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -