?? goodmed.asp
字號:
<!--#include file="top1.asp"-->
<!--#include virtual="manage/include/conn.asp"-->
<%
Response.CharSet="GB2312"
Response.ContentType="text/html"
function repstr(str)
if not isNull(str) or len(str)>0 then
repstr=replace(str,"<br>","<br>")
repstr=replace(repstr," "," ")
else
repstr=str1
end if
end function
%>
<script language="javascript">
function newwin(url){
window.open(url,"查看詳細","width=400,height=310,left=0,top=0,resizable=yes,scrollbars=yes");
}
</script>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="799" bgcolor="#A4B077">
<tr>
<td height="20" valign="bottom" bgcolor="#FFFFFF"><img src="images/blue_dian.gif" width="5" height="8"> 當前位置：<a href="index.asp">首頁</a> <img src="images/iconarrow3.gif"> 好藥推薦
<%
if request.QueryString("TypeId")<>"" then
set rs=conn.execute("select * from tb_MedicineType where TypeId="&request("TypeId"))
response.write " <img src=""images/iconarrow3.gif""> "&rs(1)
rs.close
end if
%></td>
</tr>
<tr>
<td height="245" align="center" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="152" valign="bottom" background="images/title_blue.gif"> <span style="color: #FFFFFF; font-weight: bold;">好藥推薦</span></td>
<td width="17" valign="top" background="images/title_blue_1.gif"> </td>
<td width="630" height="26" background="images/title_blue_2.gif"> </td>
</tr>
<tr>
<td colspan="2" valign="top"><table width="93%" border="1" cellpadding="0" cellspacing="0" bordercolordark="green">
<tr>
<td nowrap>
<table width="98%" border="0" cellpadding="4" cellspacing="0">
<%
set rs=conn.execute("select * from tb_MedicineType order by TypeId")
do while not rs.eof
%>
<tr>
<td align="left" height="40"> <IMG src="images/blue_dian.gif"><a href="goodmed.asp?TypeId=<%=rs("TypeId")%>"> <%=rs("TypeName")%></a> </td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table></td>
</tr>
</table></td>
<td valign="top">
<%
if request("TypeId")<>"" then
rs.open "select * from tb_MedicineName where TypeId="&request("TypeId")&" and Grade=1",conn,3,3
if rs.eof then
response.write "<br><b><div align=center>該類中沒有推薦的藥品<br>請從左側列表選擇其他類</div></b>"
else
rs.pagesize=2
page=clng(request.QueryString("page"))
if page<1 or page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page
%>
<table border="0" cellpadding="4" cellspacing="4" width="592">
<tr>
<%
i=1
for i=1 to rs.pagesize
%>
<td width="576">
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td width="25%" rowspan="4" valign="top">
<div align="center">
<%if len(rs("img"))>0 then%>
<img src="manage/goods/goodspic/<%=rs("img")%>" width="100" height="100" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
<%else%>
<img src="images/nopic.gif" width="100" height="100" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
<%end if%>
</div>
</td>
<td width="98%" style="word-break:break_all"><b>[藥品名稱]</b> <%=rs("yName")%></td>
</tr>
<tr>
<td style="word-break:break_all"><b>[規 格]</b> <%=rs("Mode1")%></td>
</tr>
<tr>
<td style="word-break:break_all"><b>[適應癥]</b> <%=repstr(rs("fortill"))%></td>
</tr>
<tr>
<td align="right"><input type="button" value="查看詳細" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="border:1px solid;border-color:000000;background-color:ffffff;padding-top:1px;padding-bottom:1px"></td>
</tr>
</table>
</td>
<%
if i mod 2 <> 0 then
response.write "<td width=2 background=""images/xs03.gif""></td>"
end if
rs.movenext
if i Mod 2 = 0 then
response.write "</tr><tr>"
end if
if rs.eof then exit for
next
%>
</tr>
</table><br><br>
<table border="0" width="100%">
<tr>
<td align="right">
<%
response.write "該類中共有<font color=red>"&rs.recordcount&"</font>個推薦藥品 <font color=red>"&rs.pagesize&"</font>個/頁 當前頁：<font color=red>"&page&"</font>/"&rs.pagecount
if page>1 then
%>
<a href=goodmed.asp?page=1>首頁</a> <a href=goodmed.asp?page=<%=(page-1)%>>上一頁</a>
<%
end if
if page<rs.pagecount then
response.write " <a href=goodmed.asp?TypeId="&rs("TypeId")&"&page="&(page+1)&">下一頁</a> <a href=goodmed.asp?TypeId="&rs("TypeId")&"&page="&rs.pagecount&">最后一頁</a>"
end if
%>
</td>
</tr>
</table>
<%
end if
else
set rs1=conn.execute("select min(TypeId) from tb_MedicineName")
rs.open "select * from tb_MedicineName where TypeId="&rs1(0)&" and Grade=1",conn,3,3
if rs.eof then
response.write "<br><b><div align=center>該類中沒有推薦的藥品<br>請從左側列表選擇其他類</div></b>"
else
rs.pagesize=2
page=clng(request.QueryString("page"))
if page<1 or page="" then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page
%>
<table border="0" cellpadding="4" cellspacing="4" width="592">
<tr>
<%
i=1
for i=1 to rs.pagesize
%>
<td width="576">
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td width="25%" rowspan="4" valign="top">
<div align="center">
<%if len(rs("img"))>0 then%>
<img src="manage/goods/goodspic/<%=rs("img")%>" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
<%else%>
<img src="images/nopic.gif" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
<%end if%>
</div>
</td>
<td width="98%" style="word-break:break_all"><b>[藥品名稱]</b> <%=rs("yName")%></td>
</tr>
<tr>
<td style="word-break:break_all"><b>[規 格]</b> <%=rs("Mode1")%></td>
</tr>
<tr>
<td style="word-break:break_all"><b>[適應癥]</b> <%=repstr(rs("fortill"))%></td>
</tr>
<tr>
<td align="right"><input type="button" value="查看詳細" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="border:1px solid;border-color:000000;background-color:ffffff;padding-top:1px;padding-bottom:1px"></td>
</tr>
</table>
</td>
<%
if i mod 2 <> 0 then
response.write "<td width=2 background=""images/xs03.gif""></td>"
end if
rs.movenext
if i Mod 2 = 0 then
response.write "</tr><tr>"
end if
if rs.eof then exit for
next
%>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td align="right">
<%
response.write "該類中共包含<font color=red>"&rs.recordcount&"</font>個推薦藥品 <font color=red>"&rs.pagesize&"</font>個/頁 當前頁：<font color=red>"&page&"</font>/"&rs.pagecount
if page>1 then
%>
<a href=goodsmed.asp?page=1>首頁</a> <a href=goodmed.asp?page=<%=(page-1)%>>上一頁</a>
<%
end if
if page<rs.pagecount then
response.write " <a href=goodmed.asp?page="&(page+1)&">下一頁</a> <a href=goodmed.asp?page="&rs.pagecount&">最后一頁</a>"
end if
%>
</td>
</tr>
</table>
<%
end if
end if
%> </td>
</tr>
</table> </td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -