📄 finduser2.asp

📁 网上新闻调查发布系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../m.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/myzb.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_myzb_STRING
Recordset1.Source = "SELECT * FROM usero where dengluming like '%"&request("b7")&"%'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<HTML>
<HEAD>
<TITLE>未标题-1</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	background-image: url(../images/bg.gif);
}
.style1 {
	font-size: 12px;
	color: #000000;
}
body,td,th {
	font-size: 12px;
}
-->
</style></HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (未标题-1) -->
<TABLE WIDTH=531 height="281" BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR align="center" valign="middle">
		<TD height="13" COLSPAN=3><span class="style1">.......................................................................................</span></TD>
  </TR>
	<TR>
	  <TD width="212" height="132" align="center" valign="top"><img src="../images/finduser.gif" width="200" height="130"></TD>
	  <TD width="319" colspan="2" align="center" valign="top"><form action="finduser.asp?dlm=" method="post" name="form1">
        <p>&nbsp;</p>
        <p>支持模糊查询</p>
        <p>登陆名
            <input name="dlm" type="text" id="dlm">
            <input type="submit" name="Submit" value="查找">
        </p>
      </form></TD>
  </TR>
	<TR>
	  <TD colspan="3" align="center" valign="top"><% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
        <table width="508" border="0">
          <tr>
            <td scope="col"><%=(Recordset1.Fields.Item("dengluming").Value)%> </td>
          </tr>
              </table>
        
        <% If Recordset1.EOF And Recordset1.BOF Then %>
没有找到您的资料
<% End If ' end Recordset1.EOF And Recordset1.BOF %>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</TD>
  </TR>
</TABLE>
</BODY>
</HTML>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -