📄 search.asp

📁 JSP页面和oracle9i数据库的源代码

💻 ASP

字号:

<%Response.Buffer=True%>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
	<title>查找成员</title>
</head>
<body background="bg.gif">
	<h2 align="center"><font color=black face="隶书" size=30>查找成员</font></h2>
	<p align="center"><font color=yellow  size=5>(请输入要查找用户的用户名或关键字)</font>

	<center>
	<form method="post" action="">
	<table border="0" width="90%" bgcolor="#E6E6E6">
		<tr>
			<td>姓名关键字：</td><td><input type="text" name="name" size="20" >**</td>
			<td><input type="submit" value=" 确 定 "></td>
		</tr>
	<table>
	</form>
	<%
	'如果没有输入姓名关键字就不执行下列语句
	If Trim(Request("name"))<>"" Then
		'建立Recordset对象
		Dim rs,strSql
		Set rs=Server.CreateObject("ADODB.Recordset")
		'以姓名为关键字查找
		strSql="Select * From users Where name Like '%" & Trim(Request("name")) & "%'"
		rs.Open strSql,db,1                            '要应用Count属性，要用键盘指针
		If rs.RecordCount<=0 Then
			Response.Write "对不起，没有找到信息"
		Else
			Response.Write "共找到" & rs.RecordCount & "条记录"
		%>
			<table border="0" width="90%">
			<tr bgcolor="#B7B7B7" align="center">
				<td width=10%>姓名</td>
				<td width=15%>电话</td>
				<td width=25%>email</td>
				<td width=20%>住址</td>
				<td width=10%>年龄</td>
				<td width=20%>简介</td>
			</tr>
			<%
			Do While Not rs.Eof                
				Response.Write "<tr bgcolor='#E6E6E6' align='center'>"
				Response.Write "<td>" & rs("name") & "</td>"
				Response.Write "<td>" & rs("tel") & " </td>"
				Response.Write "<td><a href='mailto:" & rs("email") & "'>" & rs("email") & "</td>"
				Response.Write "<td>" & rs("home") & "</td>"
				Response.Write "<td>" & rs("age") & "</td>"
				Response.Write "<td>" & rs("intro") & "</td>"
				Response.Write "</tr>"
				rs.MoveNext
			Loop
		End If
	End If
	%>
	</center>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -