📄 do_modify.asp
字号:
<HTML> <BODY>
<%
str = Request("xuehao")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
sql = "SELECT * FROM grade WHERE 学号 = " & str
cmd.CommandText = sql
set rs = cmd.Execute()
%>
<%=rs("姓名")%>的成绩为:<br>
<FORM ACTION="do_mdysmt.asp" METHOD="post">
<%
'输出表内容
If not rs.EOF Then
%>
<INPUT TYPE="HIDDEN" NAME="xuehao" VALUE="<%=rs("学号")%>"><BR>
语文:<INPUT TYPE="TEXT" NAME="yuwen" value="<%=rs("语文")%>"><BR>
数学:<INPUT TYPE="TEXT" NAME="shuxue" value="<%=rs("数学")%>"><BR>
英语:<INPUT TYPE="TEXT" NAME="yingyu" value="<%=rs("英语")%>"><BR>
<INPUT TYPE="SUBMIT" VALUE="修改">
<%
End If
%>
</FORM> </BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -