📄 mh.asp
字号:
<HTML> <BODY>
<%
If Request("keywords") <>"" Then
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
Key = Request("keywords")
SQL = "SELECT * FROM grade WHERE 姓名 LIKE '%" & Key & "%'"
Response.Write(SQL)
set rs = conn.Execute(SQL)
rstotab(rs)
conn.close()
End If
%>
<%
Function rstotab(rs)
Response.write ("<TABLE BORDER=1>")
Response.write ("<TR>")
' Part I⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -