<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>会展招投标会员中心</title>
<link href="user.css" rel="stylesheet" type="text/css" />
<link href="style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" language="javascript" src="js/jquery.js"></script>
<script type="text/javascript" language="javascript" src="js/site.js"></script>
</head>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Config.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="WebAdmins/FCKeditor/fckeditor.asp" -->
<%
Call ChkLogin(Session("DjbUserName"))
ID=0
SortID=0
Call ConnectionDataBase()
IF Request.QueryString("action")="modi" Then
	
	ID = Checkstr(Request.QueryString("ID"))
	Call ChkIsNumber(ID,"对不起,参数类型错误")
	Sql="Select Top 1 * From T_Sales Where ID=" & ID
	SetRs Rs,Sql,conn,1,1
	IF Not Rs.Eof Then
		BrandID=Rs("BrandID")
		NewsTitle=Rs("NewsTitle")
		Content =Rs("Content")	
		SortID=Rs("SortID")	
	End IF
	DisRs Rs
End IF
%>
<body><!--#include file="utop.asp"-->
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td><img src="images/ab_03.jpg" width="150" height="47" alt="" /> <a href="/ucompany.asp?userid=<%= Session("DjbUserID") %>" target="_blank">点击查看空间</a> </td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td><img src="images/ab_06.jpg" width="959" height="78" alt="" /></td>
  </tr>
</table>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
  <tr>
    <td width="180" valign="top"><!--#include file="vipleft.asp"-->
    </td>
    <td valign="top"><table width="98%" height="304" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="226" valign="top" class="borderall"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EDF6E3" class="margintop">
          <tr>
            <td height="30" class="borderall"> &nbsp;&gt;&gt;促销信息</td>
          </tr>
        </table>
		<!--#include file="vip_sales_top.asp"-->
		<form action="submit.asp" name="frm" method="post" />
		<input type="hidden" name="action" value="addsales" />
		<input type="hidden" name="id" value="<%=ID%>" />
		<input type="hidden" name="UserID" value="<%=Session("DjbUserID")%>" />
          <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="margintop">
            <tr>
              <td width="15%" align="right" class="borderall">信息标题:</td>
              <td width="85%" class="borderall" style="padding:5px">
			  <input type="text" name="newstitle" id="newstitle" class="boxb" value="<%=newstitle%>" />
    		  </td>
            </tr>
			<tr>
              <td width="15%" align="right" class="borderall">促销品牌:</td>
              <td width="85%" class="borderall" style="padding:5px">
			   <select name="Brand" id="Brand">
				<option value="0" selected>请选择品牌</option>
				<%
				For i=0 To UBOUND(BrandClass)
					Sql="SELECT * FROM T_Brand WHERE Recycle=0 AND ClassID="&BrandClass(i,0)&" ORDER BY SortID DESC,ID ASC"
					SetRs Rs,Sql,conn,1,1
					IF Not Rs.EOF Then
					%>
					<option value="<%=BrandClass(i,0)%>" <%IF Cstr(BrandClass(i,0))=Cstr(BrandID) Then Response.Write "Selected"%>><%=BrandClass(i,1)%></option>
					<%
					Do While Not Rs.EOF
					iCount = iCount + 1
					ClassName = Rs("FileName")
					ClassID = Rs("ID")
					%>
					<option value="<%=ClassID%>" <%IF Cstr(ClassID)=Cstr(BrandID) Then Response.Write "Selected"%>>&nbsp;&nbsp;&nbsp;&nbsp;<%=ClassName%></option>
					<%
					  Rs.movenext
					Loop
					End IF
					DisRs Rs
				Next
				
				%>
				</select>
    		  </td>
            </tr>
			<tr>
              <td width="15%" align="right" class="borderall">排序号:</td>
              <td width="85%" class="borderall" style="padding:5px">
			  <input type="text" id="SortID" name="SortID" class="txt" style="width:50px" value="<%=SortID%>" onkeyup="value=value.replace(/[^\d]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" /> 数字越大,排位越靠前
    		  </td>
            </tr>			
			<tr>
              <td align="right" class="borderboth">促销内容:</td>
              <td class="borderboth">
			  <% 
				Dim oFCKeditor
				Set oFCKeditor = New FCKeditor
				oFCKeditor.BasePath = "WebAdmins/FCKeditor/" '设置编辑器的路径，我站点根目录下的一个目录
				oFCKeditor.ToolbarSet = "Define"
				oFCKeditor.Width = "98%"
				oFCKeditor.Height = "300"
				
				oFCKeditor.Value = Content '这个是给编辑器初始值
				oFCKeditor.Create "Content" '以后编辑器里的内容都是由这个logbody取得，命名由你定		
				%>
			  </td>
            </tr>
			<tr>
              <td align="right" class="borderboth">&nbsp;</td>
              <td class="borderboth"><input type="image" src="images/save.jpg" /></td>
            </tr>
          </table>
		  </form>
		  </td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
