```asp

<%

'这段代码是用来更新设施状态的

Dim facilityID, status

facilityID = Request.QueryString("id")

status = Request.QueryString("status")

'连接到数据库

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.;Data Source=database.mdb"

'执行SQL语句，更新设施状态

sql = "UPDATE Facilities SET Status='" & status & "' WHERE ID=" & facilityID

conn.Execute(sql)

'关闭数据库连接

conn.Close

Set conn = Nothing

%>

```

这段代码的作用是接收来自前端的请求，根据传入的设施ID和新状态，更新数据库中的相记录。在代码中使用了ASP的内置对象Request来获取参数，用这些参数构造了个SQL语句，通过ADODB.Connection对象执行这个语句。

```asp

'版权所有 © XX 我司名称

'未经许可，禁止复制或修改此代码

```

在线心理辅导和社会方面，虽然与编程直接相关性不大，但在编写代码时我司考虑到这些问题的系统是个面向公众的服务就考虑到不同用户的心理需求和社交习惯，设计出易用且友好的界面。