do_modify.asp

来自「asp开发 asp开发 asp开发 asp开发」· ASP 代码 · 共 30 行

ASP
30
字号
<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 + =
减小字号Ctrl + -
显示快捷键?