⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 show.asp

📁 本程序系统完全实现了医院网站程序的全部功能的前台和后台程序
💻 ASP
字号:
<!-- #include file="../../connections/conndb.asp" -->
<%
companyid=session("userid")
id=request("id")
sql="select * from tbl_client where id ="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
%>
<html>
<head>
<title>会员详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" >
<link href="../images/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.word {
	font-size: 10pt;
	line-height: 18px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body bgcolor="#f7f7f7" leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1"  bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#B6CBEB"> 
    <td height="24" colspan="2"><b> 会员注册资料</b></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right" bgcolor="#FFFFFF">会员帐号:</td>
    <td  height="24"><%=rs("userid")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right" bgcolor="#FFFFFF">登陆密码:</td>
    <td  height="24"><%=rs("passwd")%></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width=15% height="24" align="right" bgcolor="#FFFFFF">公司名称:</td>
    <td  height="24"><%=rs("company")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right" bgcolor="#FFFFFF">联系人:</td>
    <td  height="24"><%=rs("linkman")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="25" align="right">通讯地址:</td>
    <td  height="25"><%=rs("address")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right">邮政编码:</td>
    <td  height="24"><%=rs("zip")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width=15% height="24" align="right" bgcolor="#FFFFFF">电 话:</td>
    <td  height="24"><%=rs("tel")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right" bgcolor="#FFFFFF">手 机:</td>
    <td  height="24"><%=rs("mobile")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="15%" height="24" align="right" bgcolor="#FFFFFF">传 真:</td>
    <td  height="24"><%=rs("fax")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width="15%" height="24" align="right" bgcolor="#FFFFFF">Email:<br> </td>
    <td  height="24"><%=rs("email")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="24" align="right" bgcolor="#FFFFFF">网 址:<br> </td>
    <td  height="24"><%=rs("http")%> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td width=15% height="2" align="right" valign="top"> <table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="right">会员描述:</td>
        </tr>
      </table></td>
    <td  height="80" valign="top"> 
      <%
	if rs("memo")<>"" then
	response.Write replace(replace(rs("memo"),vbcrlf,"<br>")," ","&nbsp;")
	else
	response.Write "--"
	end if
	%>
    </td>
  </tr>
  <tr align="center" valign="bottom" bgcolor="#FFFFFF"> 
    <td colspan="2"> 
      <input name=Next type=button value="关闭窗口" onClick="javascrip:window.close()" class="button">
      &nbsp; 
      <input name="Button" class="button" type="button" id="submit" onClick="MM_goToURL('parent','modify.asp?id=<%=id%>');return document.MM_returnValue" value="修改记录" >
    </td>
  </tr>
</table>
</body>
</html>
<%
else
call msg("记录不存在!","javascript:window.close()")
response.End()
end if
rs.close
conn.close

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -