实用asp函数 字符串长度、分页等[转]

最新推荐文章于 2024-03-06 00:35:39 发布
最新推荐文章于 2024-03-06 00:35:39 发布
阅读量940 收藏
点赞数
分类专栏： asp编程技术 文章标签： asp function output javascript border input
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/huoyuming/article/details/4056921
版权

<%

'**************************************************
'函数名：rndNum
'作   用：求随机长度数字
'参   数：strLong长度，
'返回值：字符串
'**************************************************
Function rndNum (strLong)
Dim temNum
   Randomize
   Do While Len(RndNum) < strLong
    temNum=CStr(Chr((57-48)*rnd+48))
    RndNum=RndNum&temNum
   loop
End Function

'**************************************************
'函数名：newleft
'作   用：取前字符串。l要求长度的
'参   数：str字符串，
'返回值：字符串
'**************************************************
Function newleft(str,l)
if len(str)>l then
   newleft=left(str,l)&"…"
else
   newleft=str
end if
End Function

'**************************************************
'函数名：strLength
'作   用：求字符串长度。汉字算两个字符，英文算一个字符。
'参   数：str   ----要求长度的字符串
'返回值：字符串长度
'**************************************************
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE     = (len("网络")=2)
if WINNT_CHINESE then
         dim l,t,c
         dim i
         l=len(str)
         t=l
         for i=1 to l
          c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                 t=t+1
             end if
         next
         strLength=t
     else
         strLength=len(str)
     end if
     if err.number<>0 then err.clear
end function
''''''''''''''''''中英文长度获取和截取
   Function    CountLength(Str)   
   Dim    output,ThisChar,i   
   output    =    0   
   For    i    =    1    To    Len(Str)   
   ThisChar    =    Mid(Str,i,1)   
   If    Asc(ThisChar)    <    0    Then   
   output    =    output    +    2   
   Else   
   output    =    output    +    1   
   End    If   
   Next   
   CountLength    =    output   
   End    Function   
    
   Function    MaxLengthStr(ByVal    Str,    ByVal    MaxLength)   
   Dim    Output,i   
   If    IsNull(Str)    Then    Str    =    ""   
   Output    =    ""   
   If    LenB(Str)    <=    MaxLength    Then   
   Output    =    Str   
   Else   
   For    i    =    1    To    Len(Str)   
   Output    =    Output    &    Mid(Str,i,1)   
   If    CountLength(Output)+3    =    MaxLength    Then   
   Output    =    Output      
   Exit    For   
   ElseIf    CountLength(Output)+3    >    MaxLength    Then   
   Output    =    Left(Output,Len(Output)-1)     
   Exit    For   
   End    If   
   Next   
   End    If   
   MaxLengthStr    =    Output   
   End    Function   
'过滤HTML代码
function HTMLEncode(fString)
dim tempstr
tempstr=fString
if not isnull(tempstr) then
   tempstr = replace(tempstr, ">", "&gt;")
   tempstr = replace(tempstr, "<", "&lt;")
   tempstr = Replace(tempstr, CHR(32), "&nbsp;")
   tempstr = Replace(tempstr, CHR(9), "&nbsp;")
   tempstr = Replace(tempstr, CHR(34), "&quot;")
   tempstr = Replace(tempstr, CHR(39), "&#39;")
   tempstr = Replace(tempstr, CHR(13), "")
   tempstr = Replace(tempstr, CHR(10) & CHR(10), "</P><P> ")
   tempstr = Replace(tempstr, CHR(10), "<BR> ")
   HTMLEncode = tempstr
