各行单元格数不一样的情况

<table class="UserTableBorder" cellspacing="1" cellpadding="3" align="center" border="0">

 <tr>

  <th colspan="2">&gt;&gt;发布<%=Newasp.ModuleName%>&lt;&lt;</th>

 </tr>

 <form action="flashlist.asp" method="post" οnsubmit="return doSubmit()" name="myform">

 <input type="Hidden" name="action" value="save"/>

 <input type="hidden" name="ChannelID" value="<%=ChannelID%>"/>

 <input type="hidden" name="flashid" value="<%=flashid%>"/>

  <tr>

   <td class="UserTableRow2" nowrap="nowrap" align="right" width="15%"><strong>所属分类</strong></td>

   <td class="UserTableRow1" width="85%"><%

 Dim sClassSelect

 Response.Write "<select name=""ClassID"" id=""ClassID"">"

 sClassSelect = Newasp.LoadSelectClass(ChannelID)

 Response.Write sClassSelect

 Response.Write "</select>"

%></td>

  </tr>

  <tr>

   <td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>标题</strong></td>

   <td class="UserTableRow1"><input size="60" name="title" value="<%=Server.HTMLEncode(Rs("title"))%>" type="text" /> <font color="#ff0000">*</font></td>

  </tr>

  <tr>

   <td class="UserTableRow2" align="right" colspan="2" >相关</td>

 

  </tr>

  <tr>

   <td class="UserTableRow2" align="right"><strong>文件大小</strong></td>

   <td class="UserTableRow1">

   <input id="filesize" size="15" οnkeyup="if(isNaN(this.value))this.value=''" name="filesize" value="<%=Newasp.CheckNumeric(Rs("filesize"))%>" type="text" />

   <input type="radio" checked="checked" name="SizeUnit" value="KB" /> KB

   <input type="radio" name="SizeUnit" value="MB" /> MB <strong>推荐星级</strong>

   <select name="star">

   <option value="5"<%If Rs("star") = 5 Then Response.Write (" selected=""selected""")%>>★★★★★</option>

   <option value="4"<%If Rs("star") = 4 Then Response.Write (" selected=""selected""")%>>★★★★</option>

   <option value="3"<%If Rs("star") = 3 Then Response.Write (" selected=""selected""")%>>★★★</option>

   <option value="2"<%If Rs("star") = 2 Then Response.Write (" selected=""selected""")%>>★★</option>

   <option value="1"<%If Rs("star") = 1 Then Response.Write (" selected=""selected""")%>>★</option>

   </select>

  </td>

  </tr>

  <tr>

   <td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>作者</strong></td>

   <td class="UserTableRow1">

   <input name="Author" value="<%=MemberName%>" type="Hidden" />

   <strong><%=Newasp.ModuleName%>来源</strong>

   <input name="ComeFrom" value="http://sohujob.com" type="hidden" />

   <select onChange="ComeFrom.value=this.value;" name="font1">

   <option value="" selected="selected">选择来源</option>

   <option value="本站原创">本站原创</option>

   <option value="本站整理">本站整理</option>

   <option value="不详">不详</option>

   <option value="转载">转载</option>

   </select>

  </td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong>内容</strong></td>

  <td class="usertablerow1" >

  <%

 '-- 编辑器设置

 Dim oEditor,EditorCode

 Set oEditor    = New Editor_Cls

 oEditor.UserMode  = 1

 oEditor.setEditMode  = Newasp.setUserEditor(0)

 oEditor.ChannelID  = ChannelID

 oEditor.Width   = Newasp.setUserEditor(2)

 oEditor.Height   = Newasp.setUserEditor(3)

 oEditor.BasePath  = Newasp.InstallDir & Newasp.setAdminEditor(4)

 oEditor.ToolbarSet  = Newasp.setUserEditor(1)

 oEditor.Value   = Re_Replace(Rs("Introduce"), "[InstallDir_ChannelDir]", InstallDir_ChannelDir)

 oEditor.InstanceName = "content"

 oEditor.Execute()

 Set oEditor = Nothing

%>

</td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong>预览图片</strong></td>

  <td class="UserTableRow1">

  <input id="ImageUrl" size="60" name="miniature" value="<%=Server.HTMLEncode(Rs("miniature") & "")%>" type="text" />

  </td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong>上传图片</strong></td>

  <td class="UserTableRow1">

  <!--<iframe name="frm_image2" src="upload.asp?ChannelID=<%=ChannelID%>" frameborder="0" width="100%" scrolling="no" height="55"></iframe>-->

  </td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong>显示模式</strong></td>

  <td class="UserTableRow1">

  <%

Dim ShowModeArray

ShowModeArray = Array("不显示","FLASH","图片","Media","Real","DCR")

For i = 0 To UBound(ShowModeArray)

 Response.Write "<input type=""radio"" name=""showmode"" value=""" & i & """ "

 If i = Rs("showmode") Then Response.Write " checked"

 Response.Write "/>" & Trim(ShowModeArray(i)) & " "

 If i = 6 Then Response.Write "<br>"

Next

%>

 </td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong><%=Newasp.ModuleName%>URL</strong></td>

  <td class="UserTableRow1">

  <input id="filePath" size="60" name="showurl" value="<%=Server.HTMLEncode(Rs("showurl") & "")%>" type="text" /> <font color="#ff0000">*</font>

  </td>

  </tr>

  <tr>

  <td class="UserTableRow2" align="right"><strong>文件上传</strong></td>

  <td class="UserTableRow1">

  <iframe name="frm_file1" src="upfile.asp?ChannelID=<%=ChannelID%>&amp;type=flash" frameborder="0" width="100%" scrolling="no" height="60"></iframe>

  </td>

  </tr>

  <%

If CInt(GroupSetting(2)) = 1 Then

%>

  <tr>

  <td class="UserTableRow2" align="right"><strong>验证码</strong></td>

  <td class="UserTableRow1">

  <input maxlength="5" size="5" name="codestr" type="text" />&nbsp;

  <img style="cursor: pointer" height="10" alt="验证码,看不清楚?请点击刷新验证码" οnclick="this.src='../inc/getcode.asp?t='+(new Date().getTime());" src="../inc/getcode.asp" />

  </td>

  </tr>

  <%

End If

%>

  <tr align="center">

   <td class="UserTableRow2" colspan="4"><input class="Button" type="button" οnclick="javascript:history.go(-1)" name="Submit4" value="返回上一页" /> <input class="Button" type="submit" name="Submit1" value="现在发布" /></td>

  </tr>

 </form>

</table>