doctor.asp

来自「第一次开发医院管理」· ASP 代码 · 共 62 行

ASP

62 行

<!--#include file="conn.asp"-->
<html>
<head>
<link href="../main.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<% 
dim comment
set rs = conn.execute("select id from doctor order by id desc")
if rs.eof and rs.bof then
Response.Write("暂时无纪录。")
Response.end()
end if
dim max,min 
set rs = conn.execute("select id from doctor order by id desc")
max=rs("id")
rs.close
set rs = nothing
set rs = conn.execute("select id from doctor order by id ")
min=rs("id")
rs.close
set rs = nothing
dim rndnum
	Randomize
	rndnum = Int(( max - min + 1) * Rnd + min)
set rs = conn.execute("select * from doctor where id="&rndnum&"")	
%>
<table width="250" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="120" rowspan="7"><a href="detaild.asp?id=<%= rs("id") %>" target="_parent"><img src="<%= rs("pic") %>" width="100" border="0" alt="<%= rs("name") %>"></a></td>
    <td width="180" valign="top"></td>
  </tr>
  <tr> 
    <td width="130" height="20" valign="top"><%= rs("name") %></td>
  </tr>
  <tr> 
    <td width="130" height="20" valign="top"><%= rs("depart") %></td>
  </tr>
  <tr> 
    <td width="130" height="20" valign="top"><%= rs("job") %></td>
  </tr>
  <tr> 
    <td width="130" height="20" valign="top"><%= rs("sex") %></td>
  </tr>
  <tr>
    <td height="20" valign="top"> 
      <%
   if len(rs("comment"))>=12 then
   comment=left(rs("comment"),10)+".."
   else
   comment=rs("comment")
   end if%>
   <%= comment %>
</td>
  </tr>
</table>

</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

doctor.asp

doctor.asp - 源码说明

⌨️ 快捷键说明