gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\intro.asp
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<!--#include file="inc.html" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM dbo.DrugCategory"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "SELECT * FROM dbo.MeidCategory"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<HTML>
<HEAD>
<TITLE>天乐药业有限公司</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (psd.jpg) -->
<TABLE WIDTH=1000 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=5>
<IMG SRC="images/register_1.jpg" WIDTH=179 HEIGHT=49 ALT=""></TD>
<TD ROWSPAN=10 valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td height="51" colspan="3"><img src="images/intro_name.jpg" width="621" height="50"></td>
</tr>
<tr>
<td width="5%" height="171"> </td>
<td colspan="2" align="center"><img src="images/company.jpg" width="384" height="162"></td>
</tr>
<tr>
<td height="377"> </td>
<td colspan="2" align="center"><textarea name="textarea" cols="70" rows="25" wrap="VIRTUAL" readonly> 天乐医药公司是以"天乐科技实业（集团）有限公司"为核心而组建的企业集团，是一家以中西药和生物基因制药研发、生产、销售、成果转让、技术咨询服务为主的高新技术企业。集团目前主要成员有：以生产中成药为主的天乐制药有限公司、四川济生堂药业有限公司、新加坡余仁生-天乐植物药有限公司；以生产西药为主的成都大西南制药股份有限公司；以医药贸易为主的四川天乐医药贸易有限公司；以生产基因技术产品为主的成都法玛基因科技有限公司；以研发为主的天乐中药制剂科技开发有限公司等七家公司。同时，集团已在多处建立了三个符合GMP要求的生产基地。
集团技术中心被四川省政府评定为省级技术中心；2000年以技术中心为依托的天乐后工作站获国家人事部批准并正式组建，现已有多名博士进站从事新药研究工作。集团拥有大量专利技术及科技成果，并成为了企业核心竞争优势。同时，天乐集团非常注重新产品的开发，投入大量资金进行新产品开发。
集团品种"松龄血脉康胶囊"、"一清胶囊"单品种销售火爆；国家二类新药："博乐欣胶囊"、"贝络纳片"销量连续三年实现翻番；国家四类新药："镇咳宁胶囊"、"胆舒胶囊"、"济生黄连上清丸"市场前景看好。
集团本着以市场为导向的经营理念，视商业信誉和服务质量为生命，按GSP标准进行规范化管理，按ERP现代化管理系统积极开拓营销网络建设，形成了完善的营销体系。同时，借我国加入WTO的契机，集团正积极拓展国际市场，在新加坡建立了"余仁生--天乐植物药有限公司"，在东南亚及欧美地区也将逐渐建立办事机构和销售网络。
在各级政府和主管部门的领导下，集团公司逐步发展，开拓创新，形势喜人。我们的目标不仅是生产销售药品获取利润以求自身的不断发展，创造良好的社会效益同样是天乐的目标。
天乐集团成员公司
天乐医药公司是以"天乐科技实业（集团）有限公司"为核心而组建的企业集团，是一家以中西药和生物基因制药研发、生产、销售、成果转让、技术咨询服务为主的高新技术企业。集团目前主要成员有：以生产中成药为主的天乐制药有限公司、四川济生堂药业有限公司、新加坡余仁生-天乐植物药有限公司；以生产西药为主的成都大西南制药股份有限公司；以医药贸易为主的四川天乐医药贸易有限公司；以生产基因技术产品为主的成都法玛基因科技有限公司；以研发为主的天乐中药制剂科技开发有限公司等七家公司。同时，集团已在多处建立了三个符合GMP要求的生产基地。
集团技术中心被四川省政府评定为省级技术中心；2000年以技术中心为依托的天乐后工作站获国家人事部批准并正式组建，现已有多名博士进站从事新药研究工作。集团拥有大量专利技术及科技成果，并成为了企业核心竞争优势。同时，天乐集团非常注重新产品的开发，投入大量资金进行新产品开发。
集团品种"松龄血脉康胶囊"、"一清胶囊"单品种销售火爆；国家二类新药："博乐欣胶囊"、"贝络纳片"销量连续三年实现翻番；国家四类新药："镇咳宁胶囊"、"胆舒胶囊"、"济生黄连上清丸"市场前景看好。
集团本着以市场为导向的经营理念，视商业信誉和服务质量为生命，按GSP标准进行规范化管理，按ERP现代化管理系统积极开拓营销网络建设，形成了完善的营销体系。同时，借我国加入WTO的契机，集团正积极拓展国际市场，在新加坡建立了"余仁生--天乐植物药有限公司"，在东南亚及欧美地区也将逐渐建立办事机构和销售网络。
在各级政府和主管部门的领导下，集团公司逐步发展，开拓创新，形势喜人。我们的目标不仅是生产销售药品获取利润以求自身的不断发展，创造良好的社会效益同样是天乐的目标。
天乐集团成员公司
大西南制药股份有限公司 成都法玛基因科技有限公司
天乐医药贸易有限公司 天乐制药有限公司
天乐中药制剂科技开发有限公司 济生堂药业有限公司 </textarea></td>
</tr>
<tr>
<td> </td>
<td width="65%"> </td>
<td width="30%"> </td>
</tr>
</table></TD>
<TD ROWSPAN=10 valign="top">
<IMG SRC="images/register_3.jpg" WIDTH=200 HEIGHT=618 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=49 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=5 align="right" background="images/register_4.jpg"><input name="" type="text" size="12" maxlength="12"> <br>
<input name="" type="password" size="12" maxlength="12">
</TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=62 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=2 ROWSPAN=2> <img src="images/register_5.jpg" width=123 height=19 alt=""></TD>
<TD COLSPAN=2>
<IMG SRC="images/register_6.jpg" WIDTH=45 HEIGHT=16 ALT=""></TD>
<TD ROWSPAN=2>
<IMG SRC="images/register_7.jpg" WIDTH=11 HEIGHT=19 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=16 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=2>
<IMG SRC="images/register_8.jpg" WIDTH=45 HEIGHT=3 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=3 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=5>
<IMG SRC="images/register_9.jpg" WIDTH=179 HEIGHT=50 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=50 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=5 rowspan="3" valign="top" background="images/register_10.jpg">
<form name="form1" method="post" action="result.asp?action=search">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="42%" height="34"> </td>
<td width="58%" valign="bottom"><select name="DrugCategory" size="1" id="DrugCategory">
<option value="D0">==请选择==</option>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("cDrugId").Value)%>"><%=(Recordset1.Fields.Item("cDrugName").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select></td>
</tr>
<tr>
<td height="33"> </td>
<td valign="bottom"><select name="Jixing" size="1" id="Jixing">
<option value="M0">==请选择==</option>
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fields.Item("cMedId").Value)%>"><%=(Recordset2.Fields.Item("cMediaName").Value)%></option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select></td>
</tr>
<tr>
<td height="28"> </td>
<td valign="bottom"><select name="chufang" size="1">
<option value="0">==请选择==</option>
<option value="1">是</option>
<option value="2">否</option>
</select></td>
</tr>
<tr>
<td height="30"> </td>
<td valign="bottom"><select name="yibao" size="1" id="yibao">
<option value="0">==请选择==</option>
<option value="1">是</option>
<option value="2">否</option>
</select></td>
</tr>
<tr>
<td height="28" width="42%"> </td>
<td align="left" valign="bottom"><input name="submit" type="submit" style="background-image:url('images/register_12.jpg');border:0;width:54;height:19" value=""></td>
</tr>
</table>
</form>
</TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=139 ALT=""></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=19 ALT=""></TD>
</TR>
<TR>
<TD height="8">
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=8 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=5>
<IMG SRC="images/register_15.jpg" WIDTH=179 HEIGHT=158 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=158 ALT=""></TD>
</TR>
<TR>
<TD COLSPAN=5 ROWSPAN=2>
<IMG SRC="images/register_16.jpg" WIDTH=179 HEIGHT=169 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=114 ALT=""></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/register_17.jpg" WIDTH=621 HEIGHT=55 ALT=""></TD>
<TD>
<IMG SRC="images/register_18.jpg" WIDTH=200 HEIGHT=55 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=55 ALT=""></TD>
</TR>
<TR>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=76 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=47 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=7 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=38 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=11 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=621 HEIGHT=1 ALT=""></TD>
<TD>
<IMG SRC="images/spacer.gif" WIDTH=200 HEIGHT=1 ALT=""></TD>
<TD></TD>
</TR>
</TABLE>
<!-- End ImageReady Slices -->
</BODY>
</HTML>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>