5个最好用的Astro博客主题推荐
花了两个礼拜试了十几个Astro博客主题。有些看起来很炫但太臃肿，有些太简陋连基本功能都没有，还有些配置起来简直是噩梦。最后筛出了5个真正好用的，每个都亲自用过。
先看个快速对比：
| 主题名称 | 适合人群 | 核心特色 | GitHub星数 | 难度 |
| AstroPaper | 技术博主、长文写作 | 极简设计、模糊搜索 | 3.5k+ |  |
| Astro Air Blog | 个人博主、作品集 | 优雅动画、个性化 | 活跃社区 | |
| Bookworm Light | 团队博客、内容平台 | 多作者支持 | 热门主题 | |
| AstroWind | 企业博客、快速上线 | 开箱即用、功能全 | 热门主题 | |
| Astro Cactus | 个人博客、简洁风格 | 固执己见、省心 | 活跃社区 | |
Let's Encrypt 宣布证书有效期缩短到 45 天的计划。
CloudFlare 邮件宣布将于2026年4月16日推出,初步定价为 包含在 Workers 付费计划中：每月可发送 3,000 封电子邮件 超出部分的邮件发送费用：每 1,000 封邮件收费 0.35 美元 目前价格不如aws的ses
ningshuo23ff 说:
先占个坑，有时间再写，我看到网上有些教程挺离谱的，还有付费的。。要不关注公众号，还要执行什么乱七八糟的脚本，最后搞完说不定还不能用。。。
底层实现原理其实也不难，无非是网络请求拦截，共享token啥的，其实这些都是一个作者写的开源项目，前段时间还上了GitHub trending 榜，不过这无异于是在官方脸上开大，现在仓库连号都被GitHub封了。。。
`
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 10
WScript.Quit
End If
Set oShell = CreateObject("WScript.Shell")
Set oEnvSystem = oShell.Environment("SYSTEM")
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim sBasePath, sJarFile
sBasePath = oFS.GetParentFolderName(oFS.GetParentFolderName(WScript.ScriptFullName))
sJarFile = sBasePath & "\ja-netfilter.jar"
If Not oFS.FileExists(sJarFile) Then
MsgBox "ja-netfilter.jar not found", vbOKOnly Or vbCritical
WScript.Quit -1
End If
MsgBox "It may take a few seconds to execute this script." & vbCrLf & vbCrLf & "Click 'OK' button and wait for the prompt of 'Done.' to pop up!"
Dim sEnvKey, sEnvVal, aJBProducts
aJBProducts = Array("idea", "clion", "phpstorm", "goland", "pycharm", "webstorm", "webide", "rider", "datagrip", "rubymine", "appcode", "dataspell", "gateway", "jetbrains_client", "jetbrainsclient", "studio", "devecostudio")
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "-javaagent:.[/]ja-netfilter.jar."
Sub RemoveEnv(env)
On Error Resume Next
For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sEnvVal = oShell.ExpandEnvironmentStrings("%" & sEnvKey & "%")
If sEnvVal <> ("%" & sEnvKey & "%") Then
env.Remove(sEnvKey)
End If
Next
End Sub
RemoveEnv oShell.Environment("USER")
Dim sVmOptionsFile
For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sVmOptionsFile = sBasePath & "\vmoptions" & sPrd & ".vmoptions"
If oFS.FileExists(sVmOptionsFile) Then
ProcessVmOptions sVmOptionsFile
oEnvSystem(sEnvKey) = sVmOptionsFile
End If
Next
Sub ProcessVmOptions(ByVal file)
Dim sLine, sNewContent, bMatch
Set oFile = oFS.OpenTextFile(file, 1, 0)
sNewContent = ""
Do Until oFile.AtEndOfStream
sLine = oFile.ReadLine
bMatch = re.Test(sLine)
If Not bMatch Then
sNewContent = sNewContent & sLine & vbLf
End If
Loop
oFile.Close
sNewContent = sNewContent & "-javaagent:" & sJarFile & "=jetbrains"
Set oFile = oFS.OpenTextFile(file, 2, 0)
oFile.Write sNewContent
oFile.Close
End Sub
MsgBox "Done."
`
一般是这种脚本
@gaoshuhao666 后台可以改，LDAP我可以先试试，但是这个需要有个账号体系
但是gitlab 用的dev_开头的校验机制 oa 是 另一种开头 只有 nas 对接LDAP 但是API更容易
@gaoshuhao666 如果要搭**，最好还是不要用国内的。。咱们这里是计算机网络研究，不涉及违法行为哦，我用的是Racknerd的，有一个性价比比较高的活动，[https://my.racknerd.com/aff.php?aff=5933&pid=358]https://my.racknerd.com/aff.php?aff=5933&pid=358)，可以支付宝支付，
具体怎么搭建，可以看这个GitHub的开源仓库，点击查看
连接上服务器后，直接从这部分开始看，按照上面的来搞就可以了，
建议使用这两个，
默认tcp协议的容易被封端口
怎么使用应该知道吧，群里发的那个客户端软件就行
@gaoshuhao666 有两种解决方案：
一是OAuth2协议 百度 QQ 或者 微信 等账号对接，这个麻烦在审核 API 的网站应用这一块，主要是注册还不太好控制
二是需要自己部署 LDAP 服务器，但这个有点安全隐患，因为现在很多人 OA 密码还是默认的，注册可以控制
@gaoshuhao666 有，可以买阿里云的中国香港及海外轻量应用服务器，购买地址
在购买前可以先领个300块钱的抵扣劵（领取地址），先认证下学生身份就可以领了，然后就可以白嫖了，300块钱最多可以买一年左右。还有就是这300块钱其实就是和你自己充值的差不多，随便用。
如果是新用户，你还可以1块钱买个域名玩玩。
而且中国香港及海外轻量应用服务器还有一个好处就是，你搭建网站不需要备案！
而且这服务器因为走的是国际带宽，带宽很大，峰值能有30Mbps，像是内陆的就很垃圾。。普遍只有3Mbps左右，慢的一批。搭个内网穿透或者VPN组网压根没法用。
而且虽然服务器是香港和海外地区的，别的我不知道，我用的香港的，速度很快，感觉比内陆的还快 。。