<%@ Language=VBScript %>
<!--#include File="../Functions.asp"-->
<!--#include File="../ClientScript.asp"-->
<!--#include file="../../yns_chklogin.asp" -->
<%
Dim MyConn, RS, SqlSelect
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection
Set RS = Server.CreateObject("Adodb.RecordSet")
SqlSelect = "Select * From SitcomInfo"
RS.Open SqlSelect, MyConn, 1, 3
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">

<link rel="stylesheet" href="../../zf.css">

<TITLE>添加产品</TITLE>
</HEAD>

<script language="javascript">
<!--
function loginfocus()
	{
	document.FormAddSitCom.SitcomName.focus();
	return;
	}
	
//-->
</script>

<BODY onload="loginfocus();" bgcolor="#ffffff">

<P>　</P>
<form name=FormAddSitCom method=post action=DoAddSitcom.asp enctype="multipart/form-data">
  <table width="100%" align=center cellpadding=0 cellspacing=0>
    <tr> 
      <td align=center colspan=4><font size=4><b>添加产品</b></font></td>
    </tr>
    <tr> 
      <td align=right colspan=4>带<font color=red>*</font>的为必填项</td>
    </tr>
    <tr> 
      <td align=center colspan=4><hr></td>
    </tr>
    <tr> 
      <td align=right>品　　名：</td>
      <td height="25" align=left> <INPUT type="text" id=text1 name=SitcomName class=text size="20"></td>
    </tr>
    <tr> 
      <td align=right>产品编号：</td>
      <td height="25" align=left> <INPUT type="text" id=text8 name=sitcombh class=text size=20><label for="tj"><input name="tj" type="checkbox" id="tj" value="true" >
        是否推荐</label> 
      </td>
    </tr>
    <tr> 
      <td align=right>类　　型：</td>
      <td height="25" colspan="3" align=left> <Select id=select2 name=SitcomType>
          <%
		  Dim TypeID
		  on error resume next
		  TypeID=Clng(Request.QueryString("TypeID"))
      SqlSelect = "Select * From SitcomType"
      Set RS = MyConn.Execute(SqlSelect)
      
      If RS.BOF Then
      %>
          <Option value=0>还没有类型</Option>
          <%
      Else
		Do While Not RS.EOF
      %>
          <Option value=<%=RS("TypeID")%><%if TypeID=RS("TypeID") THen Response.write " Selected"%>><%=RS("TypeName")%></Option>
          <%
		  RS.MoveNext
		Loop
      End If
      %>
        </Select> </td>
    </tr>
    <tr> 
      <td align=right>选择小图片：</td>
      <td align=left colspan=3><INPUT type="file" id=file1 name=SmallPic class=file size=40></td>
    </tr>
    <tr> 
      <td align=right>选择大图片：</td>
      <td align=left colspan=3><INPUT type="file" id=file2 name=LargePic class=file size=40></td>
    </tr>
    <tr> 
      <td align=right>简介：</td>
      <td align=left colspan=3><TEXTAREA rows=4 cols=55 id=textarea1 name=BriefIntroduction></TEXTAREA></td>
    </tr>
    <tr> 
      <td align=right>详　　情：</td>
      <td align=left colspan=3><iframe ID="eWebEditor1" src="../editor/ewebeditor.asp?id=Detail&style=standard" frameborder="0" scrolling="no" width="100%" HEIGHT="350"></iframe> 
        <input name="Detail" type="hidden" id="Detail" value="">
        <input name="enDetail" type="hidden" id="enDetail" value="">
        <input name="guzhang" type="hidden" id="guzhang" value=""></td>
    </tr>
    <tr> 
      <td colspan=4><HR> <input name="test" type="hidden" id="test" value=""></td>
    </tr>
    <tr> 
      <td colspan=4 align=right> <INPUT type="submit" value="确定" id=submit1 name=SubmitAdd class=buttonmanager> 
        <INPUT type="button" value="取消" id=button1 name=button1 onclick="window.history.back()" class=buttonmanager> 
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>
    </tr>
  </table>
</form>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>