<%@ Language=VBScript %>
<!--#include file="../../yns_chklogin.asp" -->
<!--#include File="../Functions.asp"-->
<%
Dim SitcomID
SitcomID = Request("SitcomID")

If IsNull(SitcomID) Or IsEmpty(SitcomID) Then
	Response.End
End If

Dim MyConn, RS, SqlSelect
Set MyConn = Server.CreateObject("Adodb.Connection")
Set MyConn = GetConnection
Set RS = Server.CreateObject("Adodb.RecordSet")

SqlSelect = "Select * From SitcomInfo Where SitcomID=" & SitcomID

RS.Open SqlSelect, MyConn

If RS.BOF Then
	RS.Close
	Set RS = Nothing
	MyConn.Close
	Set MyConn = Nothing
	
	Response.Redirect("..//Unexpectable_Error.htm")
	Response.End
End If

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

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

<TITLE>产品详情</TITLE>
</HEAD>

<BODY bgcolor="#ffffff">

<P>&nbsp;</P>
<table align=center cellpadding=0 cellspacing=0>
  <tr>
    <td align=center colspan=4><font size=4><b>产品详情</b></font></td>
  </tr>
  <tr>
    <td align=center colspan=4><hr></td>
  </tr>
  <tr>
    <td align=right>产品名：</td>
    <td align=left><%=RS("SitcomName")%></td>
 </tr>
  <tr>
    <td align=right>市场价：</td>
    <td align=left><%=RS("MarketPrice")%>元（人民币）</td>
  </tr>
  <tr>
    <td align=right>会员价：</td>
    <td align=left><%=RS("MemberPrice")%>元（人民币）</td>
  </tr>
   <%i=24
	   do while i<=rs.fields.count-1%>
	<tr>
      <td align=right>产品编号:</td>
      <td align=left><%=rs(i).value%></td>
    </tr>
	<%i=i+1
	   loop
	   %> 
  <tr>
    <td align=right>类别：</td>
    <td align=left><%=GetSitcomTypeName(RS("Type"))%></td>
    <td align=right>状态：</td>
    <td align=left><%=GetSitcomStateName(RS("State"))%></td>
  </tr>
  <tr>
    <td align=right>简介：</td>
    <td align=left colspan=3><TEXTAREA rows=4 cols=55 id=textarea1 name=BriefIntroduction readonly><%=RS("BriefIntroduction")%></TEXTAREA></td>
  </tr>
  <tr>
    <td align=right>详情：</td>
    <td align=left colspan=3><TEXTAREA rows=4 cols=55 id=textarea2 name=Detail class=text readonly><%=RS("Detail")%></TEXTAREA></td>
  </tr>
  <tr>
    <td align=right>小图片：</td>
    <td align=left colspan=3><img src="../showpic.asp?SitcomID=<%=RS("SitcomID")%>&Size=Small"></td>
  </tr>
  <tr>
    <td align=right>大图片：</td>
    <td align=left colspan=3><img src="../showpic.asp?SitcomID=<%=RS("SitcomID")%>&Size=large"></td>
  </tr>
  <tr><td colspan=4><HR></td></tr>
  <tr>
    <td colspan=4 align=right>
    <INPUT type="button" value="确定" id=button1 name=button1 class=buttonmanager onclick="window.close()">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </td>
  </tr>
  <tr height=30><td>&nbsp;</td></tr>
</table>
</form>
</BODY>
</HTML>
<%
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn = Nothing
%>