1. 怎麼將excel表格(成績表)導入資料庫（mysql）
最新的mysql 有mysql for excel 工具，選擇要導入的數據，從工具欄里點擊 數據，找到mysql for excel
建好鏈接之後，導入就ok了，具體操作可參考官方文檔
http://www.mysql.com/why-mysql/windows/excel/
2. 求VB 用ADODB連接ACCESS資料庫實例
'首先，工具->引用->選中Microsoft ActiveX Data Objects 2.X Library
'必須選中，否則下面代碼不會起作用！（以下鏈接資料庫之方式，不需要使用ADODB控制項，僅需代碼即可）
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Cnt As Integer '這個Cnt是用來表示資料庫數據總量的，對鏈接過程無關
'連接資料庫的代碼段
Conn.CursorLocation = adUseClient '以Conn為鏈接名建立鏈接，這里是設置數據游標（客戶端數據游標），即設定讀取資料庫數據之方式（一行一行地讀）
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"
'自己改動一下上面的路徑和文件名即可，其他的代碼你不理解照粘貼無妨
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "SELECT 鋪名, 上月讀數, 本月讀數, 實用度數, 鋪位數, 首層面積, 非經營層面積, 欠費明細, 欠費金額 FROM data WHERE 首層面積 is not null and 非經營層面積 is not null;", Conn, adOpenKeyset, adLockPessimistic
Cnt = Rs.RecordCount
'關閉資料庫鏈接（一般放到子過程結束處，關閉資料庫鏈接）
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
'添加、修改、刪除、更新數據（都以Conn.Execute後帶SQL語句來實現對資料庫的查詢操作）
'Conn.Execute "update data set 上月讀數 = 本月讀數"
』Rs.MoveNext '數據游標轉到資料庫下一行
'實例：
For i = 1 To Cnt
DoEvents
Conn.Execute "insert into data (ID,鋪名,上月讀數,本月讀數,實用度數,鋪位數) values(" & Rs("ID") & ",'" & Rs("鋪名") & "'," & Rs("上月讀數") & "," & Rs("本月讀數") & "," & Rs("實用度數") & "," & Rs("鋪位數") & ")"
Rs.MoveNext
Next
3. 在網上學英語那些網站比較好
有啊,像洪恩之類的,E孚,大耳朵英語,李陽瘋狂英語.這樣的有好多!
這是比較不錯的!
4. 哈佛大學的學術科研
醫學 貝斯以色列女執事醫療中心（Beth Israel Deaconess Medical Center，BIDMC）
布萊根婦女醫院（Brigham and Women's Hospital，BWH）
劍橋健康聯盟（Cambridge Health Alliance，CHA）
波士頓兒童醫院（Children』s Hospital Boston）
丹娜法伯癌症研究院（Dana–Farber Cancer Institute）
福塞斯研究院（Forsyth Institute）
哈佛朝聖者醫療保健院（HarvardPilgrimHealthCare）
希伯來老化研究所（Hebrew SeniorLife）
喬斯林糖尿病中心（Joslin Diabetes Center）
馬薩諸塞州眼耳醫院（Massachusetts Eye and Ear Infirmary）
貝克法官兒童診療中心（Judge Baker Children』s Center）
馬薩諸塞州中心醫院（Massachusetts General Hospital）
麥克林醫院（McLeanHospital）
黃山醫院（MountAuburnHospital）
斯格本斯眼科研究院（Schepens Eye Research Institute）
斯波爾丁康復醫院（Spaulding Rehabilitation Hospital）
退伍軍人事務部波士頓醫療保健機構（Veterans Affairs Boston Healthcare System） 館藏資源 哈佛大學擁有美國最大的學術圖書館，規模為全球第五（僅次於美國國會圖書館、大英圖書館、法國國家圖書館、紐約公共圖書館）。
哈佛大學圖書館的中央系統位於哈佛庭院的懷德納圖書館（Widener Library）內，整個系統覆蓋80所不同的圖書館，整體館藏量超過1600萬冊，使其成為全美最大的學術圖書館網路，同時位居全美第三（僅次於美國國會圖書館和波士頓公共圖書館）。不同的圖書館適合不同類型的讀者進入：位處於劍橋市本部的加博科學圖書館（Cabot Science Library）、拉蒙特圖書館（Lamont Library）及懷德納圖書館為本科生最常去的圖書館；霍頓圖書館（Houghton Library）及亞瑟·伊麗莎白施萊辛格圖書館（Arthur and Elizabeth Schlesinger Library）專門收藏有關美國女性地位發展的歷史參考；哈佛大學資料庫搜羅了各種珍貴的書籍及手抄搞；美國一些最古老的地圖、地名冊等能在哈佛的蒲賽圖書館（Pusey Library）內找到；而哈佛燕京圖書館內則保管與東亞古老語言相涉的文獻。 博物館 1、卡本特視覺藝術中心（Carpenter Center for the Visual Arts）：由著名建築師勒·柯布西耶設計，為大學電影及藝術部的資料庫。
2、哈佛藝術博物館（Harvard ArtMuseums）
一、亞瑟·M·薩克勒畫廊（Arthur M. Sackler Museum），內藏亞洲藝術品。
二、布希雷辛格博物館（Busch-Reisinger Museum），內藏中歐及北歐藝術品。
三、佛格藝術館（Fogg Museum of Art），內藏西方中世紀藝術品。
3、哈佛藝術博物館在線展覽館（Harvard Art Museums Online Collections）
4、斯特勞斯保存中心（Straus Center for Conservation）
5、哈佛自然歷史博物館（Harvard Museum of Natural History）
6、哈佛大學植物標本館（Harvard University Herbaria）
7、礦物與地理博物館（Mineralogical & Geological Museum）
8、比較動物學博物館（Museum of Comparative Zoology）
9、阿諾德植物園（Arnold Arboretum）
10、科學儀器（歷史）典藏館（Collection of Historical Scientific Instruments）
11、哈佛林之費雪博物館（Fisher Museum at the Harvard Forest）
12、畢巴底考古與民族博物館（Peabody Museum of Archaeology and Ethnology）
13、閃族博物館（Semitic Museum）
14、華倫解剖學博物館（Warren Anatomical Museum）
15、動物標本資料庫（Database of Zoological Collections）
16、數字哈佛（Digital Harvard）
17、皮博迪數字博物館（Peabody Museum Online）
18、哈佛科學文化博物館（Harvard Museums of Science and Culture）
19、metaLAB (at) Harvard 科研經費 哈佛大學受捐資金居於世界科研機構之首，在2013年已經累計達到320億美元，是僅次於比爾與美琳達·蓋茨基金會的最大捐贈基金；哈佛年平均科研經費超過7億五千萬美元，為14個學院上百個研究機構提供支持。 影響因子 2014年3月27日《自然》雜志發布年度報告，2013年在《自然》雜志上發表高質量論文的貢獻指數，哈佛大學位列第一，中國科學院在這份榜單上居於全球第6位。 在《sciencewatch》發布的1999-2009十年間論文引用排名中，哈佛大學同樣高居首位。 RankInstitutionCC3Articles41.Harvard University, USA158.993872.Massachusetts Institute of Technology (MIT), USA84.682283.Stanford University, USA80.211704.National Institutes of Health (NIH), USA73.461815.Max Planck Society, Germany70.652166.Chinese Academy of Sciences (CAS), China63.151657.French National Centre for Scientific Research (CNRS), France59.372978.The University of Tokyo, Japan57.191289.University of California San Francisco (UCSF), USA49.8110710.University of Cambridge, UK48.52151The Most-Cited Institutions Overall, 1999- Paper1HARVARD UNIV95,2912,597,78627.262MAX PLANCK SOCIETY69,3731,366,08719.693JOHNS HOPKINS UNIV54,0221,222,16622.624UNIV WASHINGTON54,1981,147,28321.175STANFORD UNIV48,8461,138,79523.316UNIV CALIF LOS ANGELES55,2371,077,06919.57UNIV MICHIGAN54,612948,62117.378UNIV CALIF BERKELEY46,984945,81720.139UNIV CALIF SAN FRANCISCO36,106939,30226.0210UNIV PENN46,235931,39920.14重大成果 1922年，醫學院於英格蘭首次完成胰島素注射。
1954年，波士頓兒童醫院科學家約翰·富蘭克林·恩德斯及其團隊因成功以人為方式培養脊髓灰質炎病毒，獲當年諾貝爾生理學或醫學獎。
1960年，貝斯以色列女執事醫療中心首次完成心臟起搏器植入手術。
1961年，蓋歐爾格·馮·貝凱希因發現內耳耳蝸分析和傳送聲音的物理機制，獲得諾貝爾生理學或醫學獎。
1962年，分子生物學家詹姆斯·沃森因提出DNA的雙螺旋模型學說，獲得諾貝爾生理學或醫學獎。
1964年，康拉德·布洛赫因膽固醇及脂肪酸生物合成方面的發現，獲得當年諾貝爾生理學或醫學獎。
1965年，物理學教授朱利安·施溫格與理查德·費曼、朝永振一郎共同分享當年諾貝爾物理學獎，因三人在量子電動力學及粒子物理學方面作出的基礎性貢獻。
1965年，現代有機合成之父伍德沃德獲諾貝爾化學獎。
1967年，眼科學家喬治·沃爾德因視網膜領域的開創性研究獲得當年諾貝爾生理學或醫學獎。
1971年，國民生產總值之父西蒙·史密斯·庫茲涅茨獲當年諾貝爾經濟學獎。
1972年，肯尼斯·約瑟夫·阿羅因在一般均衡理論方面的突出貢獻與約翰·希克斯共同獲得諾貝爾經濟學獎。
1973年，華西里·列昂惕夫因投入產出分析方法的研究獲得諾貝爾經濟學獎。
1976年，無機化學家威廉·利普斯科姆因對硼烷結構的研究獲得當年諾貝爾化學獎。
1977年，因對「磁性和無序體系電子結構的基礎性理論研究」，約翰·凡扶累克與內維爾·莫特一同獲得1977年的諾貝爾物理學獎
1979年，史蒂文·溫伯格因實驗驗證了由於Z玻色子與電磁作用混合引起的宇稱破缺，獲諾貝爾物理學獎；與他一同獲獎的還有大統一理論的開創者、同為哈佛大學教授的格拉肖。
1980年，巴茹·貝納塞拉夫因發現了控制免疫反應的、遺傳的細胞表面結構，獲當年諾貝爾生理學或醫學獎；
同年，因為發展了測定DNA序列的方法，沃特·吉爾伯特與弗雷德里克·桑格獲諾貝爾化學獎。
1981年，大衛·休伯爾因為視覺系統方面的研究（用視皮層細胞解釋視網膜的編碼脈沖信息的能力），獲當年諾貝爾生理學或醫學獎。
1984年，卡羅·魯比亞因為在發現弱作用傳播子W±和Z°的大規模實驗方案中所起的決定性作用，獲同年諾貝爾物理學獎。
1986年，化學教授達德利·赫施巴赫因為研究化學基元反應體系在位能面運動過程的動力學，與李遠哲和約翰·波拉尼（John Polanyi）共同分享了1986年的諾貝爾化學獎。
1989年，諾曼·拉姆齊由於研發超精密銫原子鍾和氫微波激射器而獲得當年諾貝爾物理學獎。
1990年，約瑟夫·默里由於在「人體器官和細胞移植的研究」的貢獻而獲得諾貝爾生理學或醫學獎；
同年，艾里亞斯·詹姆斯·科里因開發了計算機輔助有機合成的理論和方法，獲諾貝爾化學獎。
2002年，里卡多·賈科尼因在X射線天文學方面的先驅性貢獻，獲得2002年度諾貝爾物理學獎。
2004年，琳達·巴克由於在嗅覺方面的卓越研究與理查德·阿克塞爾一同獲得2004年諾貝爾生理學或醫學獎。
2005年，羅伊·格勞伯因「對光學相乾的量子理論」的貢獻，獲當年諾貝爾物理學獎。
2009年，傑克·紹斯塔克因發現端粒和端粒酶保護染色體的機理，與兩位科學家一同分享了當年的諾貝爾生理學或醫學獎。
2013年，馬丁·卡普拉斯因「為復雜化學系統創造了多尺度模型」，獲當年諾貝爾化學獎。
5. 誰能給我解釋下這段程序的每步的意思啊
Private Sub Command3_Click()
Dim cn As New ADODB.Connection
//定義資料庫連接
//cmd,cmd1 是SQL語句
//cn,cn1是連接字元
//rs,rs1是存儲數據對象
Dim cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim cn1 As New ADODB.Connection
Dim cmd1 As New ADODB.Command
Dim Rs1 As New ADODB.Recordset
Dim i As Integer
//打開cn連接
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.Open App.Path & "\資料庫\實際資料.mdb" '' database
Set cmd.ActiveConnection = cn
Rs.CursorLocation = adUseClient
Rs.Open "建庫後資料", cn, adOpenStatic, adLockOptimistic
//打開cn1連接
cn1.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn1.Open App.Path & "\資料庫\實際資料.mdb" '' database
Set cmd1.ActiveConnection = cn1
Rs1.CursorLocation = adUseClient
Rs1.Open "建庫前資料", cn1, adOpenStatic, adLockOptimistic
//把rs 表中的值復制給 rs1
Do While Not Rs.EOF
Rs1.AddNew
i = i + 1
Rs1.Fields("Qm") = qq(i)
Rs1.Fields("年份") = Rs.Fields("年份")
Rs1.Fields("W24h") = Rs.Fields("W24h")
Rs1.Fields("W3日") = Rs.Fields("W3日")
Rs1.Fields("W5日") = Rs.Fields("W5日")
Rs1.Fields("W7日") = Rs.Fields("W7日")
Rs.MoveNext
Rs1.MoveNext
Loop
End Sub
//對話框載入函數
Private Sub Form_Load()
//定義資料庫變數
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim k As Integer, Qm() As Single
//連接資料庫
cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cn.Open App.Path & "\資料庫\實際資料.mdb" '' database
Set cmd.ActiveConnection = cn
Rs.CursorLocation = adUseClient
Rs.Open "建庫後資料", cn, adOpenStatic, adLockOptimistic
//把資料庫的qm欄位的值復制給數據qm
k = 0
Do While Not Rs.EOF
k = k + 1
ReDim Preserve Qm(k)
Qm(k) = Rs.Fields("Qm")
Rs.MoveNext
Loop
Rs.Close
cn.Close
//把值顯示到表格
With MSFlexGrid1
//定義行數,列數
.rows = 8
.cols = 2
//改變文本值
.TextMatrix(0, 0) = "Qm後"
.TextMatrix(0, 1) = "Qm前"
//表格賦值
//行操作
For i = 1 To .rows - 1
.TextMatrix(i, 0) = Qm(i)
.TextMatrix(i, 1) = Format((0.99 * Qm(i) - 408.08), "###0")
qq(i) = .TextMatrix(i, 1)
Next i
//列操作
For i = 0 To .cols - 1
.Row = 0
.Col = i
.CellBackColor = RGB(77, 220, 249)
Next i
End With
6. 如何在Excel2003中建立資料庫
Excel可以連接access
SQL
Server等資料庫
連接通過ADO實現
連接SQL
Server2000代碼
Dim
cn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Dim
strCn
As
String,
strSQL
As
String
strCn
=
"Provider=sqloledb;Server=192.168.0.227;Database=oldda;Uid=sa;Pwd=351555;"
cn.Open
strCn
通過SQL語句操作資料庫
刪除代碼
strSQL
=
"delete
from
t_temp_xs"
rs.Open
strSQL,
cn
插入代碼
strSQL
=
"insert
into
t_temp_xs(cp)
"
&
_
"
values('56789')"
rs.Open
strSQL,
cn
條件選擇代碼
strSQL
=
"select
cp
from
t_temp_xs"
rs.Open
strSQL,
cn
rs.MoveFirst
Sheet1.Cells(1,
1)
=
rs("cp")
rs.close
7. 怎麼從access資料庫中查詢數據調到EXCEL單元格中
1.在工具欄中找到「外部數據」並單擊。
8. 求一html 注冊 賬號用的資料庫
html是不可以實現的，如果可以也是嵌套的框架頁面，接下來
我把我做過的asp的代碼貼給你，自己對照著看一下，有些不要的欄位可以刪除！
----------------------------------------------------------------------------------------------------
注冊頁面
<form action="registernew.asp" name="logform" method="post">
<table cellpadding="0" cellspacing="0" border="0" align="center" width="400">
<tbody>
<tr><td height="50" colspan="2" class="tabletitle">在線圖書銷售管理系統--新用戶注冊</td>
</tr>
<tr>
<td height="40" align="right" width=30% class="leftborder"><div class="STYLE6">用戶名：</div></td>
<td width=70% align="center" class="rightborder">
<input name="username" type="text" class="textinput" value='<%=request("username")%>' maxlength="20">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">口 令:</div></td>
<td align="center" class="rightborder">
<input name="userpwd1" type="password" class="textinput" value='<%=request("userpwd1")%>' maxlength="10">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" class="leftborder" align="right"><div class="STYLE6">重復口令：</div></td>
<td align="center" class="rightborder">
<input name="userpwd2" type="password" class="textinput" value='<%=request("userpwd2")%>' maxlength="10">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">身份證號：</div></td>
<td align="center" class="rightborder">
<input name="useridentity" type="text" class="textinput " value='<%=request("useridentity")%>' maxlength="18">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">電子郵件：</div></td>
<td align="center" class="rightborder">
<input name="useremail" type="text" class="textinput " value='<%=request("useremail")%>' maxlength="50">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">聯系電話：</div></td>
<td align="center" class="rightborder">
<input name="userphone" type="text" class="textinput " value='<%=request("userphone")%>' maxlength="11">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">聯系地址：</div></td>
<td align="center" class="rightborder">
<input name="useraddress" type="text" class="textinput" value='<%=request("useraddress")%>' maxlength="50">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" align="right" class="leftborder"><div class="STYLE6">郵政編碼：</div></td>
<td align="center" class="rightborder">
<input name="userpostcode" type="text" class="textinput " value='<%=request("userpostcode")%>' maxlength="6">
<font color="red">*</font></div></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="bottomborder leftborder rightborder"><input name="logbutton" type="button" value="注 冊" onClick="checkform()"> <a href="default.asp">返回主頁</a></td>
</tr>
</tbody>
</table>
</form>
<%
if request("username")<> "" then '保存用戶注冊信息
'建立資料庫鏈接
set cn=server.CreateObject("adodb.connection")
cn.connectionstring="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/book/database/booksale.mdb/")
cn.open
'檢查用戶名是否重復
username=request("username")
set rs=server.createobject("adodb.recordset")
querystr="select * from customer where user_name='"&username&"'"
set rs.activeconnection=cn
rs.cursortype=1
rs.locktype=3
rs.open querystr
if rs.recordcount > 0 then
response.write"<div align=center><font color=red>用戶名重復！</font></div>"
else
'保存用戶注冊信息
rs.addnew
rs.fields("user_name")=request("username")
rs.fields("user_pwd")=request("userpwd1")
rs.fields("user_identity")=request("useridentity")
rs.fields("user_email")=request("useremail")
rs.fields("user_phone")=request("userphone")
rs.fields("user_address")=request("useraddress")
rs.fields("user_postcode")=request("userpostcode")
rs.update
session("username")=username '保存當前用戶名
'自動載入在線圖書銷售管理系統頁面
response.Redirect "booksaling.htm"
end if
'釋放ado對象
rs.close
cn.close
set rs=nothing
set cn=nothing
response.flush
end if
%>
</body>
</html>
<script >
<!--
function checkform()
{
var uname=document.logform.username
var upwd=document.logform.userpwd1
var upwd2=document.logform.userpwd2
var uinentity=document.logform.useridentity
var uemail=document.logform.useremail
var uphone=document.logform.userphone
var uaddress=document.logform.useraddress
var upostcode=document.logform.userpostcode
if(uname.value.length==0){alert("請輸入用戶名!");return false;}
else if(upwd.value.length==0){alert("請輸入密碼!");return false;}
else if(upwd2.value!=upwd.value){alert("兩次密碼須一致!");return false;}
else if(uinentity.value.length==0){alert("請輸入身份證號!");return false;}
else if (uemail.value.length ==0){alert("請輸入電子郵箱！");return false;}
else if(uemail.value.length >0){
var emailStr=uemail.value;
var emailPat=/^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$/;
var matchArray=emailStr.match(emailPat);
if (matchArray==null)
{alert("郵箱格式不正確!");
return false;
}}
else if(uphone.value.length==0){alert("請輸入聯系電話!");return false;}
else if(uaddress.value.length==0){alert("請輸入聯系地址!");return false;}
else if(upostcode.value.length==0){alert("請輸入郵編!");return false;}
else {
return true;}}
-->
</script>
-------------------------------------------------------------------------------------------------
信息讀取頁面
<form action="edituserinfo.asp" name="updateform" method="post">
<table cellpadding="2" align="center">
<tr>
<td align="right">用戶名：</td>
<td><input name="updatename" id="uname" type="text" class="inputtext" maxlength="20" value="<%=updatename%>">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">口 令:</td>
<td><input name="updatepwd1" type="password" id="upassword" class="inputtext" value="<%=updatepwd%>" maxlength="10">
<font color="red">*</font></td>
</tr>
<tr>
<td> </td>
<td><input name="updatepwd2" type="password" id="upassword2"class="inputtext" value="<%=updatepwd%>" maxlength="10">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">身份證號：</td>
<td><input name="updateidentity" type="text" id="uidentity" class="inputtext" value="<%=updateidentity%>" maxlength="18">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">電子郵件：</td>
<td><input name="updateemail" type="text" id="uemail" class="inputtext" value="<%=updateemail%>" maxlength="50">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">聯系電話：</td>
<td><input name="updatephone" type="text" id="uphone" class="inputtext" value="<%=updatephone%>" maxlength="11">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">聯系地址：</td>
<td><input name="updateaddress" type="text" id="uaddress" class="inputtext" value="<%=updateaddress%>" maxlength="50">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right">郵政編碼：</td>
<td><input name="updatepostcode" type="text" id="upostcode" class="inputtext" value="<%=updatepostcode%>" maxlength="6">
<font color="red">*</font></td>
</tr>
<tr>
<td colspan="2" align="center"><input name="updatebutton" id="updatebutton" type="button" value="保存修改的注冊信息" onClick="ValidateUpdateForm()"></td>
</tr>
</table>
</form>
<%
if request("updatename")<>"" then '保存修改後的注冊信息
querystr="select * from customer where user_name='"&request("updatename")&"'"
'創建recordset對象
set rstemp=server.CreateObject("adodb.recordset")
set rstemp.activeconnection=cn
rstemp.cursortype=1
rstemp.locktype=3
'檢查用戶名是否重復
rstemp.open querystr
if not rstemp.eof then
if rstemp.fields("user_id")<>rs.fields("user_id") then
response.write "<div align=center>"
response.write "<font color=red> 用戶名重復！</font></div>"
else
'保存修改後的用戶注冊信息
rs.fields("user_name")=request("updatename")
rs.fields("user_pwd")=request("updatepwd1")
rs.fields("user_identity")=request("updateidentity")
rs.fields("user_email")=request("updateemail")
rs.fields("user_phone")=request("updatephone")
rs.fields("user_address")=request("updateaddress")
rs.fields("user_postcode")=request("updatepostcode")
rs.update
session("username")=request("updatename") '保存修改後的用戶名
response.write "<div align=center><font color=red>"
response.write "修改後的注冊信息已被成功保存！</font></div>"
end if
else
'保存修改後的用戶注冊信息
rs.fields("user_name")=request("updatename")
rs.fields("user_pwd")=request("updatepwd1")
rs.fields("user_identity")=request("updateidentity")
rs.fields("user_email")=request("updateemail")
rs.fields("user_phone")=request("updatephone")
rs.fields("user_address")=request("updateaddress")
rs.fields("user_postcode")=request("updatepostcode")
rs.update
session("username")=request("updatename") '保存當前用戶修改後的用戶名
response.write "<div align=center><font color=red>"
response.write "修改後的注冊信息已被成功保存！</font></div>"
end if
'釋放ado對象
rstemp.close
rs.close
cn.close
set rs=nothing
set cn=nothing
set rstemp=nothing
response.Flush
end if
%>
<hr>
<div align="center"><a href="booksaling.htm">返回首頁</a></div>
<% else %>
請登錄後再訪問該頁面，到
<a href="default.asp" target="_parent">客戶登陸</a>頁面
<%end if%>
------------------------------------------------------------------------------------
資料庫設計
customer表
欄位如下：
user_id 自動編號，自增量1
user_name 用戶名
user_pwd 密碼
user_identity 身份證號碼
user_email 電子郵件
user_phone 聯系方式
user_address 地址
user_postcode 郵編
9. thinkpphp3.1.3 rabbitmq 消費時 長時間不用 資料庫連接超時2006:MySQL server has gone away 咋怎
1.由於資料庫設計問題造成SQL資料庫新增數據時超時
症狀:
Microsoft OLE DB Provider for SQL Server 錯誤 '80040e31' ([ODBC SQL Server Driver]超時已過期);
伺服器上看CPU、內存佔用率很低;
事件日誌中提示: 資料庫 '*********' 中文件 '***********' 的自動增長在 453 毫秒後已取消或出現超時。使用 ALTER DATABASE 設置更小的 FILEGROWTH 或設置新的大小。
原因:
資料庫設置時,[文件增長]按百分比來增長,當資料庫文件很大時(1G以上),新增操作都會報超時，而這時候其實CPU、內存佔用率都非常非常的低。
解決方法:
把上述的文件增長這里設置為一個更低的百分比或者直接指定增加多少兆位元組。
2.SQL Server資料庫超時設置
修改客戶端的連接超時設置。默認情況下，通過企業管理器注冊另外一台SQL Server的超時設置是 4 秒，而查詢分析器是 15 秒。
企業管理器中的設置:
在企業管理器中，選擇菜單上的"工具"，再選擇"選項"；
在彈出的"SQL Server企業管理器屬性"窗口中，點擊"高級"選項卡；
在"連接設置"下的"登錄超時(秒)"右邊的框中輸入一個比較大的數字，如 30。
查詢分析器中的設置:
單擊「工具」->"選項"->"連接"; 將登錄超時設置為一個較大的數字，連接超時改為0。
3.查詢語句時超時
原因分析:
查詢超時一般來說首先要從sql語句和數據表的結構上找原因，優化sql語句和為資料庫的查詢欄位建索引是最常用的辦法。
另外，資料庫的查詢超時設置一般是sqlserver自己維護的(在你沒有修改query wait配置前)，只有當你的實際查詢時間超過估計查詢時間的25倍時，才會超時。
而造成超出估計值那麼多的原因有兩種可能:
估計時間不準確；
sql語句涉及到大量佔用內存的查詢(如排序和哈希操作)，內存不夠，需要排隊等待資源造成的。
解決辦法:
優化語句,創建\使用合適的索引;
解決第一個問題的方法,更新要查詢表的索引分發統計，保證估計時間的正確性，UPDATE STATISTICS 表名;
增加內存
如果想手動設置查詢超時，可以使用以下語句：
sp_configure 'show advanced options', 1 GO RECONFIGURE GO sp_configure 'query wait', 2147483647 GO RECONFIGURE GO
4.應用程序連接失敗
故障:
在應用程序中我們也會遇到類似的錯誤信息，例如：
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'. [Microsoft][ODBC SQL Server Driver]超時已過期.
解決方法:
A.如果遇到連接超時的錯誤，我們可以在程序中修改 Connection 對象的超時設置，再打開該連接。例如：
＜%Set Conn = Server.CreateObject("ADODB.Connection")DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"Conn. Properties("Connect Timeout") = 15 '以秒為單位Conn.open DSNtest%＞
B. 如果遇到查詢超時的錯誤，我們可以在程序中修改 Recordset 對象的超時設置，再打開結果集。例如：
Dim cn As New ADODB.ConnectionDim rs As ADODB.Recordset. . . cmd1 = txtQuery.TextSet rs = New ADODB.Recordsetrs.Properties("Command Time Out") = 300'同樣以秒為單位，如果設置為 0 表示無限制rs.Open cmd1, cnrs.MoveFirst. . .
另外,一些硬體及網路方面的原因也可能造成SQL資料庫連接超時.