有段asp代码，请哪位大虾给解读一下，请尽可能详细解读每句(最好在每句代码后注释上这句是什么意思)。。

这应该是ajax请求的页面吧 返回的是json格式的数据

action = Request("action") 接收发送的action 做为判断条件
If action = "save" Then 保存操作……
Dim beianemail,beianhao,beianpass,beianzh,beianzhpa,emailpass,kehu_name,id
beianemail = Request("beianemail")
beianhao = Request("beianhao")
beianpass = Request("beianpass")
beianzh = Request("beianzh")
beianzhpa = Request("beianzhpa")
emailpass = Request("emailpass")
kehu_name = Request("kehu_name")
id = Request("id") 接收发送的数据
Dim aSQL,aRs
aSQL = "SELECT * FROM [beian] WHERE 1=1"SQL语句
if id <> "" Then
aSQL = aSQL & " AND id="&id&"" 如果有ID值 则为更新记录 加条件 只操作对应的记录
End If
Set aRs = MHZG.GetRs(aSQL,3,3) 记录集对象
if id = "" Then
aRs.AddNew 如果没有ID值 则为添加记录
End If
aRs("kehu_name") = kehu_name
aRs("beianhao") = beianhao
aRs("beianpass") = beianpass
aRs("beianemail") = beianemail
aRs("emailpass") = emailpass
aRs("beianzh") = beianzh
aRs("beianzhpa") = beianzhpa
aRs.Update 数据库记录的更新
aRs.Close 关闭记录集对象
Set aRs = Nothing 释放 它
Echo("{")
Echo("success:true") 这里就是返回的json格式的数据了 返回真 说明操作成功 …… (但是它竟然不返回失败......... ) echo 就是下面的echo 函数 输出 内容
Echo("}")
ElseIf action = "del" Then 如果为del 也就是删除
id = Request("id")
Dim dSQL,dRs
dSQL = "DELETE FROM [beian] Where id="&id&""
Set dRs = MHZG.GetRs(dSQL,3,3)
Response.Write("{")
Response.Write("success:true")
Response.Write("}") 删除记录 并返回 (竟然也不判断ID 不返回失败！！)
Else 如果action 的值不为上面的两个 刚返回记录 ...就是读取数据了
Dim start,limit,query,sorts,dir
start = Request("start")
limit = Request("limit")
If start = "" Then
start = 0
End If
If limit = "" Then
limit = 20
End If
sorts = Replace(Trim(Request("sort")),"'","")
dir = Replace(Trim(Request("dir")),"'","")

Dim Rs,SQL,DataCount,Ls,JSON,i,j,OneRecord
SQL = "SELECT * FROM beian WHERE 1=1"

If sorts <> "" And dir <> "" Then
SQL = SQL & " order by "&sorts&" "&dir&""
Else
SQL = SQL & " order by id desc"
End If
Set Rs = MHZG.GetRs(SQL,1,1) 这些应该会吧
If Not Rs.Eof Then 记录集不为空
DataCount = Cint(Rs.RecordCount)
Ls = Cint(start) + Cint(limit)
If Ls >= DataCount Then
Ls = DataCount
End If 统计 有记录数
JSON = Cstr("{total:"& DataCount & ",items:[") json格式的数据了.......
For i = start+1 To Ls
Rs.absoluteposition = i '将记录指针移到i--记录开始的位置
'读取记录中的各列数据
OneRecord = "{"
For j = 0 To Rs.Fields.Count -1
OneRecord = OneRecord & Chr(34) & Rs.Fields(j).Name & chr(34) & ":"
If j = Rs.Fields.Count-1 Then '是最后一列,就不加逗号
OneRecord = OneRecord & Chr(34) & Rs.Fields(j).Value & Chr(34)
Else
OneRecord = OneRecord & Chr(34) & Rs.Fields(j).Value & Chr(34) &","
End if
Next
OneRecord = OneRecord & "}"
'去除最后一条记录后的","
If i <> Ls Then
OneRecord = OneRecord & ","
End If
JSON = JSON & OneRecord
Next
JSON = JSON +"]}"
Echo(Json) 输出获取到的记录 ajax会得到这些数据 并处理
Rs.Close
Set Rs = Nothing
End If
End If ................没有什么的了

这是一段公共代码，实现对记录的新增、修改和删除。要看本页的上一也传过来什么动作，及save、del等。上一个页面传过来有ID 就是修改记录，没有就是添加记录。
后面一段是记录显示排序的问题，如果sort和dir不为空则按他们排序，否则按ID排序。
显示的记录是从start到limit的记录，有多少显示多少，如果记录多了超过start+limit的数量限制就显示start+limit条记录。
最后输出了一些统计信息，记录共有多少条，还带括号】的那种。
主要就是这么多。