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

📄 detail.asp

📁 第一次开发医院管理
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<%

function chktopic(fString)
if len(fstring)>23 then
    fString = left(fstring,20)+"..."
	else
	fstring = fstring
	end if
    chktopic = fString
end function
function times(fString)
if not isnull(fString) then
    fString = cstr(year(fString)) + "<font color=red>年</font>" + cstr(month(fString)) + "<font color=blue>月</font>" + cstr(day(fString)) +  "<font color=green>日</font>"
	else
	exit function
end if
    times = fString
end function
dim id
id = request("id")
sql = " update news set hits=hits+1 where id="&id
conn.execute(sql)
sql = " select * from news where id="&id
set rs = Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,0,1
%>
<html>
<head>
<title>:::宜兴市人民医院:::<%= rs("topic") %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../image/main.css" type="text/css">
</head>

<body text="#000000" leftmargin="0" topmargin="0" background="bg.gif">
<div align="center"> 
  <table border="0" cellpadding="0" cellspacing="0" width="770">
    <!-- fwtable fwsrc="未命名-1.png" fwbase="head.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
    <tr> 
      <td><img src="image/spacer.gif" width="770" height="1" border="0" alt=""></td>
      <td><img src="image/spacer.gif" width="1" height="1" border="0" alt=""></td>
    </tr>
    <tr> 
      <td rowspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="770" height="148">
          <param name=movie value="../image/head-3.swf">
          <param name=quality value=high>
          <embed src="../image/head-3.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="770" height="148">
          </embed> 
        </object></td>
      <td><img src="image/spacer.gif" width="1" height="99" border="0" alt=""></td>
    </tr>
    <tr> 
      <td><img src="image/spacer.gif" width="1" height="49" border="0" alt=""></td>
    </tr>
  </table>
  <table width="770" border="0" cellspacing="0" cellpadding="0" height="184" bgcolor="#cccccc">
    <tr> 
      <td width="152" valign="top" align="center"> 
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <!-- fwtable fwsrc="keshi.png" fwbase="keshi.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
          <tr> 
            <td width="99%"><img src="../image/spacer.gif" width="159" height="1" border="0" alt=""></td>
            <td width="1%"><img src="../image/spacer.gif" width="1" height="1" border="0" alt=""></td>
          </tr>
          <tr> 
            <td width="99%"><img name="keshi_r1_c1" src="../image/keshi_r1_c1.jpg" width="159" height="30" border="0" alt=""></td>
            <td width="1%"><img src="../image/spacer.gif" width="1" height="30" border="0" alt=""></td>
          </tr>
          <tr> 
            <td background="../image/keshi_bg.jpg" align="center" width="99%" height="431"> 
              <iframe width="90%" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" align="top" height="95%" src="depart_index.asp"></iframe> 
            </td>
            <td width="1%" height="431"><img src="../image/spacer.gif" width="1" height="406" border="0" alt=""></td>
          </tr>
          <tr> 
            <td width="99%"><img name="keshi_r3_c1" src="../image/keshi_r3_c1.jpg" width="159" height="21" border="0" alt=""></td>
            <td width="1%"><img src="../image/spacer.gif" width="1" height="21" border="0" alt=""></td>
          </tr>
        </table>
      </td>
      <td width="618" align="center" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" width="600">
          <!-- fwtable fwsrc="未命名-6.png" fwbase="2222.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
          <tr> 
            <td><img src="images/spacer.gif" width="19" height="1" border="0"></td>
            <td><img src="images/spacer.gif" width="105" height="1" border="0"></td>
            <td><img src="images/spacer.gif" width="302" height="1" border="0"></td>
            <td><img src="images/spacer.gif" width="151" height="1" border="0"></td>
            <td><img src="images/spacer.gif" width="23" height="1" border="0"></td>
            <td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
          </tr>
          <tr> 
            <td colspan="2"><img name="n2222_r1_c1" src="images/2222_r1_c1.gif" width="124" height="34" border="0"></td>
            <td><img name="n2222_r1_c3" src="images/2222_r1_c3.gif" width="302" height="34" border="0"></td>
            <td colspan="2"><img name="n2222_r1_c4" src="images/2222_r1_c4.gif" width="174" height="34" border="0"></td>
            <td><img src="images/spacer.gif" width="1" height="34" border="0"></td>
          </tr>
          <tr> 
            <td background="images/2222_r2_c1.gif">&nbsp;</td>
            <td colspan="3" bgcolor="#FFFFFF"> <br>
              <table width="450" border="0" align="center" cellpadding="0" cellspacing="0" style="border:solid 0 #6382de">
                <tr align="center" bgcolor="#CCCCCC"> 
                  <td height="25" colspan="2"><font color="#000000"><%= ubbcode(rs("topic")) %></font></td>
                </tr>
                <tr> 
                  <td colspan="2" style="line-height:18px"><%= ubbcode(rs("content")) %></td>
                </tr>
                <tr bgcolor="#CCCCCC"> 
                  <td width="50%" height="25"><font color="#000000">发布于<%= rs("datetime") %></font></td>
                  <td width="50%" align="right"><font color="#000000">已被点击<%= rs("hits") %>次</font></td>
                </tr>
              </table>
              <br>
              <table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td> 
                    <%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id<"&request("id")&" and type="&request("ntype")&" order by datetime desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then%>
                    <img src="bulletno.gif" align="absmiddle">上篇新闻:已经没有了 
                    <%else%>
                    <br>
                    <img src="bullet.gif" align="absmiddle">上篇信息:<a href="detail.asp?id=<%=rs("id")%>&ntype=<%= rs("type") %>"><%=chktopic(rs("topic"))%></a>(<%=times(rs("datetime"))%>) 
                    <%end if%>
                    <br>
                    <% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id>"&request("id")&"  and type="&request("ntype")&" order by datetime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then%>
                    <img src="bulletno.gif" align="absmiddle">下篇新闻:已经没有了 
                    <%else%>
                    <img src="bullet.gif" align="absmiddle">下篇信息:<a href="detail.asp?id=<%=rs("id")%>&ntype=<%= rs("type") %>"><%=chktopic(rs("topic"))%></a>(<%=times(rs("datetime"))%>) 
                    <%end if%>
                  </td>
                </tr>
              </table>
            </td>
            <td background="images/2222_r2_c5.gif">&nbsp;</td>
            <td><img src="images/spacer.gif" width="1" height="354" border="0"></td>
          </tr>
          <tr> 
            <td colspan="4"><img name="n2222_r3_c1" src="images/2222_r3_c1.gif" width="577" height="30" border="0"></td>
            <td><img name="n2222_r3_c5" src="images/2222_r3_c5.gif" width="23" height="30" border="0"></td>
            <td><img src="images/spacer.gif" width="1" height="30" border="0"></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <table width="770" border="0" cellspacing="0" cellpadding="0" height="69">
    <tr>
      <td background="../image/bottom_bg.gif">&nbsp;</td>
    </tr>
  </table>
</div>
</body>
</html>
<% rs.close
set rs=nothing
closedatabase %>

⌨️ 快捷键说明

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