?? changepersoninfo.asp
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
<style type="text/css">
<!--
body,td,th {
font-size: 14px;
color: #003399;
}
-->
</style>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../db/info.mdb")
turnnew=Request("turnnew")
If turnnew="" then
sql="select * from studentdetail where snick='" & session("student") & "'"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,1
%>
<form method="post" action="">
<table width="40%" border="0" align="center">
<tr>
<td width="32%">姓名：</td>
<td width="68%"><input type="text" name="sname" size="20" value=<%=rs("sname")%>></td>
</tr>
<tr>
<td>性別：</td>
<td><input type="text" name="sex" size="20" value=<%=rs("sex")%>></td>
</tr>
<tr>
<td>年齡：</td>
<td><input type="text" name="age" size="20" value=<%=rs("age")%>></td>
</tr>
<tr>
<td>學習程度：</td>
<td><input type="text" name="grade" size="20" value=<%=rs("grade")%>></td>
</tr>
<tr>
<td>郵箱：</td>
<td><input type="text" name="email" size="20" value=<%=rs("email")%>></td>
</tr>
<tr>
<td>電話：</td>
<td><input type="text" name="tele" size="20" value=<%=rs("tele")%>></td>
</tr>
<tr>
<td>住址：</td>
<td><input type="text" name="address" size="20" value=<%=rs("address")%>></td>
</tr>
<tr>
<td>輔導科目一：</td>
<td><input type="text" name="tutorship1" size="20" value=<%=rs("tutorship1")%>></td>
</tr>
<tr>
<td>輔導科目二：</td>
<td><input type="text" name="tutorship2" size="20" value=<%=rs("tutorship2")%>></td>
</tr>
<tr>
<td>尋找家教情況：</td>
<td><input type="text" name="searchstate" size="20" value=<%=rs("state")%>></td>
</tr>
<tr>
<td>備注：</td>
<td><textarea rows="3" cols="20" name="demo"><%=rs("demo")%></textarea></td>
</tr>
<tr>
<td><input type="submit" value="修改" name="turnnew"></td>
<td><input type="reset" value="重置"></td>
</tr>
</table>
</form>
<%
End If
if turnnew<>"" then
sname=Request.form("sname")
sex=Request.form("sex")
age=Request.form("age")
grade=Request.form("grade")
email=Request.form("email")
tele=Request.form("tele")
address=Request.form("address")
tutorship1=Request.form("tutorship1")
tutorship2=Request.form("tutorship2")
searchstate=Request.form("state")
demo=Request.form("demo")
sql="update studentdetail set sname='" & sname & "',sex='" &_
sex & "',age=" & age & ",grade='" & grade &_
"' ,email='" & email & "',tele='" & tele &_
"' ,address='" & address & "',tutorship1='" & tutorship1 &_
"',tutorship2='" & tutorship2 &_
" ',state='" & searchstate & " ',demo='" & demo &_
" ' where snick='" & session("student") &"'"
conn.Execute(sql)
Response.Write("修改成功")
End If
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -