www.gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\noteson.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
%>
<%
if request("iId")="" then
	response.end
end if
%>
<%	
		Dim Recordset3
		Dim Recordset3_numRows
		Set Recordset3 = Server.CreateObject("ADODB.Recordset")
		Recordset3.ActiveConnection = MM_conn_STRING
		Recordset3.Source = "select * from NoteBook where iId='"&request("iId")&"'"
		Recordset3.CursorType= 1
		Recordset3.CursorLocation = 2
		Recordset3.LockType = 1
		Recordset3.Open()
		Recordset3_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="96%"  border="0" cellspacing="0" cellpadding="0">
          <tr valign="top">
            <td height="61" colspan="5"><img src="images/shequ_title.jpg" width="611" height="60"></td>
          </tr>
          <tr>
            <td width="12%" height="68" align="center"><img src="images/ben.jpg" width="31" height="40"></td>
            <td colspan="3" rowspan="2" valign="top"><table width="98%"  border="1" cellpadding="0" cellspacing="2" bordercolor="#CCCCCC">
              <tr>
                <td width="22%" height="15" align="center" bgcolor="#D6EB6B">标 题</td>
                <td width="78%" align="center"><%=Recordset3("Title")%></td>
              </tr>
              <tr>
                <td height="15" bgcolor="#D6EB6B"><div align="center">作 者</div></td>
                <td><div align="center"><%=Recordset3("Id")%></div></td>
              </tr>
              <tr>
                <td height="15" bgcolor="#D6EB6B"><div align="center">发布时间</div></td>
                <td><div align="center"><%=Recordset3("dati")%></div></td>
              </tr>
              <tr>
                <td height="15" colspan="2" bgcolor="#D6EB6B"><div align="center">内 容</div></td>
              </tr>
              <tr>
                <td height="17" colspan="2">
                  <textarea name="textarea2" cols="55" rows="10" readonly><%=Recordset3("comment")%></textarea>
</td>
              </tr>
              <tr>
                <td height="15" colspan="2" bgcolor="#D6EB6B"><div align="center">回 复</div></td>
              </tr>
              <tr>
                <td height="15" colspan="2">
                  <textarea  readonly name="textarea3" cols="55" rows="10"><%=Recordset3("repeat")%></textarea>
                </td>
              </tr>
            </table></td>
            <td width="18%">&nbsp;</td>
          </tr>
          <tr>
            <td height="287" valign="bottom"><img src="images/qianming.jpg" width="75" height="74"></td>
            <td>&nbsp;</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">&nbsp;&nbsp;<br>
		  <input name="" type="password" size="12" maxlength="12">
      &nbsp;</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">&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>
			<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
%>