end if
end function
'反过滤HTML代码
function UNHTMLEncode(fString)
dim tempstr
tempstr=fString
if not isnull(tempstr) then
   tempstr = replace(tempstr, "&gt;", ">")
   tempstr = replace(tempstr, "&lt;", "<")
   tempstr = Replace(tempstr, "&nbsp;", CHR(32))
   tempstr = Replace(tempstr, "&nbsp;", CHR(9))
   tempstr = Replace(tempstr, "&quot;", CHR(34))
   tempstr = Replace(tempstr, "&#39;", CHR(39))
   tempstr = Replace(tempstr, "", CHR(13))
   tempstr = Replace(tempstr, "</P><P> ", CHR(10) & CHR(10))
   tempstr = Replace(tempstr, "<BR> ", CHR(10))
   UNHTMLEncode = tempstr
end if
end function

'去除HTML标记
Function FilterHTML(Str)

Dim StrContent
StrContent = Trim(Str)
StrContent = Replace(StrContent,"width>screen.","")
StrContent = Replace(StrContent,"&nbsp;","")
StrContent = Replace(StrContent,Chr(13)&Chr(10),"")
If Len(StrContent)>5 Then
   Dim objRegExp, strOutput
   Set objRegExp = New Regexp

   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = "<.+?>"

   'Replace all HTML tag matches with the empty string
   StrContent = objRegExp.Replace(StrContent,"")
End If
StrContent = Replace(StrContent," ","")
FilterHTML=Left(StrContent,200)
End Function

'*************************************************
'函数名：gotTopic
'作   用：截字符串，汉字一个算两个字符，英文算一个字符
'参   数：str    ----原字符串
'        strlen ----截取长度
'返回值：截取后的字符串
'*************************************************
function gotTopic(str,strlen)
if str="" then
   gotTopic=""
   exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
   c=Abs(Asc(Mid(str,i,1)))
   if c>255 then
    t=t+2
   else
    t=t+1
   end if
   if t>=strlen then exit for
next
if i < l then
   gotTopic=left(str,i) & "…"
else
   gotTopic=str
end if
'gotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function


'***********************************************
'函数名：JoinChar
'作   用：向地址中加入 ? 或 &
'参   数：strUrl   ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function JoinChar(strUrl)
if strUrl="" then
   JoinChar=""
   exit function
end if

if InStr(strUrl,"?")>0 then
   JoinChar=strUrl & "&"
else
   JoinChar=strUrl & "?"
end if

end function

'***********************************************
'函数名：showpages
'作   用：显示“上一页 下一页”等信息
'参   数： sfilename ----链接地址
'         totalnumber ----总数量
'    totalpage ----总页数
'    maxperpage ----每页数量
'    page ----当前页
'    ShowTotal ----是否显示总数量
'    ShowForm ----是否显示跳转表单
'    strUnit      ----计数单位
'***********************************************

Function showpages(sfilename,totalnumber,totalpage,maxperpage,page,ShowTotal,ShowForm,strUnit)
dim i,strTemp,strUrl
    strTemp= "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbcrlf
strTemp=strTemp & "<form name='Form2' method='Post' action='" & sfilename & "'>"&vbcrlf
strTemp=strTemp & "<tr>"&vbcrlf
strTemp=strTemp & "<td align='right'>"&vbcrlf
if ShowTotal=true then
   strTemp=strTemp & "共有<b> "& totalnumber &" </b>"& strUnit &"&nbsp; "
   strTemp=strTemp & "<b> "&maxperpage&" </b> "& strUnit &"/页&nbsp; "
end if
strUrl=JoinChar(sfilename)
page=int(page)
totalpage=int(totalpage)
    if page<2 then
       strTemp=strTemp & "&nbsp;首页 &nbsp;前一页&nbsp;"
    else
    strTemp=strTemp & "&nbsp;<a href='" & strUrl & "page=1'>首页</a>&nbsp; "
    strTemp=strTemp & "<a href='" & strUrl & "page=" & page-1 & "'>前一页</a>&nbsp;"
    end if

    if totalpage-page<1 then
       strTemp=strTemp & "下一页&nbsp;尾页"
    else
    strTemp=strTemp & "<a href='" & strUrl & "page=" & page+1 & "'>下一页</a>&nbsp;"
    strTemp=strTemp & "<a href='" & strUrl & "page=" & totalpage & "'>尾页</a>&nbsp;"
    end if
