mydb

最新推荐文章于 2024-04-19 09:40:20 发布
最新推荐文章于 2024-04-19 09:40:20 发布
阅读量1.5k 收藏
点赞数
分类专栏： ASP.NET工作日志 文章标签： string function integer dataset mysql authentication
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xuandhu/article/details/196233
版权

Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.UI.Page
Imports System.Web.HttpContext
Imports System.Web.Mail

Public Class mydb
    '过程说明:
    'GETTABLE 输入一个SQL得到一个TABLE
    'record_del 删除记录号,可重载,输入记录号,表名,无返回
    'SQLExecuteNonQuery 执行SQL,可重载,输入SQL,库名,无返回

    '在WEB.CONFGI中的配置如下,加在<configuration>下面
    '<appSettings>
    '<add key="mydatabasepath" value="~/data/database.mdb"></add>
    '<add key="MYdatabaseconn" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="></add>
    '</appSettings>

    '作用:打开一个DATASET表
    '参数:传一个SQL语句
    'Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/database.mdb"))
    'Dim mysql As String = "select * from articles"
    'Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/database.mdb"))

    '***********************************************************
    'find a record,return Boolean value
    '本过程依敕GETTABLE过程
    '***********************************************************
    Public Overloads Shared Function findrecord(ByVal mysql As String) As Boolean
        Dim mytable As DataTable = gettable(mysql)
        If mytable.Rows.Count = 0 Then
            Return False
        Else
            Return True
        End If
    End Function
    '***********************************************************
    'GET TABLE
    '***********************************************************
    Public Overloads Shared Function gettable(ByVal mysql As String) As DataTable
        Try
            Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
            '        Dim myconnection As New OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings.Item("MYdatabaseconn") & System.Web.HttpContext.Current.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings.Item("mydatabasepath")))
            Dim mydataadapter As New OleDbDataAdapter(mysql, myconnection)
            Dim mydataset As New DataSet
            mydataadapter.Fill(mydataset, "table0")
            HttpContext.Current.Cache("mycache") = mydataset.Tables(0)
            '删除:Cache.Remove("mycache")
            If mydataset.Tables(0).Rows.Count = 0 Then
                'System.Web.HttpContext.Current.Response.Write("<script>alert('error:no data record'');</script>")
            End If
            myconnection.Close()
            Return mydataset.Tables(0)
        Catch ex As Exception
        End Try
    End Function
    Public Overloads Shared Function gettable(ByVal myint As Integer) As DataTable
        Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
        '        Dim myconnection As New OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings.Item("MYdatabaseconn") & System.Web.HttpContext.Current.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings.Item("mydatabasepath")))
        Dim mydataadapter As New OleDbDataAdapter("select * from product where boardid=" & myint.ToString & " order by id ", myconnection)
        Dim mydataset As New DataSet
        mydataadapter.Fill(mydataset, "table0")
        HttpContext.Current.Cache("mycache") = mydataset.Tables(0)
        '删除:Cache.Remove("mycache")
        myconnection.Close()
        Return mydataset.Tables(0)
    End Function

    '***********************************************************
    'DELETE ROW
    '***********************************************************
    Public Shared Sub rowsdelete(ByVal mysql As String)
        Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
        '  Dim myconnection As New OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings.Item("MYdatabaseconn") & System.Web.HttpContext.Current.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings.Item("mydatabasepath")))
        Dim mydataadapter As New OleDbDataAdapter(mysql, myconnection)
        Dim mydataset As New DataSet
        mydataadapter.Fill(mydataset, "table0")
        Dim mybuild As New OleDbCommandBuilder(mydataadapter)
        mydataset.Tables(0).Rows(0).Delete()
        mydataadapter.Update(mydataset, "table0")
        myconnection.Close()
    End Sub
    '***********************************************************
    'GET dataset
    '***********************************************************
    Public Overloads Shared Function getdataset(ByVal mysql As String) As DataSet
        Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
        '        Dim myconnection As New OleDbConnection(System.Configuration.ConfigurationSettings.AppSettings.Item("MYdatabaseconn") & System.Web.HttpContext.Current.Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings.Item("mydatabasepath")))
        Dim mydataadapter As New OleDbDataAdapter(mysql, myconnection)
        Dim mydataset As New DataSet
        mydataadapter.Fill(mydataset, "table0")
        HttpContext.Current.Cache("mycache") = mydataset.Tables(0)
        '删除:Cache.Remove("mycache")
        If mydataset.Tables(0).Rows.Count = 0 Then
            'System.Web.HttpContext.Current.Response.Write("<script>alert('error:no data record'');</script>")
        End If
        myconnection.Close()
        Return mydataset
    End Function
    '***********************************************************
    'DELETE RECORD
    '***********************************************************
    Public Overloads Shared Sub record_del(ByVal myid As Integer)
        Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
        Dim mycommand As OleDbCommand = New OleDbCommand("delete from articles where id=" & myid, myconnection)
        myconnection.Open()
        mycommand.ExecuteNonQuery()
        myconnection.Close()
    End Sub
    Public Overloads Shared Sub record_del(ByVal myid As Integer, ByVal mytablename As String)
        Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
        Dim mysql As String = "delete from " & mytablename
        mysql += " where id="
        mysql += myid.ToString
        Dim mycommand As OleDbCommand = New OleDbCommand(mysql, myconnection)
        myconnection.Open()
        mycommand.ExecuteNonQuery()
        myconnection.Close()
    End Sub
    Public Overloads Shared Function record_delete(ByVal myid As Integer, ByVal mytablename As String) As Boolean
        Try
            Dim mysql As String = "delete from " & mytablename & " where id=" & myid.ToString
            Dim mysql2 As String = "select * from " & mytablename & " where id=" & myid.ToString

            If mydb.findrecord(mysql2) = False Then
                Return False
            Else
                Dim myconnection As New OleDbConnection(CommunityGlobals.ConnectionString)
                Dim mycommand As OleDbCommand = New OleDbCommand(mysql, myconnection)
                myconnection.Open()
                mycommand.ExecuteNonQuery()
                myconnection.Close()
            End If
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    '***********************************************************
    'MY TEST
    '***********************************************************
    Public Shared Function test() As Boolean
        System.Web.HttpContext.Current.Response.Write("<script>alert('ERROR:DATABASE CONNECTION IS ERROR!'');</script>")
        Return True
    End Function

    '***********************************************************
    '作用:路径的后期处理
    '输入如下()
    'http://localhost/nankang/Controls/WebForm9.aspx?a=dd&bb=fasdfsad&cc=43
    '得到
    'a  dd
    '   bb  fasdfsad
    '  cc 43
    '***********************************************************
    Public Shared Function FORMAT_QUERYSTRING()
        ' Dim k As Integer
        'Dim cool As System.Collections.Specialized.NameValueCollection = Request.QueryString
        '  Dim arr1() As String = cool.AllKeys
        ' For k = 0 To arr1.GetUpperBound(0)
        ' Response.Write(arr1(k))
        ' Response.Write(cool.GetValues(k)(0))
        ' Response.Write("<br>")
        ' Next
    End Function
    '***********************************************************
    'MY FORMAT CHAR
    '***********************************************************
    Public Shared Function FORMAT_MORE(ByVal obj As Object)
        If obj Is Nothing Then
            Return ""
        Else
            Dim text As String = obj.ToString()
            If Len(text) > 8 Then
                Return text.Substring(0, 8) & "......."
            Else
                Return text
            End If
        End If
    End Function
    Public Shared Function FORMAT_MORE(ByVal obj As Object, ByVal N As Integer)
        If obj Is Nothing Then
            Return ""
        Else
            Dim text As String = obj.ToString()
            If Len(text) > N Then
                Return text.Substring(0, N) & "......"
            Else
                Return text
            End If
        End If
    End Function 'FORMAT CHAR
    Public Shared Function FORMAT_MORE2(ByVal obj As Object, ByVal N As Integer)
        If obj Is Nothing Then
            Return ""
        Else
            Dim text As String = obj.ToString()
            If Len(text) > N Then
                Return text.Substring(0, N) & "......"
            Else
                Return text
            End If
        End If
    End Function 'FORMAT CHAR
    Public Shared Function FORMAT_datetime_ymd(ByVal my_datetime As String) As String
        Dim mydatetime As Date = CDate(my_datetime)
        Return mydatetime.Year.ToString + "." + Right("0" & mydatetime.Month.ToString, 2) + "." + Right("0" & mydatetime.Day.ToString, 2)
    End Function
    '***********************************************************
    'MY FORMAT URL
    '例: WWW.21CN.COM?AA=ABC&PAGE=1   返回值WWW.21CN.COM?AA=ABC&
    '作用:解决分页显示的问题
    '***********************************************************
    Public Shared Function format_URL() As String
        If System.Web.HttpContext.Current.Request.ServerVariables("QUERY_STRING") = "" Then
            Return System.Web.HttpContext.Current.Request.ServerVariables("URL") & "?"
        Else
            Dim MYURL As String = (System.Web.HttpContext.Current.Request.ServerVariables("URL") & "?" & System.Web.HttpContext.Current.Request.ServerVariables("QUERY_STRING")).ToUpper
            Dim l As Integer = MYURL.IndexOf("PAGE=".ToUpper)
            If l > 0 Then
                Return (MYURL.Substring(0, l))
            Else
                Return MYURL & "&"
            End If
        End If
    End Function
    '***********************************************************
    'MY FORMAT memory field
    '例: a b   返回值a&nbsp;b
    '作用:解决备注字段的转换
    '***********************************************************
    Public Shared Function format_memory(ByVal memory_field As String) As String
        '   memory_field = Replace(System.Web.HttpContext.Current.Server.HtmlEncode(memory_field), Chr(13), "<BR>", 1)  'enter
        '  memory_field = Replace(System.Web.HttpContext.Current.Server.HtmlEncode(memory_field), Chr(32), "&nbsp;", 1)  'sPACEBAR
        memory_field = Replace(memory_field, Chr(13), "<BR>", 1)  'enter
        memory_field = Replace(memory_field, Chr(32), "&nbsp;", 1)  'sPACEBAR
        Return memory_field
    End Function
    '***********************************************************
    'MY FORMAT memory field
    '例: a b   返回值a&nbsp;b
    '作用:解决备注字段的转换
    '***********************************************************
    Public Shared Function format_memory_rest(ByVal memory_field As String) As String
        memory_field = Replace(System.Web.HttpContext.Current.Server.HtmlDecode(memory_field), "<BR>", Chr(13), 1)
        memory_field = Replace(memory_field, "&nbsp;", Chr(32), 1) 'sPACEBAR
        Return memory_field
    End Function
    '***********************************************************
    'MY FORMAT file and date
    '例:
    '作用:得到现在的日期加时间作为文件名如:20041112142013
    '***********************************************************    '
    Public Shared ReadOnly Property FORMAT_file_date() As String
        Get
            Return DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString + DateTime.Now.Day.ToString + DateTime.Now.Hour.ToString + DateTime.Now.Minute.ToString + DateTime.Now.Second.ToString
        End Get
    End Property
    '***********************************************************
    'MY FORMAT file and date
    '例:
    '作用:得到现在的日期加时间名如:20041112142013再加上扩展名
    '*********************************************************** 
    Public Overloads Shared Function FORMAT_new_name(ByVal name As String) As String
        Dim newfilename As String = name.Substring(name.LastIndexOf("."))
        newfilename = DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString + DateTime.Now.Day.ToString + DateTime.Now.Hour.ToString + DateTime.Now.Minute.ToString + DateTime.Now.Second.ToString + newfilename '时间作为文件名
        Return newfilename
    End Function
    Public Shared Property md5(ByVal password As String) As String
        Get
            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(password, "md5")
        End Get
        Set(ByVal Value As String)
            Value = Trim(Value)
        End Set
    End Property
    '保存SESSION   用户,权限数,权限
    Public Overloads Shared Sub session_login(ByVal username As String, ByVal legalpower As Integer, ByVal LEGALpower_text As String)
        System.Web.HttpContext.Current.Session.Add("login", True)
        System.Web.HttpContext.Current.Session.Add("username", username)
        System.Web.HttpContext.Current.Session.Add("legalpower", legalpower)
        System.Web.HttpContext.Current.Session.Add("legalpower_text", LEGALpower_text)
    End Sub
    Public Overloads Shared Sub session_login(ByVal username As String, ByVal legalpower As Integer)
        System.Web.HttpContext.Current.Session.Add("login", True)
        System.Web.HttpContext.Current.Session.Add("username", username)
        System.Web.HttpContext.Current.Session.Add("legalpower", legalpower)
        Select Case legalpower
            Case 0
                System.Web.HttpContext.Current.Session.Add("legalpower_text", "会员")
            Case 1
                System.Web.HttpContext.Current.Session.Add("legalpower_text", "供货商")
            Case 9
                System.Web.HttpContext.Current.Session.Add("legalpower_text", "管理员")
        End Select
    End Sub
    Public Overloads Shared Sub session_logout(ByVal username As String, ByVal legalpower As Integer)
        System.Web.HttpContext.Current.Session.Clear()
    End Sub
    '检查是不是管理员
    Public Overloads Shared Function check_admin() As Boolean
        If System.Web.HttpContext.Current.Session("legalpower") = 9 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Overloads Shared Sub send_mail(ByVal mailto As String, ByVal subject As String, ByVal body As String)
        Dim mail As New MailMessage
        mail.To = mailto
        mail.From = "info@nketd.com"
        mail.Subject = subject
        mail.Body = body
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "info") 'set your username here
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "123456") 'set your password here
        SmtpMail.SmtpServer = "smtp.nketd.com" 'your real server goes here
        SmtpMail.Send(mail)
    End Sub
    Public Overloads Shared Sub send_mail2(ByVal mailto As String, ByVal subject As String, ByVal body As String)
        Dim mail As New MailMessage
        mail.To = mailto
        mail.From = "xuandhu@21cn.com"
        mail.Subject = subject
        mail.Body = body
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "xuandhu") 'set your username here
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "791221") 'set your password here
        SmtpMail.SmtpServer = "SMTP.21cn.com" 'your real server goes here
        SmtpMail.Send(mail)
    End Sub
    Public Shared Property message(ByVal True_False As Boolean) As String
        Get
            If True_False = True Then
                Return "操作成功"
            Else
                Return "操作失败"
            End If
        End Get
        Set(ByVal Value As String)
        End Set
    End Property
