<%

Sub AddSmallClass
AddStr = AddStr & "<table width=50% border=0 align=center cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25>"
AddStr = AddStr & "<div align=center><strong>新 闻 类 别 添 加</strong></div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>"
AddStr = AddStr & "<td><table width=90% border=0 align=center cellpadding=2 cellspacing=0><tr>" 
AddStr = AddStr & "<td><form name=form1 method=post "
AddStr = AddStr & " action='News_AddClass.asp?add=smallclass' onsubmit='return checkSmall()'>"
AddStr = AddStr & "<table width=80% border=0 align=center cellpadding=1 cellspacing=2 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td colspan=2 height=28><div align=center></div>"
AddStr = AddStr & "<div align=center><strong>添加小类</strong></div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width='27%'>所属大类：</td>"
AddStr = AddStr & "<td width='73%'>"
AddStr = AddStr & "<select name='selectd'>"
   Set sm = Conn.Execute("Select * From [BigClassNews]")
   If Not sm.Eof Then
   AddStr = AddStr & "<option value=0>选择新闻大类</option>"
   Do While Not sm.Eof
   AddStr = AddStr & "<option value=" &sm("News_BigClassName")& ">" &sm("News_BigClassName")& "</option>"
   sm.MoveNext
   Loop
   End if
AddStr = AddStr & "</select>"
AddStr = AddStr & "</td></tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td>小类名称：</td>"
AddStr = AddStr & "<td><input type=text name='SmallClassName'></td>"
AddStr = AddStr & "</tr><tr><td>&nbsp;</td>"
AddStr = AddStr & "<td height=30>"
AddStr = AddStr & "<input type='Submit' name=AddS value=' 添 加 '>"
AddStr = AddStr & "</td></tr></table>"
AddStr = AddStr & "</form></td></tr>"
AddStr = AddStr & "</table></td></tr>"
AddStr = AddStr & "</table>"
Response.Write AddStr
End Sub

Sub AddBigClass
AddStr = AddStr & "<table width=100% height=40% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=153 align=center valign=top>" 
AddStr = AddStr & "<table width=80% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td align=center valign=top><br>"
AddStr = AddStr & "<strong>新 闻 类 别 添 加</strong><br>" 
AddStr = AddStr & "<form name=form1 method=post action='News_AddClass.asp?add=bigclass' onsubmit='return checkBig()'>"
AddStr = AddStr & "<table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25 colspan=2 align=center><strong>添加大类</strong></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width=126 height=22>" 
AddStr = AddStr & "<div align=right>大类名称：</div></td>"
AddStr = AddStr & "<td width=218>"
AddStr = AddStr & "<input name='BigClassName' type=text size=20 maxlength=30>"
AddStr = AddStr & "</td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=22 align=center>&nbsp; </td>"
AddStr = AddStr & "<td height=30 align=center>" 
AddStr = AddStr & "<div align=left>" 
AddStr = AddStr & "<input name=Add type=submit value=' 添 加 '>"
AddStr = AddStr & "</div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>"
AddStr = AddStr & "</form></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>" 
Response.Write AddStr
End Sub

Sub EditSmallClass
AddStr = AddStr & "<table width=100% height=40% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=153 align=center valign=top>" 
AddStr = AddStr & "<table width=80% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td align=center valign=top><br>"
AddStr = AddStr & "<strong>新 闻 类 别 修 改</strong><br>" 
AddStr = AddStr & "<form name=form1 method=post action='News_EditNews.asp?action=upsmall&smallid=" &Request("smallid")& "' onsubmit='return checkSmall()'>"
AddStr = AddStr & "<table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25 colspan=2 align=center><strong>修改小类</strong></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width=126 height=22>" 
AddStr = AddStr & "<div align=right>小类名称：</div></td>"
AddStr = AddStr & "<td width=218>"
      Set su = Conn.Execute("Select * From [SmallClassNews] Where News_SmallID="&Cint(Request("smallid")))
      If Not su.Eof Then
      AddStr = AddStr & "<input name='SmallClassName' type=text size=20 value=" &su("News_SmallClassName")& " maxlength=30>"
      End if 
AddStr = AddStr & "</td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=22 align=center>&nbsp; </td>"
AddStr = AddStr & "<td height=30 align=center>" 
AddStr = AddStr & "<div align=left>" 
AddStr = AddStr & "<input name=Update type=submit value=' 修 改 '>"
AddStr = AddStr & "</div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>"
AddStr = AddStr & "</form></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>" 
Response.Write AddStr
End Sub

Sub EditBigClass
AddStr = AddStr & "<table width=100% height=40% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=153 align=center valign=top>" 
AddStr = AddStr & "<table width=80% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td align=center valign=top><br>"
AddStr = AddStr & "<strong>新 闻 类 别  修 改</strong><br>" 
AddStr = AddStr & "<form name=form1 method=post action='News_EditNews.asp?action=upbig&bigid=" &Request("bigid")& "' onsubmit='return checkBig()'>"
AddStr = AddStr & "<table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25 colspan=2 align=center><strong>修改大类</strong></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width=126 height=22>" 
AddStr = AddStr & "<div align=right>大类名称：</div></td>"
AddStr = AddStr & "<td width=218>"
      Set bu = Conn.Execute("Select * From BigClassNews Where News_BigID="&Cint(Request("bigid")))
      If Not bu.Eof Then
   AddStr = AddStr & "<input name='BigClassName' type=text size=20 value= " &bu("News_BigClassName")& " maxlength=30>"
      End if
AddStr = AddStr & "</td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=22 align=center>&nbsp; </td>"
AddStr = AddStr & "<td height=30 align=center>" 
AddStr = AddStr & "<div align=left>" 
AddStr = AddStr & "<input name=UpdateB type=submit value=' 修 改 '>"
AddStr = AddStr & "</div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>"
AddStr = AddStr & "</form></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>" 
Response.Write AddStr
End Sub
%> 