下面这段代码看不懂,求大神赐教

下面这段代码看不懂,求大神赐教
public ActionForward save(ActionMapping mapping, ActionForm form,
HttpServletRequest request, HttpServletResponse response)
throws Exception
{
try
{
DynaActionForm dynForm = (DynaActionForm) form;
ArtModel artModel = new ArtModel();
BeanUtils.copyProperties(artModel, form);
int artId = 0;
String pageIds = dynForm.getString("pageIds");
String[] pageId = pageIds.split(",");
int pageNum = Integer.parseInt(dynForm.getString("pageNum"));
List pageList = new ArrayList();
for (int i = 1; i i
&& null != pageId[i - 1] && !"".equals(pageId[i - 1]))
{
page.setId(Long.parseLong(pageId[i - 1]));
}
pageList.add(page);
}
artModel.setPageList(pageList);
// 文章页面数清零
dynForm.set("pageNum", "0");
// 编辑保存
if (null != artModel.getShowArtId()
&& !"".equals(artModel.getShowArtId()))
{
String magaId = artModel.getMagaId();
String colId = artModel.getColId();
String artShowId = artModel.getShowArtId();
logger.info("edit article magaId = " + magaId + " colId ="
+ colId + " artShowId = " + artShowId);
Article article = new Article();
article.setId(Integer.valueOf(artShowId));
article.setName(artModel.getShowArtName());
article.setMagazineId(Integer.valueOf(magaId));
article.setColumnId(Integer.valueOf(colId));
ArticleDao.getInstance().updateArticle(article);
Magazine magazine = MagaDao.getInstance().getMagaById(magaId);
// PageDao.getInstance().delPageByArtId(artModel.getShowArtId());
// FileOpreration.delAllFile(magazine.getMagazineURL()
// + Constant.SLASH + artId);
int id = Integer.valueOf(magaId);
String str = Constant.FILE_PATH + Constant.SLASH + id;

Dim record_Num As Integer
'变量 存储的记录条数
Private Sub Command1_Click()
Unload Me
'单击此命令按钮则关闭当前窗口
End Sub
Private Sub Form_Activate()
Dim i As Integer,filenum As Integer
If Dir(App.Path & "\data.dat") = "" Or FileLen(App.Path & "\data.dat") = 0 Then
'如果当前程序所在目录下不存在名为data.dat的数据文件或者该文件大小为0字节则
MsgBox "没有数据可以浏览!",vbOKOnly + vbInformation,"错误"
'弹出一个对话框提示没有数据可以浏览
Unload Me
'然后退出程序
End If
filenum = FreeFile
'得到一个空闲的文件号
Open App.Path & "\data.dat" For Random As #filenum Len = Len(Nod)
'用这个文件号以随机的方式打开当前程序所在目录下的data.dat文件,每次读取的长度为一个Nod的长度
record_Num = LOF(filenum) / Len(Nod)
'计算记录的总条数=文件大小/一条记录的长度
While Not EOF(filenum)
'如果文件没有读取到最后则执行如下操作
Get #filenum,,Nod
'从文件中读取一条记录
Text1 = Text1.Text & vbCrLf & Trim(Nod.Name) & " " & Trim(Nod.Phone) & " " & Trim(Nod.Email) & " " & Trim(Nod.Addr)
'将读取到的记录添加到text1中的一个新行中,记录的各个属性中间用几个空格隔开
Wend
'循环结束后关闭文件
Close #filenums
Label1.Caption = "总记录数：" & record_Num
'Label1中显示记录总条数
End Su