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数据库连接超时.