台灣最大的程式設計社群網站
線上人數
977
 
會員總數:354124
討論主題:190386
免費程式:2729
歡迎您免費加入會員
首頁 >> 程式下載 >> 程式資料檢視
程式資料
名稱 小誌通訊錄&平凡小站通訊錄綜合
類別 會員管理 使用者介面 網頁系統
程式語言 ASP 開發狀態 100% - 成熟
語系 其他 難易度 難度三(適合一般程度)
原創者 小誌&平凡小站  原創者網址  
提供者 Brcky 執行網址  
版權 開放源碼 評分
(共有 21 人投票,總分 85)
我要評分 : 不好<- 1 2 3 4 5 -> 很好   這個程式不能有問題歐! 加入我的收藏夾!
說明
更新內容
        1.新增查詢密碼表單
        2.修改主頁內容
        3.新增以認證碼方式由一般使用者新增資料
        4.修正搜尋功能之錯誤
        5.新增分類項目
歡迎各位在非營利情況下分享本系統
如果各位有更好的點子~請mail原著作者~感謝~

請將Readme.txt檔在主網頁中加上超連結~謝謝
預覽畫面
檔名 : 20040606214327776_02.jpg
檔案大小 : 20894 Bytes  上傳時間:2004-06-06 21:43
檢視圖片
--
小誌通訊錄&平凡小站通訊錄綜合
檔名 : 20040606214327776_01.jpg
檔案大小 : 23486 Bytes  上傳時間:2004-06-06 21:43
檢視圖片
--
小誌通訊錄&平凡小站通訊錄綜合
檔案列表
檔名 : 20040606214327776A.rar  下載數:782
檔案大小:32957 Bytes  上傳時間:2004-06-06 21:43
下載此檔案
--
小誌通訊錄&平凡小站通訊錄綜合
網友回應  
如要發送訊息請先登入.
請問 東東 [2008-12-12 23:18]
我已修改後
放到我的FTP裡去
但是沒辦法登入和註冊耶
他說我沒有什麼編碼的
還有
還有
那個
進入系統的案紐
要怎麼連結到其他的網頁ㄋ

可以教教我嗎?
我不適用他來賺錢的唷!
只是想玩玩而已

恩~ 傑諾特 [2007-07-25 12:10]
您好^^"
我是這個修改版的作者
brack這個帳號忘記密碼...只好換新帳號


關於那一行說明
設定待執行的SQL指令為「select * from student」以查詢所有的資料,將查詢的資料放置於所定義rs的Recordset當中,ASP程式碼如下: 語法: rs.Open SQL指令, Conn, 1, 1 ‘第二個參數1,表讀取。用於瀏覽時 rs.Open SQL指令, Conn, 1, 3 ‘第二個參數3,表是可以新增、修改、或刪除 程式碼:
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "student",db,1,1

Set rs = Server.CreateObject("ADODB.Recordset")
SqlStr = "select * from student order by s_year"
rs.Open SqlStr,db,1,1

說明: rs.open 後面接table名稱,並用雙引號括住。 select * from student 代表由student table中選取資料。*代表全部欄位皆選取。by s_year 表由年級排序。 若只想選取選取姓名(name)、年級(s_year),則:"select name,s_year from student" order by 欄位:由小到大排列。若由大到小則:order by 欄位 DESC


通常會出現錯誤是因為mdb檔案開啟後未關閉
這是做ASP網頁常會出現的小問題= =
如果你確定ACCESS已經關閉~
還是出現問題的話就重開機一次就可以了

ps.這支程式算是小弟的第二支程式
會做的原因是因為要畢業了~~
過了三年~小弟又要畢業了~~
所以正在規劃PHP版的通訊錄
希望到時後捧個場幫忙測試囉~

補充資料 綠油精 [2006-12-08 11:51]
剛剛欄位的型態皆為文字

有問題要問 綠油精 [2006-12-08 11:48]
各位大大,我是用小誌通訊錄&平凡小站通訊錄綜合的程式去做修改,我是用自已的資料庫去修改,想要其中修改資料的功能,但是在修改的過程中遇到一個問題,問題如下:
錯誤類型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 參數太少,預期個數 1。
/會員管理測試版/save.asp, line 13
CmdEditInfo.Open cmdTemp, , 1, 3-----13行(錯誤行數)
我們的資料庫是data.mdb 資料表是會員資料 欄位是姓名,帳號,性別,電話,地址,電子郵件
以下這頁的程式
<%'@ LANGUAGE="VBSCRIPT" %>
<% ACT = Request.Querystring("ACT") %>
<%ID = Request.form("ID")%>
<%
Set ConnClassmate = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data.mdb")
ConnClassmate.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdEditInfo = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "select 姓名,帳號,性別,電話,地址,電子郵件 FROM 會員資料 WHERE (帳號 = "& ID &")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnClassmate
CmdEditInfo.Open cmdTemp, , 1, 3
%>
<% '抓取修改後之資料,並更新
NAME = Request.Form("姓名")
IF NAME <> "" THEN
NAME = Replace(name,vbCrLf,"<br>")
CmdEditInfo.Fields("姓名") = NAME
END IF
%>
<% A_ID = Request.Form("帳號")
IF A_ID <> "" THEN
A_ID = Replace(A_ID,vbCrLf,"<br>")
CmdEditInfo.Fields("帳號") = A_ID
END IF
%>
<% BIG_TEL = Request.Form("性別")
IF BIG_TEL <> "" THEN
BIG_TEL = Replace(BIG_TEL,vbCrLf,"<br>")
CmdEditInfo.Fields("性別") = BIG_TEL
END IF
%>

<% HOME_TEL = Request.Form("電話")
IF HOME_TEL <> "" THEN
HOME_TEL = Replace(HOME_TEL,"or","<br>")
CmdEditInfo.Fields("電話") = HOME_TEL
END IF
%>
<% ADDRESS = Request.Form("地址")
IF ADDRESS <> "" THEN
ADDRESS = Replace(ADDRESS,vbCrLf,"<br>")
CmdEditInfo.Fields("地址") = ADDRESS
END IF
%>

<% EMAIL = Request.Form("電子郵件")
IF EMAIL <> "" THEN
EMAIL = Replace(EMAIL,vbCrLf,"<br>")
CmdEditInfo.Fields("電子郵件") = EMAIL
END IF
%>
<%
CmdEditInfo.Update
CmdEditInfo.Close
%>
<%
Response.Write "<body bgcolor=C0C0C0>"
Response.Write "<font size=5 color=F0F0F0><center>"
Response.Write "修改成功!<p>"
Response.Write "<font color=blue size=2><a href=Login.htm>重新登入</a>"
Response.End
%>
能請各位大大幫幫忙好嗎?
另外大大知道CmdEditInfo.Open cmdTemp, , 1, 3這行程式是什麼意思,能否告知一下,謝謝!(請詳細一點)
以上的問題,請各位大大如果知道如何修改程式錯誤的地方,煩請告知一下,謝謝!!


真的很好用喔 阿文 [2005-07-05 11:38]
真的很好用喔!我修改的網址如下http://class.mcjh.ptc.edu.tw/9112/addressbook/

請問此通訊錄有PHP板的嗎 餅乾 [2005-05-07 22:10]
這套通訊錄程式非常好用,
只是說不知是否有開發PHP板的嗎?
謝謝。

請問一下...??? 凱倫 [2005-02-08 19:09]
我要修改資料時出現了這個訊息,但是mdb唯讀那欄並沒有勾選,請問這個是什麼問題呢?
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 無法更新。資料庫或物件是唯讀的。