view.asp

功能齐全的oa系统

<% option explicit%>

<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="/include/Page.asp" -->
<%
Dim C
Dim IntID
Dim ObjDB,ObjRS,conn,rs

IntID = Request.QueryString("ID")

'Response.End

if Cint(IntID)=0 Then
	Response.Write "<script language=javascript>alert('请选择产品');history.back();</script>"
	Response.End
End if

Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
Set C = Server.CreateObject ("CMS2003.DBhandle")

C.Init(conn)

Set ObjRS = C.View("Select * From T_CRM_Product Where ID = " & IntID)
%>
<script language = "JavaScript">
/*
function getList()
{  
  window.location = "List.asp?W=" + "<%=Application("StrWhere")%>"
}
*/
</script>
<%
Sub Main
%>
    <input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
    <table class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LHtr align="middle">
      <td width="15%">基本信息</td>
      <td width="85%" colspan=3> </td>
    </tr>
    <tr class=Ltr>
      <td>产品名称</td>
      <td><input type="text" readonly class=Input Check=0 Show="产品名称" name="_Gname" value="<%=ObjRS("productname")%>"></td>
    </tr>
    <tr class=Ltr>
      <td>产品大类</td>
      <%
        set rs=server.createobject("adodb.recordset")
        Set rs = conn.Execute("select * from T_CRM_Guest_type where ID="&Cint(ObjRS("bigclass")))
        If rs.Eof Then%>
      <td><input type="text" readonly class=Input Check=0 Show="产品大类" name="_Gindustry" value="不祥"></td>
      <%Else%>
      <td><input type="text" readonly class=Input Check=0 Show="产品大类" name="_Gindustry" value="<%=rs("Gtype")%>"></td>
      <%End if%>
    </tr>
    <tr class=Ltr>
      <td>产品小类</td>
      <%Set rs = conn.Execute("select * from T_CRM_Guest_industry where ID="&Cint(ObjRS("smallclass")))
        If rs.Eof Then%>
      <td><input type="text" readonly class=Input Check=0 Show="产品小类" name="_Gtype" value="不祥"></td>
        <%else%>
      <td><input type="text" readonly class=Input Check=0 Show="产品小类" name="_Gtype" value="<%=rs("Gindustry")%>"></td>
        <%End if%>
    </tr>
    <tr class=Ltr>
      <td>供应商</td>
      <td><input type="text" readonly class=Input Check=0 Show="供应商" name="_Gtel" value="<%=ObjRS("supply")%>"></td>
    </tr>
    </table>

    <table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LStr>
	    <td width="15%">详细信息</td>
	    <td width="85%" colspan=3> </td>
    </tr>
    <tr class=Ltr>
      <td>产品简称</td>
      <td><input type="text" readonly class=Input Check=0 Show="产品简称" name="_Gkind" value="<%=ObjRS("shortname")%>"></td>
      <td>产品规格</td>
      <td><input type="text" readonly class=Input Check=0 Show="产品规格" name="_Goutpour" value="<%=ObjRS("spec")%>"></td>
    </tr>
    <tr class=Ltr>
      <td>产品产地</td>
      <td><input type="text" readonly class=Input Check=0 Show="产品产地" name="_Gcorporate" value="<%=ObjRS("proarea")%>"></td>
    	<td>生产商</td>
	    <td><input type="text" readonly class=Input Check=0 Show="生产商" name="_Gweb" value="<%=ObjRS("producer")%>"></td>
    </tr>
    <tr class=Ltr>
	    <td>成本价</td>
	    <td><input type="text" readonly class=Input Check=0 Show="成本价" name="_Gpost" value="<%=ObjRS("costprice")%>"> 元</td>
   	  <td>市场价</td>
	    <td><input type="text" readonly class=Input Check=0 Show="市场价" name="_Gfox" value="<%=ObjRS("marketprice")%>"> 元</td>
    </tr>
    <tr class=Ltr>
	    <td>代理价</td>
      <td><input type="text" readonly class=Input Check=0 Show="代理价" name="_Gemployeenum" value="<%=ObjRS("supplyprice")%>"> 元</td>
      <td>条形码</td>
      <td><input type="text" readonly class=Input Check=0 Show="条形码" name="_Gtechnum" value="<%=ObjRS("barcode")%>"></td>
    </tr>
    <tr class=Ltr>
		  <td>增加时间</td>
		  <td><input type="text" readonly class=Input Check=1 Show="增加时间" name="_CreateTime"  value="<%=ObjRS("CreateTime")%>"></td>
		  <td></td>
		  <td></td>
    </tr>
	  <tr class=Ltr>
		  <td>产品详细描述</td>
		  <td colspan=3><textarea rows="5" cols="40" readonly class=Input Check=0 Show="产品详细描述" name="_Gproductsource"><%=ObjRS("remark")%></textarea></td>
	  </tr>
	  <tr class=Ltr>
		  <td>产品评价</td>
		  <td colspan=3><textarea rows="5" cols="40" readonly class=Input Check=0 Show="产品评价" name="_Ghonor"><%=ObjRS("appraise")%></textarea></td>
	  </tr>
	</table>
  <table cellspacing=1 cellpadding=3>
    <tr>
      <td><input type="button" class=Button value="返 回" onclick="doList()" id=button1 name=button1></td>
      <td></td>
    </tr>
  </table>
<%
  conn.Close
  Set conn = Nothing
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->