📄 payformoli.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<%
call chk(rst("mlid"),"id")
%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="chksession.asp" -->
<!-- #include file="head2.asp" -->
<html>
<head>
<TITLE><%=webname%>--会员管理中心---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%
response.buffer=true
dim user
user=session("user")
sql="select * from users where regUsername='"&user&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

set rsml=server.createobject("adodb.recordset")
sql="select * from vqqqmoli where moliid="&rst("mlid")&" and moliownerid=0"
rsml.open sql,conn,1,3
if rsml.eof then
	response.write "<script language=javascript>alert('出错了，没有找到这个vqqq魔力！');this.location.href='vqqqmoli.asp';</script>"
	response.end
else
if rs("vqqqmoney")>=rsml("molicost") then
rs("vqqqmoney")=rs("vqqqmoney")-rsml("molicost")
rs.update
else
	response.write"<script langauge=javascript>alert('你的现有资金不够了，请先充值！');this.location.href='vqqqmoli.asp';</script>"
	response.end
end if
rsml("moliownerid")=rs("regid")
rsml.update
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="760" align=center>
  <TBODY>
  <TR>
    <TD align=left vAlign=top width=150> 
      <!--#include file="vqqqleft.asp" -->
    </TD>
    <TD width=5>&nbsp;</TD>
    <TD align=left vAlign=top>
      <TABLE align=top border=0 cellPadding=4 cellSpacing=0 width="100%">
        <TBODY>
        <TR height=20>
          <TD width=256><FONT id=b2>欢迎您，<%=rs("reguserName")%></FONT>&nbsp;&nbsp;<a href=usercredit.asp?vqqqid=<%=rs("regusername")%> target=_blank>查看信用详情</a></TD>
          <TD>注册邮箱：<%=rs("regEmail")%></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 id=lg101 width="100%">
        <TBODY>
        <TR id=bg02>
          <TD height=5 width=12></TD>
          <TD></TD>
          <TD width=12></TD></TR>
        <TR id=bg02>
          <TD width=12></TD>
          <TD height=30 id=b1 align=center>
          <br><br><br><br>恭喜你，购买道具成功！&nbsp;&nbsp;<a href="vqqqmoli.asp">继续购买</a>&nbsp;&nbsp;<a href="vqqqboughtml.asp">使用道具</a>
          </TD>
          <TD width=12>&nbsp;</TD></TR>
        <TR id=bg02>
          <TD height=5 width=12></TD>
          <TD></TD>
          <TD width=12></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR id=bg02>
          <TD height=20 width=99>&nbsp;</TD>
          <TD width=26>&nbsp;</TD>
          <TD>
          &nbsp;
          </TD>
          </TR></TBODY>
          </TABLE><BR>
          </TD></TR>
          </TBODY></TABLE><BR>
<%end if%>
<%
rsml.close
set rsml=nothing
rs.close
set rs=nothing
%>
</BODY></HTML>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -