index.asp ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) - ASP源码程序

www.gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\index.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
%>
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_conn_STRING
Recordset3.Source = "select top 4 iNewsId,cNewsTitle from News"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>
<%
Dim Recordset4
Dim Recordset4_numRows

Set Recordset4 = Server.CreateObject("ADODB.Recordset")
Recordset4.ActiveConnection = MM_conn_STRING
Recordset4.Source = "select top 4 iMedicaId,cMedicaName from Medica"
Recordset4.CursorType = 0
Recordset4.CursorLocation = 2
Recordset4.LockType = 1
Recordset4.Open()

Recordset4_numRows = 0
%>
<HTML>
<HEAD>
<TITLE>天乐药业有限公司</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
.style2 {
	color: #666666;
	font-weight: bold;
}
.style4 {font-size: 12px; color: #999999; }
-->
</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 ROWSPAN=2>
			<IMG SRC="images/index_1.jpg" WIDTH=179 HEIGHT=49 ALT=""></TD>
		<TD COLSPAN=22>
			<IMG SRC="images/index_2.jpg" WIDTH=821 HEIGHT=41 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=41 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=3 ROWSPAN=8>
			<IMG SRC="images/index_3.jpg" WIDTH=88 HEIGHT=177 ALT=""></TD>
		<TD COLSPAN=3 ROWSPAN=2 valign="top" bgcolor="#FFFFFF"><span class="style2">新进药品情况</span><br>
	    &nbsp;&nbsp;<span class="style4">关于公司最新进的药品请来这里查询</span></TD>
		<TD COLSPAN=3 ROWSPAN=8>
			<IMG SRC="images/index_5.jpg" WIDTH=98 HEIGHT=177 ALT=""></TD>
		<TD COLSPAN=4 ROWSPAN=2 valign="top" bgcolor="#FFFFFF"><span class="style2">社区讨论</span><br>
	    &nbsp;&nbsp;<span class="style4">关于公司业务上的疑惑请来这里咨询吧</span> </TD>
		<TD COLSPAN=5 ROWSPAN=6>			<img src="images/index_7.jpg" width=116 height=139 alt=""></TD>
		
    <TD COLSPAN=3 ROWSPAN=2 valign="top" bgcolor="#FFFFFF"><font color="#666666"><strong>工作计划</strong></font><br>
      <font color="#999999" size="2">关于最近工作的计划</font></TD>
		<TD ROWSPAN=24 valign="top">
			<IMG SRC="images/index_9.jpg" WIDTH=200 HEIGHT=632 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=8 ALT=""></TD>
	</TR>
	<TR>
	  <TD COLSPAN=5 ROWSPAN=2 align="right" background="images/index_10.jpg"><input name="" type="text" size="12" maxlength="12">&nbsp;&nbsp;<br><input name="" type="password" size="12" maxlength="12">
      &nbsp;</TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=59 ALT=""></TD>
	</TR>
	<TR>
		<TD ROWSPAN=6>
			<IMG SRC="images/index_11.jpg" WIDTH=46 HEIGHT=110 ALT=""></TD>
		<TD ROWSPAN=2>
			<a href="http://127.0.0.1/disAllMedica.asp?search=yes"><IMG SRC="images/index_12.jpg" ALT="" WIDTH=54 HEIGHT=19 border="0"></a></TD>
		<TD ROWSPAN=6>
			<IMG SRC="images/index_13.jpg" WIDTH=12 HEIGHT=110 ALT=""></TD>
		<TD ROWSPAN=6>
			<IMG SRC="images/index_14.jpg" WIDTH=45 HEIGHT=110 ALT=""></TD>
		<TD ROWSPAN=2>
			<a href="note.asp"><IMG SRC="images/index_15.jpg" ALT="" WIDTH=53 HEIGHT=19 border="0"></a></TD>
		<TD COLSPAN=2 ROWSPAN=4>
			<IMG SRC="images/index_16.jpg" WIDTH=16 HEIGHT=72 ALT=""></TD>
		<TD ROWSPAN=7 valign="top">
			<IMG SRC="images/index_17.jpg" WIDTH=27 HEIGHT=176 ALT=""></TD>
		
    <TD ROWSPAN=2> <a href="plan.asp"><IMG SRC="images/index_18.jpg" ALT="" WIDTH=53 HEIGHT=19 border="0"></a></TD>
		<TD ROWSPAN=7 valign="top">
			<IMG SRC="images/index_19.jpg" WIDTH=13 HEIGHT=176 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=3 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=2 ROWSPAN=2>
			<a href="register.asp"><IMG SRC="images/index_20.jpg" ALT="" WIDTH=123 HEIGHT=19 border="0"></a></TD>
		<TD COLSPAN=2>
			<IMG SRC="images/index_21.jpg" WIDTH=45 HEIGHT=16 ALT=""></TD>
		<TD ROWSPAN=2>
			<IMG SRC="images/index_22.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/index_23.jpg" WIDTH=45 HEIGHT=3 ALT=""></TD>
		<TD ROWSPAN=4>			<img src="images/index_24.jpg" width=54 height=91 alt=""></TD>
		<TD ROWSPAN=4>
			<IMG SRC="images/index_25.jpg" WIDTH=53 HEIGHT=91 ALT=""></TD>
		<TD ROWSPAN=5 valign="top">
			<IMG SRC="images/index_26.jpg" WIDTH=53 HEIGHT=157 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=3 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=5>
			<IMG SRC="images/index_27.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=9 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">&nbsp;</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">&nbsp;</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">&nbsp;</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">&nbsp;</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%">&nbsp;</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 ROWSPAN=2>
			<IMG SRC="images/index_29.jpg" WIDTH=4 HEIGHT=38 ALT=""></TD>
		<TD COLSPAN=3>
			<a href="disAllNews.asp?action=search"><IMG SRC="images/index_30.jpg" ALT="" WIDTH=34 HEIGHT=12 border="0"></a></TD>
		<TD COLSPAN=3 ROWSPAN=2>
			<IMG SRC="images/index_31.jpg" WIDTH=94 HEIGHT=38 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=12 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=3>
			<IMG SRC="images/index_32.jpg" WIDTH=34 HEIGHT=26 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=26 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=2 ROWSPAN=13>
			<IMG SRC="images/index_33.jpg" WIDTH=59 HEIGHT=286 ALT=""></TD>
		<TD COLSPAN=15 ROWSPAN=2 valign="top" background="images/index_34.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
		<%while not Recordset3.eof %>
          <tr>
            <td width="6%" height="21">&nbsp;</td>
            <td><a href="disNewsInfo.asp?iNewsId=<%=Recordset3("iNewsId")%>"><%=Recordset3("cNewsTitle")%></a></td>
          </tr>       
        <%
		Recordset3.movenext()
		wend
		%>
        </table></TD>
		<TD align="left" valign="top">
			<IMG SRC="images/index_35.jpg" WIDTH=78 HEIGHT=66 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=66 ALT=""></TD>
	</TR>
	<TR>
		
    <TD COLSPAN=4 ROWSPAN=8 valign="top">&nbsp;&nbsp;这里有药品的最新动态，这里是你健康的保证！</TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=30 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=15 ROWSPAN=2>
			<IMG SRC="images/index_37.jpg" WIDTH=391 HEIGHT=11 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=5 ALT=""></TD>
	</TR>
	<TR>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=6 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=10 ROWSPAN=4>
			<IMG SRC="images/index_41.jpg" WIDTH=341 HEIGHT=29 ALT=""></TD>
		<TD COLSPAN=3>
			<a href="disAllMedica.asp?action=search"><IMG SRC="images/index_42.jpg" ALT="" WIDTH=34 HEIGHT=10 border="0"></a></TD>
		<TD COLSPAN=2 ROWSPAN=4>
			<IMG SRC="images/index_43.jpg" WIDTH=16 HEIGHT=29 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=10 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=3 ROWSPAN=3>
			<IMG SRC="images/index_44.jpg" WIDTH=34 HEIGHT=19 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=3 ALT=""></TD>
	</TR>
	<TR>
	  <TD>
		  <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=8 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=5 ROWSPAN=6>
			<IMG SRC="images/index_46.jpg" WIDTH=179 HEIGHT=158 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=8 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=15 ROWSPAN=4 valign="top" background="images/index_47.jpg"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <%while not Recordset4.eof%>
		  <tr>
            <td width="6%" height="24">&nbsp;</td>
            <td><a href="disMedicainfo.asp?cMedicaName=<%= Recordset4("cMedicaName")%>"><%= Recordset4("cMedicaName")%></a></td>
          </tr>
		  <%
			Recordset4.movenext()
			wend
			%>
        </table></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=59 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=4>
			<IMG SRC="images/index_48.jpg" WIDTH=171 HEIGHT=9 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=9 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=2 ROWSPAN=3>
			<IMG SRC="images/index_49.jpg" WIDTH=105 HEIGHT=82 ALT=""></TD>
		<TD>
			<IMG SRC="images/index_50.jpg" WIDTH=53 HEIGHT=19 ALT=""></TD>
		<TD ROWSPAN=5>
			<IMG SRC="images/index_51.jpg" WIDTH=13 HEIGHT=196 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=19 ALT=""></TD>
	</TR>
	<TR>
		<TD ROWSPAN=2>
			<IMG SRC="images/index_52.jpg" WIDTH=53 HEIGHT=63 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=9 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=15>
			<IMG SRC="images/index_53.jpg" WIDTH=391 HEIGHT=54 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=54 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=6 ROWSPAN=2>
			<IMG SRC="images/index_54.jpg" WIDTH=220 HEIGHT=114 ALT=""></TD>
		
    <TD COLSPAN=6 bgcolor="#FFFFFF"><a href="#">大西南制药股份有限公司</a> </TD>
		<TD ROWSPAN=2>
			<IMG SRC="images/index_56.jpg" WIDTH=14 HEIGHT=114 ALT=""></TD>
		
    <TD COLSPAN=6 bgcolor="#FFFFFF"> <a href="#">成都法玛基因科技有限公司</a> </TD>
		<TD COLSPAN=2 ROWSPAN=2>
			<IMG SRC="images/index_58.jpg" WIDTH=17 HEIGHT=114 ALT=""></TD>
		
    <TD COLSPAN=4 bgcolor="#FFFFFF"><a href="#">天乐中药制剂科技开发有限公司</a> </TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=93 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=6>
			<IMG SRC="images/index_60.jpg" WIDTH=200 HEIGHT=21 ALT=""></TD>
		<TD COLSPAN=6>
			<IMG SRC="images/index_61.jpg" WIDTH=166 HEIGHT=21 ALT=""></TD>
		<TD COLSPAN=4>
			<IMG SRC="images/index_62.jpg" WIDTH=170 HEIGHT=21 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=21 ALT=""></TD>
	</TR>
	<TR>
		<TD COLSPAN=5 bgcolor="#FFFFFF">&nbsp;			</TD>
		<TD COLSPAN=21>
			<IMG SRC="images/index_64.jpg" WIDTH=621 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=41 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=18 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=29 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=46 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=54 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=12 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=41 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=14 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=43 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=45 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=53 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=4 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=12 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=9 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=13 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=4 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=12 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=78 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=27 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=53 HEIGHT=1 ALT=""></TD>
		<TD>
			<IMG SRC="images/spacer.gif" WIDTH=13 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>