if ShowTotal=true then
   strTemp=strTemp & "&nbsp;当前：<b><font color=red>"& page &"</font>"
   strTemp=strTemp & "/"& totalpage &"</b>页"
end if
if ShowForm=True then
   strTemp=strTemp & "&nbsp;转到：<select name=""page"" "
   strTemp=strTemp & "size=""1"" onChange=""javascript:submit()"">" &vbcrlf
      for i = 1 to totalpage
       strTemp=strTemp & "<option value='" & i & "'"
    if page=i then strTemp=strTemp & " selected "
    strTemp=strTemp & ">第" & i & "页</option>"&vbcrlf  
      next
   strTemp=strTemp & "</select>"&vbcrlf
end if
strTemp=strTemp & "</td>"&vbcrlf
strTemp=strTemp & "</tr>"&vbcrlf
strTemp=strTemp & "</form>"&vbcrlf
strTemp=strTemp & "</table>"&vbcrlf
showpages = strTemp

End Function

'***********************************************
'函数名：showpages2
'作   用：显示“上页 1 | 2 | 3 下页”等信息
'参   数： sfilename ----链接地址
'         totalnumber ----总数量
'    totalpage ----总页数
'    maxperpage ----每页数量
'    page ----当前页
'    ShowForm ----是否显示跳转表单
'***********************************************

Function showpages2(sfilename,totalnumber,totalpage,maxperpage,page,ShowForm)
dim i,strTemp,strUrl
    strTemp= "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbcrlf
strTemp=strTemp & "<form name='Form2' method='Post' action='" & sfilename & "'>"&vbcrlf
strTemp=strTemp & "<tr>"&vbcrlf
strTemp=strTemp & "<td align='right'>"&vbcrlf

strUrl=JoinChar(sfilename)
page=int(page)
totalpage=int(totalpage)
    if page>1 then
    strTemp=strTemp & "&nbsp;<a href='" & strUrl & "page=1'>首页</a>&nbsp; "
    strTemp=strTemp & "<a href='" & strUrl & "page=" & page-1 & "'>上页</a>&nbsp;"
    end if

if totalpage<10 then
   bno=1:eno=totalpage
elseif page < 5 then
   bno=1:eno=10
elseif totalpage - page < 5 then
   bno=totalpage-9:eno=totalpage
else
   bno=page-4:eno=page+5
end if

for i = bno to eno
   if i = bno then
    strTemp=strTemp & "&nbsp;&nbsp;"
   else
    strTemp=strTemp & "&nbsp;&nbsp;|&nbsp;&nbsp;"
   end if
   if i = page then
    strTemp=strTemp & "<span style='color:red'>"
    strTemp=strTemp & i
    strTemp=strTemp & "</span>"
   else
    strTemp=strTemp & "<a href='" & strUrl & "page="&i&"'>"
    strTemp=strTemp & i
    strTemp=strTemp & "</a>"
   end if
next
strTemp=strTemp & "&nbsp;&nbsp;"

    if totalpage-page>0 then
    strTemp=strTemp & "<a href='" & strUrl & "page=" & page+1 & "'>下页</a>&nbsp;"
    strTemp=strTemp & "<a href='" & strUrl & "page=" & totalpage & "'>尾页</a>&nbsp;"
    end if
