<%
Dim ThisID as integer = Val(Request.QueryString("Id"))
Dim Dt As DataTable = AboutData.GetData(ThisID)
If Dt.Rows.Count = 0 Then
Dt.Dispose()
Response.Write("参数错误")
Exit Sub
End If
Dim ATitle,AText As String
ATitle = Dt.Rows(0)("A_Title")
AText = Dt.Rows(0)("A_Text")
Dt.Clear()
%>
关于我们 - {$WebSet.Name$}