附件: 您所在的用户组无法下载或查看附件

代码中如下：<tr>
        <%
    Dim classRs,ClassCName,MainClassName
    if contrObj.ClassID<>"" then
    Set ClassRs=User_Conn.execute("select ClassCName from FS_ME_InfoClass where classid="&contrObj.ClassID)
    if not ClassRs.eof then
      ClassCName=ClassRs("ClassCName")
    Else
      ClassCName=""
    End if
    Else
    ClassCName=""
    End if
    if contrObj.MainID<>"" then
    Set ClassRs=Conn.execute("select ClassName from FS_NS_NewsClass where id="&contrObj.MainID&" and isConstr=1")
    if not ClassRs.eof then
      MainClassName=ClassRs("ClassName")
    Else
      MainClassName=""
    End if
    Else
    MainClassName=""
    End if
    if isNull(classRs) then classRs.close:set classRs=nothing
  %>
        <td align="right" class="hback">信息分类：</td>
        <td align="left" class="hback">
          <input type="text" name="txt_Class" style="width:60%" readonly  value="<%=ClassCName%>"/>
          <input type="hidden" name="txt_ClassID" style="width:60%" value="<%=contrObj.ClassID%>">
          <button >选择分类</button>
        <span id="span_class"><font color="#FF0000">*</font></span></td>
        </tr>

必要要选择分类信息的,这个可以设置!

解决方法：
作者：帆月传说
http://bbs.foosun.net/showtopic-58727.aspx