1. 网站是新站，想交换友情链接去哪找啊急急急~~
最好还是去友情链接100链换，否则你估计换不到。100lian拼音然后net就好了。 每个网站都经历过刚出道的日子，有的出道早，稍微做点外链就很好了。有的出道晚，只能做有质量的原创来得到较高的权重。但对于一个新站来说，友情链接是一个获得反链的好方法，因为自己的网站什么都没有，没排名，没权重，甚至在网络都找不到被收录的页面，那就只能用友情链接的方式来获取权重了。
但是你的条件是什么都没有，快照、权重没有、排名没有、收录没有、反链没有的。想交换链接，毋庸置疑的，没有几个人会愿意，除非他的网站比你的还垃圾，不过垃圾他也不会换啊。你的网站什么都没有，换了也等于没用。所以等待不如寻找，你只能自己去找，而我要说的就是踏破铁鞋无觅处的一个好地方——友情链接100链。直接交换链接平台，你没权重他有，你没链接他那里到处都是，最主要的是，如果你没有被搜索引擎收录，而如果你加入了100链你的网站就能当天被收录，网络、谷歌、两大搜索引擎。都会收录你的网站。也许曾经，你的老网站一天能接到几十个人的主动交谈，请求你给他交换友情链接。也许曾经你需要用大量的时间来过滤他们发来的友情链接，你要看看他的链接的好坏、链接的权重怎么样、链接的快照新不新，收录多不多，反链少不少的。pr是多少，有没有排名。NONONO.现在，你只需要加入友情链接100链，通过获取的代码，通过ftp粘贴到你的页面源代码里，以后链接方面的事儿，在平台就可以搞定，登陆你的用户，就出现你的网站列表，你添加了几个网站，设置好每个网站要交换链接的要求，然后系统会帮你匹配链接，如果你想尽快，也可以自己点击那个匹配链接，直接换链接。不用通知，要求相当即可直接换取，并且，可添加平台外的链接，很多方便的东西，不宜这里说，如果你有心为自己省时间，想为自己添加友情链接保证质量，我觉得还是上友情链接平台吧。
可能便捷的方式有很多，友情链接平台只是其中一种，在众多平台中，我觉得，都是垃圾，要么只能发链接，要么链接没质量，总之，只有一个想要的，就是全自动友情链接平台，像友情链接100链一样。
2. 源码站上的整站源码是从哪儿来得
有些是 但是大部分都是制作人提供的 有些是为了自己网站发展 而提供出来 在里面插些广告文件 或者以此来让更多人认识网站 和交换链接等
3. 基于web的医疗交换中心系统的源代码
医院管理系统(HIS)应用设计
这里我们介绍医院管理系统HIS的应用设计，它包括医院门诊时间表线上查询系统、线上医院预约挂号系统等应用的点子、设计实例、以及详细解说，让您快速地设计出各种医院的网站应用。
医院网站资料库应用
医院使用网站资料库，可以透过Internet、或Intranet提供以下的应用∶
* 线上查询医院门诊时间表*
* 线上医院预约挂号*
右上角标示*的应用，本节将提供设计的范例，并详加解说。
执行本章资料库的范例，所用的资料库可为Microsoft Access、Microsoft SQL Server、或Text档案（读者可修改成其他支援ODBC的资料库，详见1-5节），须于NT安装IIS 3.0，并于“控制台”中的“ODBC”，新建一个名称为“BookSamp”的资料来源，驱动程式为“Microsoft Access Driver”、“SQL Server”、或“Microsoft Text 驱动程式”。详见附录 范例磁片。
1
医院门诊时间表线上查询系统
“医院门诊时间表线上查询系统”，可以透过Internet，查询医院门诊时间表。
一般的医院，每月会提供一张新的医院门诊时间表。看病的人可以透过Internet，连线上医院的“医院门诊时间表线上查询系统”，即可线上查询新的医院门诊时间表。
设计实例
让我们执行一个实例。
( 范例 data7.asp 医院门诊时间表线上查询
若要查询门诊时间表，于用户端使用浏览器，浏览本书所附安装于网站服务器的data7.asp，即可显示查询的结果如下，包括科别、星期一~星期六的门诊医师姓名∶
设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表HospitalSchele。
于栏名CLASS、A1~A6分别输入科别、星期一~星期六的门诊医师姓名。
使用Microsoft Access建立一个资料表HospitalSchele，如下∶
或使用Microsoft SQL Server建立一个资料表HospitalSchele，如下∶
或使用Text档案建立一个资料表HospitalSchele，如下∶
查询资料库
接着，网站服务器执行data7.asp档案，使用“Server.CreateObject”建立连线的物件，并使用“Open”开启待存取查询资料库BookSamp。
再使用SELECT的SQL指令查询资料库的资料，设定SQL指令，查询HospitalSchele的资料，下个“Execute”指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。
程式码如下∶
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT * FROM HospitalSchele"
Set RS = Conn.Execute(SQL)
接着，要显示查询的结果了。首先，由“ IF RS.EOF THEN ...”判断是否找到HospitalSchele的资料，若RS.EOF为TRUE，则显示“本月无门诊”。
程式码，如下∶
查询结果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">本月无门诊</FONT>
若找到HospitalSchele的资料，则显示科别、星期一~星期六的门诊医师姓名，分别由RecordSets物件的RS(0)、RS(1) ~RS(6) 取得。
RS.Fields.Count表示RecordSets物件的栏位数，由“For i = 0 to RS.Fields.Count - 1”取得RS(i) 各栏位的资料。配合<TABLE>表格的HTML语法，将结果填入表格的各栏位当中。
若还有下一笔资料，使用RS.MoveNext移到下一笔的位置。
程式码，如下∶
<% ELSE %>
<FONT COLOR="#0000ff">本月份 门诊时间表如下:</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期一</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期二</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期三</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期四</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期五</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期六</FONT></TD>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% If LEFT(RS(i).Name,1) = "W" Then %>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT COLOR="#0000"><%= RS(i) %></FONT></TD>
<% Else %>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT><%= RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
最后，使用RS.Close关闭RecordSet，使用Conn.Close关闭资料库。
全部的程式码，如下∶
<HTML>
<HEAD>
<TITLE>医院门诊时间表 线上查询系统</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">医院门诊时间表 线上查询系统</FONT>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT * FROM HospitalSchele"
Set RS = Conn.Execute(SQL)
%>
<HR>
查询结果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">本月无门诊</FONT>
<% ELSE %>
<FONT COLOR="#0000ff">本月份 门诊时间表如下:</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期一</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期二</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期三</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期四</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期五</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>星期六</FONT></TD>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% If LEFT(RS(i).Name,1) = "W" Then %>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT COLOR="#0000"><%= RS(i) %></FONT></TD>
<% Else %>
<TD ALIGN=CENTER BGCOLOR="#800000">
<FONT><%= RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
<HR>
</CENTER>
</BODY>
</HTML>
2
线上医院预约挂号系统
“线上医院预约挂号系统”，可以透过Internet，完成医院预约挂号的手续。
一般的医院，提供排队、人工接听电话、或语音系统等多种预约挂号的方式。透过Internet，现在可以提供比较丰富、生动的预约挂号方式。
看病的人可以透过Internet，连线上医院的“线上医院预约挂号系统”，在电脑上输入病历号码（或身分证号码），再输入要预约的科别、医师、预约日期、和上下午夜间，即可完成预约挂号的手续。
挂号系统将告诉您挂几号的看诊顺序，并自动统计每一个门诊的预约人数，若超过名额，将自动告之，要求预约其他的时间。
预约时，预约系统提供可以增加、取消、查询预约的功能。
看病的人并可线上查询医院门诊时间表、医师简介、用药须知、健康新知、医院活动、医院地址等资讯。
挂号系统将自动印出所预约的每日挂号表，以供医院相关部门准备病历表。
设计实例
让我们执行一个实例。
( 范例 data12.asp 线上医院预约挂号
若要线上预约医院挂号，于用户端使用浏览器，浏览本书所附安装于网站服务器的data12.asp，于“科别”处选择科别如内科，于“病历号码”处输入病历号码如123456后，于“看诊日期”处输入看诊日期如870701后，按下“预约挂号”按钮，即可显示预约挂号的结果如下，包括病历号码、看诊日期、科别、看诊顺序∶
预约医院挂号时，若预约的诊次已经预约过，则重覆预约相同的诊次将显示“已经预约挂号”如下∶
预约医院挂号时，若超过诊次的100个名额时，则显示“预约挂号已满”如下∶
取消预约挂号
预约医院挂号后，可以取消所预约的挂号，于“选修课程”处选择待取消选修课程如婚姻学，于“科别”处选择科别如神经科，于“病历号码”处输入病历号码如123456后，于“看诊日期”处输入看诊日期如870701后，按下“取消预约挂号”按钮，即可显示取消预约挂号的结果如下∶
若待取消的诊次尚未预约过，则取消预约挂号时显示“尚未预约挂号”如下∶
查询预约挂号
预约医院挂号后，可以查询所有预约的诊次，仅须于“病历号码”处输入病历号码如123456后，按下“查询预约挂号”按钮，即可显示查询预约挂号的结果如下∶
查询预约挂号时，若尚未预约挂号，则查询预约挂号时将显示“尚未预约挂号”如下∶
门诊时间表
按下“门诊时间表”按钮，即可显示门诊时间表如下∶
设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表HospitalCount，储存一个诊次的预约挂号人数、和最后看诊顺序。
这个资料表系供预约挂号和取消预约挂号时，记录预约挂号人数、和最后看诊顺序号码之用。建立栏位TOTAL、COUNT0、DATE0、CLASS，分别代表一个诊次的预约挂号人数、最后看诊顺序号码、预约日期、科别名称。建立资料表时不必输入资料。
使用Microsoft Access建立一个资料表HospitalCount，如下∶
或使用Microsoft SQL Server建立一个资料表HospitalCount，如下∶
或使用Text档案建立一个资料表HospitalCount，如下∶
尚需要建立另一个资料表HospitalReserve，储存预约挂号的记录，建立栏位ID、COUNT0、DATE0、CLASS，分别代表一笔预约挂号记录的病历号码、看诊顺序号码、预约日期、科别名称。
这个资料表系供预约挂号、查询预约挂号、和取消预约挂号时，记录预约诊次、和看诊顺序之用。
建立资料表时不必输入资料。
使用Microsoft Access建立一个资料表HospitalReserve，如下∶
或使用Microsoft SQL Server建立一个资料表HospitalReserve，如下∶
或使用Text档案建立一个资料表HospitalReserve，如下∶
设计输入的表单
接着，设计输入的表单form，当病患选择科别CLASS1，输入病历号码ID1，看诊日期DATE1，按下“预约挂号”等按钮submit时，即使用POST的方式将输入资料传送到网站服务器，并执行于“form action=...”所设定的data12.asp档案（与form为同一个ASP档案），程式码如下∶
预约挂号, 请输入以下资料 (初诊者以身分证字号代替病历号码):<br>
<form action="data12.asp" method="post">
<FONT COLOR="#FF8080">■ </FONT>科别:
<select name="CLASS1">
<OPTION SELECTED>内科
<OPTION>神经科
<OPTION>小儿科
<OPTION>外科
<OPTION>妇产科
<OPTION>耳鼻喉科
<OPTION>眼科
<OPTION>皮肤科
</select>
<br>
<FONT COLOR="#FF8080">■ </FONT>病历号码 (如123456):
<INPUT TYPE=TEXT VALUE="123456" NAME="ID1" SIZE=10><BR>
<FONT COLOR="#FF8080">■ </FONT>看诊日期 (如87年7月1日请输入870701):
<INPUT TYPE=TEXT VALUE="870701" NAME="DATE1" SIZE=6><BR>
<INPUT TYPE=submit VALUE="预约挂号" name="Action">
<INPUT TYPE=submit VALUE="取消预约挂号" name="Action"><br>
<INPUT TYPE=submit VALUE="查询预约挂号" name="Action"> 仅须填入病历号码<br>
</form>
<form>
<INPUT TYPE=button VALUE="门诊时间表" OnClick="location.href='data7.asp'">
</form>
若按了“门诊时间表”按钮时，将执行data7.asp，以显示门诊时间表。
网站服务器执行data12.asp档案，首先经由Request.Form("Action")取得所按submit按钮上的显示文字VALUE，Left(Request.Form("Action"),2)系只取前两个中文字，若Request.Form("Action")非空白时，表示为表单输入所呼叫执行。
由“SELECT CASE Left(Request.Form("Action"),2) ”判断是按了那个按钮。若按钮上前两个字为“预约”时，则执行AddReserve() 副程式；若为“取消”时，则执行DeleteReserve() 副程式；若为“查询”时，则执行CheckReserve() 副程式。
<%
SELECT CASE Left(Request.Form("Action"),2)
CASE "预约"
AddReserve()
CASE "取消"
DeleteReserve()
CASE "查询"
CheckReserve()
END SELECT
%>
预约挂号
按了“预约挂号”按钮时，将执行AddReserve() 副程式。
首先，使用“Server.CreateObject”建立连线的物件，并使用“Open”开启待存取查询资料库BookSamp。
再寻找所待新增的预约挂号记录，以检查是否已经预约过，使用SELECT的SQL指令查询资料库的资料，于HospitalReserve资料表，设定SQL指令，查询病历号码栏位ID符合所输入Request.Form("ID1")，看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料，下个“Execute”指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。
程式码如下∶
Sub AddReserve()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT * FROM HospitalReserve WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
接着，要显示执行的结果了。
首先于HospitalReserve资料表，寻找预约挂号的记录，由“IF RS.EOF THEN ...”判断是否找到病历号码栏位ID符合所输入Request.Form("ID1")，看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料。
若RS.EOF为TRUE，表示尚未预约挂号，再寻找所待预约挂号的诊次是否已经有人预约挂号过。于HospitalCount资料表，设定SQL指令，查询看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料。若RS.EOF为TRUE，表示此诊次尚未有人预约挂号过，则于HospitalCount资料表，使用“INSERT INTO...”指令新增一笔资料。此笔新增资料的预约挂号人数栏位TOTAL、和最后看诊顺序号码栏位COUNT0都设定为1，科别栏位CLASS设定为Request.Form("CLASS1")，日期栏位DATE0设定为Request.Form("DATE1")。
然后再于HospitalReserve资料表，使用“INSERT INTO...”指令新增一笔资料。此笔新增资料的看诊顺序号码栏位COUNT0为1，病历号码栏位ID为Request.Form("ID1")，科别栏位CLASS设定为Request.Form("CLASS1")，日期栏位DATE0设定为Request.Form("DATE1")。
显示执行的结果时，配合<TABLE>表格的HTML语法，将结果填入表格的各栏位当中。程式码，如下∶
<FONT COLOR="#0000FF">预约挂号结果:</FONT><br>
<%
IF RS.EOF THEN
RS.Close
SQL = "SELECT * FROM HospitalCount WHERE DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
IF RS.EOF THEN
'此科次尚未有人预约挂号 ! 于HospitalCount新增一笔
SQL = "INSERT INTO HospitalCount(COUNT0, TOTAL, DATE0, CLASS) VALUES(1,1,'" & Request.Form("DATE1") & "','" & LEFT(Request.Form("CLASS1"),2) & "')"
Set RS = Conn.Execute(SQL)
'HospitalReserve新增一笔
SQL = "INSERT INTO HospitalReserve(COUNT0, ID, DATE0, CLASS) VALUES(1,'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & LEFT(Request.Form("CLASS1"),2) & "')"
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">预约挂号 OK ! 看诊顺序为第 1 号</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>病历号码</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊顺序</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =LEFT(Request.Form("CLASS1"),2) %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000">1</FONT></TD>
</TR>
</TABLE>
若RS.EOF为FALSE，表示此诊次已有人预约挂号。
由“IF RS(0) < 100 THEN...”判断RS(0) 预约挂号人数TOTAL是否超过100个名额。
若未超过，则于HospitalCount资料表，使用“UPDATE...”指令，将此笔资料的预约挂号人数TOTAL、和最后看诊顺序号码COUNT0都加一。
然后，再于HospitalReserve资料表，使用“INSERT INTO...”指令新增一笔资料。此笔新增资料的看诊顺序号码栏位COUNT0为HospitalCount资料表的加一后之COUNT0新值，病历号码栏位ID为Request.Form("ID1")，科别栏位CLASS设定为Request.Form("CLASS1")，日期栏位DATE0设定为Request.Form("DATE1")。
接着，显示执行的结果时，配合<TABLE>表格的HTML语法，将于HospitalReserve资料表新增的资料，填入表格的各栏位当中显示出来。
程式码，如下∶
<% ELSE
IF RS(0) < 100 THEN
'此诊次已有人预约挂号 ! HospitalCount的COUNT,TOTAL增一
TotalNo = RS(0)+1
CountNo = RS(1)+1
SQL = "UPDATE HospitalCount SET TOTAL = " & TotalNo & ",COUNT0 = " & CountNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
'HospitalReserve新增一笔
SQL = "INSERT INTO HospitalReserve(COUNT0, ID, DATE0, CLASS) VALUES(" & CountNo & ",'" & Request.Form("ID1") & "','" & Request.Form("DATE1") & "','" & LEFT(Request.Form("CLASS1"),2) & "')"
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#0000FF">预约挂号 OK ! 看诊顺序为第 <% =CountNo %> 号</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>病历号码</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊顺序</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =LEFT(Request.Form("CLASS1"),2) %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =CountNo %></FONT></TD>
</TR>
</TABLE>
若此课程的预约挂号人数TOTAL超过100个名额，则显示“预约挂号已满 ! 请预约其他诊次 !”。
接着，显示执行的结果，配合<TABLE>表格的HTML语法，将病历号码和看诊日期等资料，填入表格的各栏位当中显示出来。
程式码，如下∶
<% ELSE %>
<% '100预约挂号已满 %>
<FONT COLOR="#FF0000">报歉 !</FONT><br>
<FONT COLOR="#FF0000">预约挂号已满 ! 请预约其他诊次 !</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>病历号码</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =LEFT(Request.Form("CLASS1"),2) %></FONT></TD>
</TR>
</TABLE>
<% END IF %>
<% END IF %>
当于HospitalReserve资料表，由“IF RS.EOF THEN ...”判断是否已经预约挂号时，若RS.EOF为FALSE，表示此诊次已经预约挂号过，则显示“报歉! 已经预约挂号! 看诊顺序为第...号”。
接着，显示执行的结果，配合<TABLE>表格的HTML语法，将病历号码、看诊日期、和看诊顺序等资料，填入表格的各栏位当中显示出来。
程式码，如下∶
<% ELSE %>
<% '已经预约挂号 %>
<FONT COLOR="#FF0000">报歉 !</FONT><br>
<FONT COLOR="#FF0000">已经预约挂号 !</FONT> 看诊顺序为第 <% =RS(1) %> 号</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>病历号码</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊顺序</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("ID1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =Request.Form("DATE1") %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =LEFT(Request.Form("CLASS1"),2) %></FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER><FONT COLOR="#0000"><% =RS(1) %></FONT></TD>
</TR>
</TABLE>
<% END IF
Conn.Close
End Sub %>
最后，使用Conn.Close关闭资料库。
取消预约挂号
按了“取消预约挂号”按钮时，将执行DeleteReserve() 副程式。
首先，先寻找到所待取消的预约挂号记录，使用“Server.CreateObject”建立连线的物件，并使用“Open”开启待存取查询资料库BookSamp。
再使用SELECT的SQL指令查询资料库的资料，于HospitalReserve资料表，设定SQL指令，查询病历号码栏位ID符合所输入Request.Form("ID1")，查询看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料，，下个“Execute”指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。
由“IF RS.EOF THEN ...”判断是否找到所待取消的预约挂号记录，若RS.EOF为TRUE，表示此诊次尚未预约挂号，则显示“找不到 ! 尚未预约挂号 !”。
程式码如下∶
<%
Sub DeleteReserve()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT * FROM HospitalReserve WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
%>
<HR>
<FONT COLOR="#0000FF">取消预约挂号结果:</FONT><br>
<%
IF RS.EOF THEN
'找不到 ! 尚未预约挂号 !
%>
<FONT COLOR="#FF0000">找不到 ! 尚未预约挂号 !</FONT>
若找到所待取消的预约挂号记录，则于HospitalReserve资料表，使用“DELETE FROM...”指令删除此笔资料。
然后，再于HospitalCount资料表，使用“UPDATE...”指令，将此笔课程的预约挂号人数TOTAL减一。
接着，显示执行的结果，配合<TABLE>表格的HTML语法，将于HospitalReserve资料表删除的资料，填入表格的各栏位当中，以显示出来。
程式码，如下∶
<% ELSE
'取消预约挂号 !
'HospitalReserve删除一笔
SQL = "DELETE FROM HospitalReserve WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
'HospitalCount的TOTAL减一
'RS.Close
SQL = "SELECT * FROM HospitalCount WHERE DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
IF RS.EOF THEN
%>
<FONT COLOR="#FF0000">找不到预约挂号资料 !</FONT>
<%
ELSE
TotalNo = RS(0)-1
SQL = "UPDATE HospitalCount SET TOTAL = " & TotalNo & " WHERE DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"
Set RS = Conn.Execute(SQL)
%>
<FONT COLOR="#FF0000">预约挂号已经取消 !</FONT>
<TABLE COLSPAN=8 CELLPADDING=1 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>病历号码</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>看诊日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>科别</FONT></TD>
</TR>
<TR>
<TD BGCOLOR="f7efde" ALIGN
4. 网站如何实现HTTPS
1、注册域名，域名可以正常解析或注册时预留邮箱可以正常联系。
2、准备一台独立服务器（云服务器）；虚拟主机不支持HTTPS，如果提供商告诉您支持，那么就可以使用，不过通常都不支持！
3、淘宝搜索：Gworg ，获取SSL信任证书，办理验证。
4、根据Gworg教程把证书部署到服务器，如果遇到困难不会部署，可以请求技术安装。
5、访问域名确定浏览器地址栏是否有绿色小锁图标，如果没有需要查看网站源码，删除调用的HTTP协议数据即可，HTTPS情况下需要全站源码HTTPS协议交换。
5. 在交换链接中如何看出对方有没有使用JS代码
你可以直接查看该网站的源代码你先去看看，JS代码的全称是什么，然后，看在那一段代码里面，有没有友链的代码
看下源码里有没有自己的网址，如果有就不是JS，记得看下有没有 rel="nofllow"
6. 网站怎么制作，和源码怎么用
具体价钱要看你网站的 信息量 功能 等 根据这些来给你定价 一般的动态网站 600-1000价位不等 这个是个估计价
说真的 制作一个网站很麻烦的 需要一个团体分工才能完成网站的建设 我是学计算机的 不骗你
恩 要是想了解的话还是到站业的建站网站学习
恩 这里就先初步的给你介绍下建站的思想
强掉下这个不是我总结的
一、确定网站主题
网站主题就是你建立的网站所要包含的主要内容，一个网站必须要有一个明确的主题。特别是对于个人网站，你不可能像综合网站那样做得内容大而全，包罗万象。你没有这个能力，也没这个精力，所以必须要找准一个自己最感兴趣内容，做深、做透，办出自己的特色，这样才能给用户留下深刻的印象。网站的主题无定则，只要是你感兴趣的，任何内容都可以，但主题要鲜明，在你的主题范围内内容做到大而全、精而深。
二、搜集材料
明确了网站的主题以后，你就要围绕主题开始搜集材料了。常言道：“巧妇难为无米之炊”。要想让自己的网站有血有肉，能够吸引住用户，你就要尽量搜集材料，搜集得材料越多，以后制作网站就越容易。材料既可以从图书、报纸、光盘、多媒体上得来，也可以从互联网上搜集，然后把搜集的材料去粗取精，去伪存真，作为自己制作网页的素材。
三、规划网站
一个网站设计得成功与否，很大程度上决定于设计者的规划水平，规划网站就像设计师设计大楼一样，图纸设计好了，才能建成一座漂亮的楼房。网站规划包含的内容很多，如网站的结构、栏目的设置、网站的风格、颜色搭配、版面布局、文字图片的运用等，你只有在制作网页之前把这些方面都考虑到了，才能在制作时驾轻就熟，胸有成竹。也只有如此制作出来的网页才能有个性、有特色，具有吸引力。如何规划网站的每一项具体内容，我们在下面会有详细介绍。
四、选择合适的制作工具
尽管选择什么样的工具并不会影响你设计网页的好坏，但是一款功能强大、使用简单的软件往往可以起到事半功倍的效果。网页制作涉及的工具比较多，首先就是网页制作工具了，目前大多数网民选用的都是所见即所得的编辑工具，这其中的优秀者当然是Dreamweaver和Frontpage了，如果是初学者，Frontpage2000是首选。除此之外，还有图片编辑工具，如Photoshop、Photoimpact等；动画制作工具，如Flash、Cool 3d、Gif Animator等；还有网页特效工具，如有声有色等，网上有许多这方面的软件，你可以根据需要灵活运用。
五、制作网页
材料有了，工具也选好了，下面就需要按照规划一步步地把自己的想法变成现实了，这是一个复杂而细致的过程，一定要按照先大后小、先简单后复杂来进行制作。所谓先大后小，就是说在制作网页时，先把大的结构设计好，然后再逐步完善小的结构设计。所谓先简单后复杂，就是先设计出简单的内容，然后再设计复杂的内容，以便出现问题时好修改。在制作网页时要多灵活运用模板，这样可以大大提高制作效率。
六、上传测试
网页制作完毕，最后要发布到Web服务器上，才能够让全世界的朋友观看，现在上传的工具有很多，有些网页制作工具本身就带有FTP功能，利用这些FTP工具，你可以很方便地把网站发布到自己申请的主页存放服务器上。网站上传以后，你要在浏览器中打开自己的网站，逐页逐个链接的进行测试，发现问题，及时修改，然后再上传测试。全部测试完毕就可以把你的网址告诉给朋友，让他们来浏览。
七、推广宣传
网页做好之后，还要不断地进行宣传，这样才能让更多的朋友认识它，提高网站的访问率和知名度。推广的方法有很多，例如到搜索引擎上注册、与别的网站交换链接、加入广告链等。
八、维护更新
网站要注意经常维护更新内容，保持内容的新鲜，不要一做好就放在那儿不变了，只有不断地给它补充新的内容，才能够吸引住浏览者
制作网页主要有以下一些工具
Frontpage：office自带的一个工具，操作简单，实用，学起来比较轻松，功能不咋地，我不太喜欢。
Dreamweaver：这是网页三剑客之一，专门制作网页的工具，可以自动将网页生成代码，是普通网页制作者的首选工具，界面简单，实用功能比较强大。建议初学者选用。
另外一个工具就是代码编辑工具，例如写字本、EditPlus等，这些工具主要编辑asp等动态网页。
此外还有一些网络编程工具，javascript、java编辑器等。
网页制作也是一个比较吃香的行业，要真正做一个好的网站，还必须有良好的设计功底。所以还得学很多边缘性的软件，例如photoshop、flash等。
大型的网站往往还需要数据库的支持，所以还得懂数据库。sql、甲骨文等。
总之，掌握好网页制作，能独立完成一个网站的制作工作，那就不要考虑吃饭问题。随便混就好了！
7. 急需一份网站课程设计，求交换！！！
没有看明白你的意思，你是要教程还是一个项目的源码。
8. 求一份交换环境下的流量分析 的源代码
给浩瀚的大狱披上银衣，
不对事物过多修饰──
距离吞噬了影儿的笑容。
是不是欺诈和诡计？
的涂抹整个让她跨骑上了
涟漪推兰舟，哈哈
9. 全站源码HTTPS协议交换 是什么意思
是指网站代码http地址调用的资源改成https协议，需要网站源码建设人员改正。
HTTPS协议具体步骤：
解决办法：实现HTTPS后将网站源码改成https。
10. 有什么开源的路由器或者交换机源码
（1）工作层次不同
最初的的交换机是工作在OSI／RM开放体系结构的数据链路层，也就是第二层，而路由器一开始就设计工作在OSI模型的网络层。由于交换机工作在OSI的第二层（数据链路层），所以它的工作原理比较简单，而路由器工作在OSI的第三层（网络层），可以得到更多的协议信息，路由器可以做出更加智能的转发决策。
（2）数据转发所依据的对象不同
交换机是利用物理地址或者说MAC地址来确定转发数据的目的地址。而路由器则是利用不同网络的ID号（即IP地址）来确定数据转发的地址。IP地址是在软件中实现的，描述的是设备所在的网络，有时这些第三层的地址也称为协议地址或者网络地址。MAC地址通常是硬件自带的，由网卡生产商来分配的，而且已经固化到了网卡中去，一般来说是不可更改的。而IP地址则通常由网络管理员或系统自动分配。
（3）传统的交换机只能分割冲突域，不能分割广播域；而路由器可以分割广播域
由交换机连接的网段仍属于同一个广播域，广播数据包会在交换机连接的所有网段上传播，在某些情况下会导致通信拥挤和安全漏洞。连接到路由器上的网段会被分配成不同的广播域，广播数据不会穿过路由器。虽然第三层以上交换机具有VLAN功能，也可以分割广播域，但是各子广播域之间是不能通信交流的，它们之间的交流仍然需要路由器。
（4）路由器提供了防火墙的服务
路由器仅仅转发特定地址的数据包，不传送不支持路由协议的数据包传送和未知目标网络数据包的传送，从而可以防止广播风暴。
交换机一般用于LAN-WAN的连接，交换机归于网桥，是数据链路层的设备，有些交换机也可实现第三层的交换。 路由器用于WAN-WAN之间的连接，可以解决异性网络之间转发分组，作用于网络层。他们只是从一条线路上接受输入分组，然后向另一条线路转发。这两条线路可能分属于不同的网络，并采用不同协议。相比较而言，路由器的功能较交换机要强大，但速度相对也慢，价格昂贵，第三层交换机既有交换机线速转发报文能力，又有路由器良好的控制功能，因此得以广泛应用。
目前个人比较多宽带接入方式就是ADSL，因此笔者就ADSL的接入来简单的说明一下。现在购买的ADSL猫大多具有路由功能（很多的时候厂家在出厂时将路由功能屏蔽了，因为电信安装时大多是不启用路由功能的，启用DHCP。打开ADSL的路由功能），如果个人上网或少数几台通过ADSL本身就可以了，如果电脑比较多你只需要再购买一个或多个集线器或者交换机。考虑到如今集线器与交换机的 价格相差十分小，不是特殊的原因，请购买一个交换机。不必去追求高价，因为如今产品同质化十分严重，我最便宜的交换机现在没有任 何问题。给你一个参考报价，建议你购买一个8口的，以满足扩充需求，一般的价格100元左右。接上交换机，所有电脑再接到交换机上就行了。余下所要做的事情就只有把各个机器的网线插入交换机的接口，将猫的网线插入uplink接口。然后设置路由功能，DHCP等， 就可以共享上网了。