📄 doctor.asp
字号:
<!--#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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -