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等， 就可以共享上網了。