ASP高手来解释一下,越细越好

<!--#include File="conn.asp"--> ‘把数据库文件包含进去
<%
Dim id ’定义变量
Dim Rs,Sql
id = Replace(Trim(Request.QueryString("id")),"'","") ‘接收变量并进行防注入处理
If Session("id"&id)<>"" Then ’检查session值，如果不为空，则：
Set Rs = Server.CreateObject("ADODB.Recordset") ‘建立记录集
Sql = "Select * From News Where id="&id ’连接数据库条件
Rs.Open Sql,Conn,3,3 ‘打开记录集
If Rs.Eof And Rs.Bof Then ’如果没有在数据库中找到符合条件的记录，则执行如下：
Response.Write("NoData") ‘没有记录，显示：NODATA
Else ’如果有记录，则显示如下：
Response.Write("Dig") ‘输出一个DIG
Response.Write(",") 输出逗号
Response.Write(Rs("Dig")) ’输出记录集中的DIG的值
End If ‘判断记录集是否为空结束
Else ’如果session空值。
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From