1. 

:::tip{title="服务器 日常维护常用脚本"}
服务器 日常维护常用脚本
:::




## 数据库日常空间查询维护
``` MySql 
## 清理表空间，某些表比较大删除数据后可使用此命令清理表占用的物理空间

OPTIMIZE TABLE tableName;
```

服务器 日常维护常用脚本

:::tip{title="Net Core 框架本身错误排查方法"}
Net Core 框架本身错误排查方法






在开发过程中遇到框架本身的错误导致的异常 快速查找解决办法  例如 System 的  Microsoft类的
:::

> 例如下图的这个错误

```
Unable to resolve service for type 
'Microsoft.Extensions.ObjectPool.ObjectPool`1[Microsoft.AspNetCore.HttpLogging.HttpLogg
ingInterceptorContext]' while attempting to activate 
'Microsoft.AspNetCore.HttpLogging.HttpLoggingMiddleware'.

```

![image.png](/static/img/abe9e0c7aab6cdf39d6d359b1675a6a7.image.webp)

这个错误导致程序无法跑起来，报错原因暂时不知道什么情况，我们可以直接复制错误信息到github中进行查找下
微软的dotnetcore地址是：https://github.com/dotnet/aspnetcore

可以直接到issues中搜索下错误，你遇到的错误别人应该早就已经遇到了，搜索截图过下，查看内容后可以直接快速解决问题

![image.png](/static/img/a0bf3f35dceca6d55b6932b02e6c7b8e.image.webp)

![](https://blog.mldd521.com/static/img/fd36624c97268b68504fcd36cd15c472.image.webp)

这个错误主要是因为微软新版本net8后默认不引入`HttpLogging`的服务了解决办法就是不使用这个中间件，或者加入服务的添加即可

Net Core 框架本身错误排查方法

:::tip{title="激活系统"}
使用命令激活windows和office
:::



管理员身份打开power shell后输入以下命令即可获取一个激活工具，然后按照提示进行激活win和office


```
irm massgrave.dev/get |iex 
```

![image.png](/static/img/8c8a0dae15524f0d71f88fd2ecd19c21.image.webp)

打开此界面后输入1即可进行激活windows

打开此界面后输入2即可进行激活office

![image.png](/static/img/83e8f874db8953f30ea14aabccbcbb29.image.webp)

激活windows和office的power shell工具

:::tip{title="Debain Vim"}
Debian在vi编辑器里方向键变ABCD，退格键失效

:::



> vi打开后方向键变ABCD,退格键会回退但是字符不消失，输入其他后会覆盖原有，而且只能删除当前行

#### 解决办法：
打开任意vim后再查模式下输入一下两行命令后即可解决,一下代码执行完毕后仅仅是当前vim编辑生效
```
:set nocompatible    以非兼容模式工作
:set backspace=2
```
永久解决办法是编辑文件`/etc/vim/vimrc.tiny`
打开后将 `set compatible` 改为 `set nocompatible`
然后加入一行 `set backspace=2`
保存文件后所有vi均生效

Debian在vi编辑器里方向键变ABCD，退格键失效

:::info{title="excel表格"}
excel表格中检测B列如果存在则A列自动累加到不重复后继续下一单元格填充数据，如图所示
:::
![image.png](/static/img/b5e7c3df9b38e0e337fd0ddee5da9d70.image.webp)




```
Sub GenerateUniqueValues()
    Dim ws As Worksheet
    Dim i As Long
    Dim currentValue As Long
    Dim isUnique As Boolean

    Set ws = ThisWorkbook.Sheets("Sheet1") ' 请确保 "Sheet1" 是你的工作表的名称
    
    currentValue = 1 ' 从1开始计数

    For i = 1 To 9876
        isUnique = False
        Do While Not isUnique
            If IsError(Application.Match(currentValue, ws.Range("B:B"), 0)) Then
                isUnique = True
            Else
                currentValue = currentValue + 1
            End If
        Loop
        ws.Cells(i, 3).Value = currentValue ' 3表示C列
        currentValue = currentValue + 1
    Next i
End Sub

```