做一个项目的时候，要调用文章模型有题图的文章，但是网人系统对于文章这块比较简单，没有这个功能，只能自己动手加了。
步骤：
1、打开/Inc/Cls.Label.asp，在900行增加
ePic=Int(Left(Str(23),1))
If ePic>0 Then eSql = eSql & " And A.WM_DefaultPicUrl<>''"
2、打开/Admin/WM.Skin_Label.asp，在924行下边增加：
A_Pic= WRMPS.CheckStr(Request.Form("A_Pic"),1)
将原925行的
WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Channel&","&A_Class&","&A_ChildClass&","&A_IsDefault&","&A_IsHot&","&A_IsElite&","&A_InputerName&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_CommentCss&","&A_OrderType&","&A_HotNum&","&A_NewNum&","&A_ContentLen&","&A_Area&","&Content&
修改为：
WM_Content = Export&","&TDCSS&","&TDCSS1&","&TDCSS2&","&A_Channel&","&A_Class&","&A_ChildClass&","&A_IsDefault&","&A_IsHot&","&A_IsElite&","&A_InputerName&","&A_Num&","&A_ColsNum&","&A_DayNum&","&A_Len&","&A_TitleEllipsis&","&A_CommentCss&","&A_OrderType&","&A_HotNum&","&A_NewNum&","&A_ContentLen&","&A_Area&","&Content&","&A_Pic
3、打开/Admin/Label/WM.Skin_Label_InArticle.asp，将95中的 colspan=5删除，第95行变更为：
AddLabel = AddLabel & " <td ><input name=A_ContentLen type=text size=10 maxlength=5 value='"&a_Content(20)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不显示'></td>" & vbCrLf
在95行下添加：
AddLabel = AddLabel & " <td>是否为图片新闻</td>" & vbCrLf
AddLabel = AddLabel & " <td colspan=3><input name=A_Pic type=radio value=0 "&NO&">所有新闻<input name=A_Pic type=radio value=1 "&OK&">图片新闻</td>" & vbCrLf
在50行下增加：
Dim OK,NO:if a_Content(23)<>0 then OK="checked":No="":Else:OK="":NO="checked":End if
OK了，现在就修改完成了。
重新增加文章标签的时候就会有“所有新闻”或“图片新闻”的选项了。这样操作有一个弊端就是原来的标签都要进行更改了，不修改会出现溢出错误。有一个方便的方法就是手动修改数据库，方法简单不讲解。