End Class

xuandhu
关注
专栏目录
MyDB 简易数据库排查问题
ironmanoOOoo的博客
07-23 678
最近观看声哥的数据库项目，觉得特有意思，准备学习。一波大概学习过程是，对着项目实敲一遍，每实现一个小功能，就更新到git，以及推送到远程仓库中，每看到Gitee的提交树上面出现一个绿点，就会给自己一个正反馈。然而因为项目是最后一步才最终实现的，所以只能通过没有Warning（s）来判断自己的程序是否正确。...
基于java的数据库-mydb
qq_40860346的博客
09-02 2484
mydb
数据库（mydb）
m0_56776375的博客
11-01 1597
drop database if exists mydb; create database mydb;#创建数据库 use mydb;#使用数据库 #创建班级表 create table clazz ( cid int primary key auto_increment,#主键，自增,班级id cname varchar(20) not null#班级名称 ); #创建学生表 create table student ( sid int primary key auto_increment,#学生id，.
探秘MYDB：一个高效、易用的轻量级数据库管理系统
gitblog_00029的博客
04-19 699
探秘MYDB：一个高效、易用的轻量级数据库管理系统 MYDB一个简单的数据库实现项目地址:https://gitcode.com/gh_mirrors/my/MYDB MYDB，全称为MY Database，是由开发者CN-GuoZiyang创建的一个开源的轻量级数据库管理系统。它旨在提供一种简单、直观的方式来存储和操作数据，尤其适合小型项目或学习数据库管理的新手。在本文中，我们将深入探讨MYD...
手写简化版数据库--MYDB
qq_41911251的博客
07-22 3882
例如第一章Python机器学习入门之pandas的使用。
MYdb-开源
05-12
MYdb的核心优势在于其简洁性和易用性，允许开发者在无需安装传统数据库服务器的情况下，实现数据的存储和管理。 MYdb的设计理念是为小型项目或个人开发提供一个快速、高效且易于部署的选择。由于它不依赖外部服务器...
易语言-mydb数据库模块
06-29
在提供的压缩包文件“易语言mydb数据库模块源码”中，我们可以深入理解易语言如何与数据库进行交互，特别是使用SQLite这个轻量级数据库引擎。 SQLite是一个开源的、自包含的、无服务器的、事务性的SQL数据库引擎，...
MyDB.rar_MyDB_MyDB java
09-23
标题中的"MyDB.rar_MyDB_MyDB java"暗示了这是一个关于数据库操作的Java程序，可能包含一个名为"MyDB"的数据库类或者模块。描述中提到的“利用数据库，实现录入学生信息简单的数据库操作，例如增加学生信息、修改、...
易语言mydb数据库模块源码-易语言
06-13
易语言mydb数据库模块源码是为编程爱好者和开发者提供的一种用于处理数据库操作的软件组件。易语言，作为中国本土的编程语言，以其简洁明了的语法和丰富的库支持，深受初学者和专业开发者的喜爱。mydb模块是易语言...
手写数据库轮子项目 MYDB 之四 | DataManager (DM) 数据之日志文件与恢复策略
weixin_45634447的博客
08-30 350
MYDB提供数据库崩溃后的恢复功能，DM 模块在每次对底层数据操作时，都会记录一条日志到磁盘上。在数据库崩溃之后（即第一页校验不对时），再次启动时，可以根据日志的内容，恢复数据文件，保证其一致性。
MYDB项目启动教程
weixin_51162561的博客
07-25 349
也可以选择将 IntelliJ IDEA 的终端设置成 CMD 模式（Command Prompt），不过笔者通常不喜欢这样做，毕竟 PowerShell 比原始的 CMD 要强大。原来是因为 IntelliJ IDEA 的终端默认使用 PowerShell 来运行命令，而在 PowerShell 下，参数 -Dmaven.test.skip=true 没有被正确地识别。会启动一个交互式命令行，就可以在这里输入类 SQL 语法，回车会发送语句到服务，并输出执行的结果。
mysql数据库mydb_mysql数据库操作语法大全
weixin_39671621的博客
01-19 2280
1、连接Mysql格式： mysql -h主机地址 -u用户名 －p用户密码1、连接到本机上的MYSQL。首先打开DOS窗口，然后进入目录mysql\bin，再键入命令mysql -u root -p，回车后提示你输密码.注意用户名前可以有空格也可以没有空格，但是密码前必须没有空格，否则让你重新输入密码。如果刚安装好MYSQL，超级用户root是没有密码的，故直接回车即可进入到MYSQL中了，MY...
MySQLdb
Fly sky
03-24 884
1 创建一个数据库. #!/user/bin/python #coding:utf-8 import MySQLdb try: #建立数据库的连接，MySQL默认端口是3306. conn = MySQLdb.connect(host='localhost', user='root', passwd='huyiyang', port=3306) #获取操作游标.
Mydb我的数据库功能包（自己写的）没有结束时，只有进行时
comeonzeze的博客
09-06 493
Mydb我的数据库功能包（自己写的）没有结束时，只有进行时。 尽量写的完美，一点点增加功能，借鉴网上，借鉴老师，借鉴他人 package com.xing; import java.sql.*; public class MyDb { private Connection conn; private String user; private String pass...
mysql
qq_36699881的博客
04-18 1101
MySQL安装与使用 基本增删改查SQL语句 SQL查询，SQL函数，复杂查询实现(重点) MySQL用户与权限管理 数据库建模优化 数据库索引建立 数据库查询优化 SQL编程(自定义函数，存储过程，触发器) JDBC编程，Java+MySQL实现某管理系统 重置表 SELECT * FROM `emp`; DELETE FROM `emp`; insert into emp(empno,ename,job,mgr,hiredate,sal,comm,deptno) values(7369,'SMITH
mysql数据库套件_mydb studio中文免费版
weixin_30246833的博客
01-19 1505
MyDB Studio是一款免费的MySQL数据库管理器工具，拥有你所期望的几乎所有功能，可用于创建/编辑/放弃数据库对象，数据库同步，以及数据导出/导入。数据库管理员还可以用它来执行数据库转移，以及备份和还原。它支持使用SSH隧道来保护您的链接，即便您的主机不允许远程访问链接，用户和权限管理，以及PHP脚本创建，您依然可以进行连接。MyDB Studio是用于MySQL服务器管理的工具套件。My...
实现一个数据库（0）mydb大纲
pourtheworld的博客
06-14 856
之所以有自己实现一个分布式数据库的想法，源于组内的任务：在自研INM数据库上加入MongoDB的模块进行性能改善，首先要想清楚下列的问题。 要将MongoDB作为INM的下层数据库需要考虑： MongoDB的沿用、INM的舍弃。 修改后的访问流程。 问题。 尝试实现一个类MongoDB的分布式数据库。 功能；整体架构；服务器架构；客户端架构；引擎 MongoDB的沿用、INM的舍弃 单纯地将MongoDB作为改善INM性能的一个手段，需要考虑沿用MongoDB哪些部分、舍弃INM本身哪些部分。 首先考
Mydb数据库问题
pachupingminku的博客
10-04 1983
TM（Transaction Manager）：事务管理器，用于维护事务的状态，并提供接口供其他模块查询某个事务的状态。DM（Data Manager）：数据管理器，直接管理数据库 DB 文件和日志文件。它负责分页管理 DB 文件，并进行缓存。它还管理日志文件，保证在发生错误时可以根据日志进行恢复。DM 将 DB 文件抽象为 DataItem，供上层模块使用，并提供缓存。VM（Version Manager）：版本管理器，基于两段锁协议实现了调度序列的可串行化，并实现了 MVCC 以消除读写阻塞。
mycursor = mydb.cursor
最新发布
08-02
`mydb.cursor()`这行代码的意思是在已建立的数据库连接`mydb`上创建一个新的游标对象，这个游标用于执行SQL查询、提交事务等功能。每次执行SQL语句之前，你需要先调用游标的`execute()`方法，并在之后调用`fetchone...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值