if ShowForm=True then
   strTemp=strTemp & "&nbsp;转到："
   strTemp=strTemp & "<input type=""text"" name=""page"" id=""page"" value="""&page&""" style=""width:30px;"">"
   strTemp=strTemp & "<input type=""submit"" name=""gopage"" value=""GO"" style=""width:24px;"">"
end if
strTemp=strTemp & "</td>"&vbcrlf
strTemp=strTemp & "</tr>"&vbcrlf
strTemp=strTemp & "</form>"&vbcrlf
strTemp=strTemp & "</table>"&vbcrlf
showpages2 = strTemp

End Function


'***********************************************
'函数名：showHTMLpages
'作   用：显示“上页 1 | 2 | 3 下页”等信息
'参   数： sfilename ----链接地址
'         totalnumber ----总数量
'    totalpage ----总页数
'    maxperpage ----每页数量
'    page ----当前页
'    ShowForm ----是否显示跳转表单
'***********************************************

Function showHTMLpages(sfilename,totalnumber,totalpage,maxperpage,page,ShowForm)
dim i,strTemp,strUrl
    strTemp= "<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"&vbcrlf
strTemp=strTemp & "<tr>"&vbcrlf
strTemp=strTemp & "<td align='right'>"&vbcrlf

page=int(page)
totalpage=int(totalpage)
    if page>1 then
    strTemp=strTemp & "&nbsp;<a href='" & sfilename & "1.htm'>首页</a>&nbsp; "
    strTemp=strTemp & "<a href='" & sfilename & (page-1) & ".htm'>上页</a>&nbsp;"
    end if

if totalpage<10 then
   bno=1:eno=totalpage
elseif page < 5 then
   bno=1:eno=10
elseif totalpage - page < 5 then
   bno=totalpage-9:eno=totalpage
else
   bno=page-4:eno=page+5
end if

for i = bno to eno
   if i = bno then
    strTemp=strTemp & "&nbsp;&nbsp;"
   else
    strTemp=strTemp & "&nbsp;&nbsp;|&nbsp;&nbsp;"
   end if
   if i = page then
    strTemp=strTemp & "<span style='color:red'>"
    strTemp=strTemp & i
    strTemp=strTemp & "</span>"
   else
    strTemp=strTemp & "<a href='" & sfilename & i & ".htm'>"
    strTemp=strTemp & i
    strTemp=strTemp & "</a>"
   end if
next
strTemp=strTemp & "&nbsp;&nbsp;"

    if totalpage-page>0 then
    strTemp=strTemp & "<a href='" & sfilename & (page+1) & ".htm'>下页</a>&nbsp;"
    strTemp=strTemp & "<a href='" & sfilename & totalpage & ".htm'>尾页</a>&nbsp;"
    end if
if ShowForm=True then
   strTemp=strTemp & "&nbsp;转到："
   strTemp=strTemp & "<input type=""text"" name=""page"" id=""page"" value="""&page&""" style=""width:30px;"" />"
   strTemp=strTemp & "<input type=""button"" name=""gopage"" value=""GO"" style=""width:24px;"" onClick=""javascript:location.href='" & sfilename & "' + document.getElementById('page').value + '.htm';"" />"
end if
strTemp=strTemp & "</td>"&vbcrlf
strTemp=strTemp & "</tr>"&vbcrlf
strTemp=strTemp & "</table>"&vbcrlf
showHTMLpages = strTemp

End Function


function rootidtoname(rootid,tabname)

dim mrootid,mrootname
if tabname="" then tabname="msg_class"
mrootid=rootid
if mrootid<>"" then
root=split(mrootid,",")
mrootname=""
for i = 0 to ubound(root)
   sql="select id,title from "&tabname&" where id="&int(root(i))
   rs2.open sql,conn,1,1
   if not rs2.eof then
    if i > 0 then
     mrootname=mrootname&" &gt;&gt; "
    end if
    mrootname=mrootname&rs2("title")
   end if
   rs2.close
next
rootidtoname=mrootname
else
rootidtoname=""
end if

end function


Function clngstr(str,lng)
dim strtemp
strtemp=Right("000000000"&str,lng)
clngstr=strtemp
end function


'删除数组内的元素

function delarray(astr,ano)
'on error resume next
dim atemp,ai
atemp=astr
aa=int(ano)

if isarray(atemp) then
   ai=ubound(atemp)
   if aa > ai then
    delarray=atemp
    exit function
   elseif ai=0 then
    delarray=""
    exit function
   elseif aa=ai then
    ReDim Preserve atemp(ai-1)
   else
    for i = aa to ai - 1
      atemp(i)=atemp(i+1)
    next
    ReDim Preserve atemp(ai-1)
   end if
else
   delarray=atemp
   exit function
end if

delarray=atemp

end function


'删除文件
function delfile(filename)
on error resume next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath(filename)) then
   objFSO.DeleteFile(Server.MapPath(filename))
   delfile=true
else
   delfile=false
   exit function
end if
set objFSO=nothing
delfile=true
end function

'转长日期格式
function clngdate(tdate)
tempdate=cstr(tdate)
if tempdate="" then
   clngdate=""
   exit function
end if
td=split(tempdate,"-")
if ubound(td)<>2 then
   clngdate=tempdate
   exit function
end if
if len(td(1))=1 then td(1)="0"&td(1)
if len(td(2))=1 then td(2)="0"&td(2)
clngdate=td(0)&"-"&td(1)&"-"&td(2)
end function

 

获取字符串长度的自定义函数

'----------------------------------------------------------------'
' getStrLen
' 获取字符长度，一个中文字符长度算 2
' 参数：
' str 需要获取长度的字符串
' 返回值：整数 (字符串的长度)
'----------------------------------------------------------------'
Function GetStrLen(str)
If IsNull(str) Or str = "" Then
getStrLen = 0
Else
Dim i, n, k, chrA
k = 0
n = Len(str)
For i = 1 To n
chrA = Mid(str, i, 1)
If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then
k = k + 1
Else
k = k + 2
End If
Next
getStrLen = k
End If
End Function

%>

huoyuming
关注
专栏目录
ASP通用分页样式函数代码
10-30
4. **Url_Add**：当前页的其他URL参数，例如查询字符串等。 #### 三、函数详解 ##### 1. 参数初始化与URL构建 ```vb CurPage = Int(Curpage) Dim URL URL = Request.ServerVariables("Script_Name") & Url_Add ```...
ASP限定中英文混合字符串输出长度的方法
qhdzj87的专栏
01-18 310
在网站开发过程中，很多情况下，需要对网页上显示的文字长度进行限制，以便获得最佳的显示效果，例如：在首页中调取新闻标题时，标题的长度参差不齐，长短不一，若不加以限制和截取，必然导致太长的标题会撑爆页面，很不美观。既然如此，直接使用ASP中的left(Str,N)函数来截取指定长度的字符不就行了吗？但是，实际上这样做是有问题的，因为很多情况下一段文字中不仅包含汉字，而且包含数字和英文字符，而单个汉字和数字、英文字符所占的长度并不一样，left(Str,N)函数又仅仅是截取字符的个数而不是字节数。当一段文...
asp 获取字符串长度函数
Air的博客
10-09 3261
Function GetLength(strChinese1)  Dim strWord, ascWord, lenTotal  strChinese1 = Trim(strChinese1)  If strChinese1 = "" or Vartype(strChinese1) = vbNull then    GetLength = 0    Exit Fun
ASP如何计算中英文混合字符串长度和截取字符串 .
shenjiujun的博客
08-11 280
计算中英文混合字符串的长度： function getStringLen(str) on error resume next dim l,c,i,t l=len(str) t=l for i=1 to l c=asc(mid(str,i,1)) if c>=128 or c next getStringLen=t if err.number end
ASP判断字符串长度（考虑汉字问题）
wmnmtm的专栏
07-09 1133
&lt;% Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x   if asc(mid(txt,ii,1))&lt;0 or asc(mid(txt,ii,1))&gt;255 then     y = y + 2   else     y = y + 1   end if next C...
ASP获取字符串长度的自定义函数
weixin_34240520的博客
02-13 135
ASP获取字符串长度的自定义函数 '----------------------------------------------------------------'' getStrLen' 获取字符长度，一个中文字符长度算 2' 参数：' str 需要获取长度的字符串' 返回值：整数 (字符串的长度)'-----------------------------------...
ASP正则函数替换分页后的参数
10-30
### ASP正则函数替换分页后的参数 #### 知识点概述 在Web开发中，分页是一项常用的功能，它能够有效地处理大量的数据展示问题。然而，在进行分页时，通常会在URL中传递一个名为`page`的参数来标识当前显示的是哪一...
GetPaing 函数之asp采集函数中用到的获取分页的代码
10-30
该函数接受五个参数，并返回一个字符串值，代表找到的分页内容。下面是函数的详细定义： ```vb Function GetPaing(Byval ConStr, StartStr, OverStr, IncluL, IncluR) ``` 其中： - **ConStr**：代表待分析的完整...
asp分页函数-简单实用的分页
07-19
"asp分页函数-简单实用的分页" 主要关注的是如何在ASP中实现高效的分页效果。 在ASP中实现分页，我们需要考虑以下几个关键知识点： 1. 数据库查询：首先，我们需要从数据库中获取数据，通常使用SQL查询语句。比如...
ASP.Net分页的分页导航实例
10-21
6. 分页导航的显示：最后，通过获取对应`containerId`的DOM元素，并将生成的分页导航HTML字符串插入其中，这样用户就可以在页面上看到分页导航了。 上述步骤完成之后，我们就可以得到一个分页导航的实现效果，如...
ASP截取固定长度字符串
03-21
常常我们在新闻发布系统中，会用到截取固定长度的字符串长度信息的情况，通常我们会想到使用left()或者mid()函数来解决问题，但是往往难以达到我们想要的效果，使用这个函数，使你读出的字符串更符合你的需要，当然，它也不是完美的，但是是我能做到的最好的！
ASP.NET基础函数五十一：Len(string) 取得字符串的长度
最新发布
yixiaobing的博客
03-06 454
如果你正在编写 ASP.NET Web Forms 或 ASP.NET MVC 应用程序，并且需要在服务器端代码中获取字符串的长度，无论是使用 C# 还是 VB.NET，你都应该使用相应的。函数在 VB.NET 中仍然可用，但它是为了向后兼容而提供的，并且可能不支持某些 Unicode 字符的正确长度计算。的函数，该函数是从 VB6 和 VBA 继承而来的，用于与旧代码保持兼容。属性来获取字符串的长度，但 VB.NET 同时保留了一个名为。在 ASP.NET 中，要获取字符串的长度，你可以使用。
ASP字符串函数大全
天涯 书塾
01-13 8136
ASP字符串函数：Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符串后面的空格去掉 Mid Mid(string,start,length) 从string字符串的start字
ASP的字符串处理函数
huishouwang的专栏
11-07 772
<br />    在脚本的功能处理中，通常需要对一些字符串进行一些修饰性处理。比如过滤掉字符串中的敏感字眼以符合最终显示的要求；又比如一段较长的字符串，需要提取开头的几个字符时。 <br />　　（1）Asc函数：返回字符串中第一个字母对应的ANSI字符代码。使用方法：asc(string)。其中string参数表示字符串。 <br />　　（2）Chr函数：返回指定了ANSI 字符代码对应的字符。使用方法：chr(chrcode)。参数chrcode是相关的标识数字。该函数的功能和asc函数形成对应。
ASP如何计算中英文混合字符串长度和截取字符串
三楼一郎（狼窝）
09-08 6551
用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当于两个英文字符来计算字符串长度和截取字符串的代码 计算中英文混合字符串的长度：
ASP常用分页函数详解及示例
首先，代码通过`rs.Open SQL, conn, 1, 1`打开数据库连接并执行SQL查询，其中参数可能涉及到连接字符串、查询语句和记录集属性设置。如果查询结果为空（即EOF和BOF都为真），则页面会显示"还没找到文章"信息。 接着...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值