recharge_user.asp

来自「Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件」· ASP 代码 · 共 47 行

ASP
47
字号
<!--#include file="User_conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>1</title>
<link href="Images/css.css" rel="stylesheet" type="text/css">
</head>
<%

Dim  UserHS
 Set UserHS = New Art_User
		IF Cbool(UserHS.UserLoginChecked)=false then
		  Response.Write "<script>top.location.href ='login.asp' ;</script>"
		  Response.end
		  End If


		Select Case S("Action")
	     Case "Recharge"
		    Call Recharge()
		 case "Exchange"
		    call Exchange()
		End Select
	  
	   
	   Sub Recharge()
	    %>

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder"    align=center>   
  <tr>
    <td align="center"><img src="../Images/usercz.jpg" /></td>
  </tr></TABLE>

<%    
end sub

sub Exchange()

%>        
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder"    align=center>   
  <tr>
    <td align="center"><img src="../Images/usermoney.jpg" /></td>
  </tr></TABLE>
	   <%
	   End Sub
%> 
<% Set UserHS = Nothing:call CloseConn() %>

⌨️ 快捷键说明

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