📄 search.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<%
dim conn1,rs1
set conn1= Server.CreateObject("adodb.connection")
conn1.connectionstring="provider=sqloledb;server=(local);database=xscj;uid=sa;pwd=;"
conn1.open
set rs1=Server.CreateObject("adodb.recordset")
rs1.cursortype=adOpenStatic
rs1.locktype=adLockReadOnly
rs1.open "select distinct zy from xs ",conn1
%>
</head>
<body>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#FFFFCC"><form id="form1" name="form1" method="post" action="search.asp">
<label>学号
<input name="sno" type="text" id="sno" />
</label>
<label>专业
<select name="major" size="1" id="major">
<option value="">--请选择专业--</option>
<% while not rs1.eof %>
<option value= <%=rs1("zy") %>><%= rs1("zy") %></option>
<%
rs1.movenext
wend %>
</select>
</label>
<label>
<input type="submit" name="Submit" value="查找" />
</label>
</form> </td>
</tr>
</table>
<p>
<!--#include file="myweb.asp" -->
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -