<!--#include file="Head.asp"-->
<script language="javascript" src="../Script/Admin.js"></script>
<% 
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then 
  response.redirect "MemberCenter.asp"
  response.end
end if
dim Result
Result=request.QueryString("Result")
dim ID,NewsName,SortName,SortID,SortPath,BigPic,VoticeFlag
dim GroupID,GroupIdName,Exclusive,NoticeFlag,Source,Content
ID=request.QueryString("ID")
set rs = server.createobject("adodb.recordset")
      sql="select * from ameav_News where UserID="&UserID
      rs.open sql,conn,1,1
	  UserID=rs("UserID")
	  NewsName=rs("NewsName")
	  ViewFlag  =rs("ViewFlag  ")
	  SortName=SortText(rs("SortID"))
	  SortID=rs("SortID")
	  SortPath=rs("SortPath")
	  Source=rs("Source")
	  NoticeFlag=rs("NoticeFlag")
	  GroupID=rs("GroupID")
	  Exclusive=rs("Exclusive")
      Content=rs("Content")
	  rs.close
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="210" height="500" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="1">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="200" height="25"><table width="215" border="0" align="center" cellpadding="1" cellspacing="0">
                  <tr>
                    <td width="215" height="38" background="../Images/VoteMenu.jpg"><div style="margin-left:90px;"><b><font color="#FFFFFF">会员中心</font></b></div></td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td align="center"></td>
            </tr>
            <tr>
              <td align="center"><%if vex=1 then%>
                <% =WebMenu() %>
                <%else%>
                <% =WebMenv() %>
                <% end if %></td>
            </tr>
            <tr>
              <td height="30">&nbsp;</td>
            </tr>
          </table>
          </td>
      </tr>
    </table>
	<!--#include file="tabmenu.asp"-->
      </td>
    <td width="1"   bgcolor="#dd0000"></td>
    <td width="690" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
  <form name="editForm" method="post" action="MembernewsSave.asp">
  <tr>
    <td height="24" >
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="26" height="32" align="center" bgcolor="#FFFFFF">&nbsp;</td>
          <td width="674" bgcolor="#FFFFFF" class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle" /><a href='AmvoteList.asp'>在线报名</a></td>
          <td width="80" bgcolor="#FFFFFF" class="Location"></td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0" id=editNews idth="100%">
        <tr>
          <td width="120" height="20" align="right">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td height="20" align="right">新闻名称：</td>
          <td><input name="NewsName" type="text" class="textfield" id="NewsName" style="WIDTH: 240;" value="<%=NewsName%>" maxlength="100"></td>
        </tr>
        <tr>
          <td height="20" align="right">所属类别：</td>
          <td><input name="SortName" type="text" class="textfield" id="SortName" value="<%=SortName%>" style="WIDTH: 240;background-color:#EBF2F9;" readonly>
            &nbsp;<a href="javaScript:OpenScript('../manage/SelectSort.asp?Result=News',500,500,'')"><img src="../manage/Images/Select.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
        </tr>
        <tr>
          <td height="20" align="right">类别数字：</td>
          <td><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#EBF2F9;" value="<%=SortID%>" readonly>
              <input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 200;background-color:#EBF2F9;" value="<%=SortPath%>" readonly>
            &nbsp;*</td>
        </tr>
        <tr>
          <td height="20" align="right">新闻来源：</td>
          <td><input name="Source" type="text" class="textfield" style="WIDTH: 240;" value="<%=Source%>" maxlength="100"></td>
        </tr>
		<%
	  if ViewFlag  then
      response.write" <INPUT type='hidden' name='ViewFlag  ' value='0' >"
	  else
      response.write" <INPUT type='hidden' name='ViewFlag  ' value='1' >"
	  end if
	  %>
        <tr>
          <td height="20" align="right" valign="top">信息内容：<br>
          <td>
		  <INPUT type='hidden' name='UserID' value='<%=UserID%>' >
          <INPUT type='hidden' name='Content' value='<%=Content%>'>
              <iframe ID="eWebEditor1" src="../WebEditor/ewebeditor.htm?id=Content&style=light" frameborder="0" scrolling="no" width="550" HEIGHT="300"></iframe></td>
        </tr>
        <tr>
          <td height="30" align="right">&nbsp;</td>
          <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
        </tr>
        <tr>
          <td height="20" align="right">&nbsp;</td>
          <td valign="bottom">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
  </form>
</table>
	</td>
  </tr>
</table>
</BODY>
</HTML>


<%

'生成所属类别--------------------------
Function SortText(ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From ameav_newsSort where ID="&ID
  rs.open sql,conn,1,1
  SortText=rs("SortName")
  rs.close
  set rs=nothing
End Function
%>
<!--#include file="Foot.asp"-->