📄 clinic_pay.asp

📁 这是个完整的SQL SEVER与asp.net结合的医院管理系统的源代码

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%language="vbscript" %>
<p><table border="2" bordercolor="#999999" cellpadding="1" cellspacing="2"  ><tr bgcolor="#C5E9FE"><td width="70" height="40">药品编号</td><td width="70" headers="40">药品名称</td><td width="70">规格</td><td width="70">整量单位</td><td width="70">单价</td><td width="70">数量</td><td width="100">金额</td></tr>

<%

dim conn 
set conn=server.createobject("ADODB.connection") 

conn.open="driver={sql server};server=FF-CK1W5O4NH1L9;uid=s;pwd=123;database=hospital3;"
sql="select drug_no,drug_name,drug_spec,whole_unit,sale_price,amount,sum from drug_info inner join clinic_drug_detail on drug_info.drug_no=clinic_payment_detail.drug_no"
 
 
set rs=conn.execute(sql)

do while not rs.eof
Response.Write"<tr>"
for i=0 to rs.fields.count-1
Response.Write"<td>"&rs(i)&"</td>"
next
Response.Write"</tr>"




 rs.movenext
 loop
 
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 %></table></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -