gusucode.com > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT) > ASP+ACCESS医药公司网站建设毕业设计(源代码+论文+答辩PPT)\ASP医药网站042\医药网站代码\plan.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 * FROM dbo.scheme" Recordset3.CursorType = 0 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="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="38" colspan="3"><img src="images/plan_title.jpg" width="620" height="60"></td> </tr> <tr> <td width="11%" height="69" rowspan="2" align="center"><img src="images/ben.jpg" width="33" height="37"></td> <td width="76%" height="50">关于近期的计划</td> <td width="13%" rowspan="2"> </td> </tr> <tr> <td height="13" background="images/bangan.jpg"> </td> </tr> <tr> <td height="377"> </td> <td valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999"> <%while not Recordset3.eof%> <tr> <td width="76%" height="31"><a href="disPlanInfo.asp?iSchemeId=<%=Recordset3("iSchemeId")%>"><%=Recordset3("cSchemeTitle")%></a></td> <td width="24%"><%=Recordset3("dSchemeDate")%></td> </tr> <% Recordset3.movenext() wend %> </table></td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </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 %>