📄 search.asp

📁 dreamwaver+asp用于SQLSERVER用户注册登陆和修改密码的动态网页源码
💻 ASP
字号:
<!--#include file="connection.asp" -->
<html>
<%  
   cond1=Request("D1")
   cond2=Request("T1")  
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<meta name="Microsoft Theme" content="none">
</head>

<body background=images/cyprbk.jpg>

<form method="POST" action="search.asp">
  <p><font size="5"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></font>　</p>
  <p><font size="5"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;    
  请选择查询方式：<select size="1" name="D1">
    <option <% =condation(cond1,"用户名") %>>用户名</option>
    <option <% =condation(cond1,"呢称") %> >呢称</option>
    <option <% =condation(cond1,"性别") %>>性别</option>
  </select></b></font></p>
  <p><font size="5"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  请输入查询条件：<input type="text" name="T1" size="20" value="<%=cond2%>"></b></font></p>
  <p align="center"><font size="5"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  
  </b></font><input type="submit" value="查询" name="B1"><img border="0" src="images/klryanim.gif" width="748" height="36"></p>
  <p>　</p>
</form>
<p align="center">　</p>
<p align="center">　
<%
 if(Request("B1")="查询")  then
    mode=Request("D1")
    cond=Request("T1")
    if(cond ="") then
       Response.Write "请输入您的查询条件！"
    else
      if(mode="用户名") then
        sql="select account as 用户名, name as 呢称, sex as 性别 from username where account=" & SqlStr(cond) 
      elseif(mode="呢称") then
          sql="select account as 用户名, name as 呢称, sex as 性别 from username where name=" & SqlStr(cond)
      else 
          sql="select account as 用户名, name as 呢称, sex as 性别 from username where sex=" & SqlStr(cond)
      End if
      set rs=conn.Execute(sql)
      RsToTable (rs) 
      rs.close
    End if
 End if
%>

<%
Sub RsToTable( rs )
  ' 表头部分
  Response.Write "<CENTER><TABLE BORDER=2 width=300 height=100>"
  Response.Write "<TR BGCOLOR=#00FFFF>"
  For i=0 to rs.Fields.Count-1
     Response.WRITE "<TH>" & rs.Fields(i).Name & "</TH>"
  Next
  Response.Write "</TR>"

  ' 表体部分
  While Not rs.EOF 
     Response.Write "<TR>"
     For i=0 to rs.Fields.Count-1
        Response.WRITE "<TD><font color=blue  size=5 >" & rs.Fields(i).Value & "</font></TD>"
     Next
     Response.Write "</TR>"
     rs.MoveNext
   Wend
   Response.Write "</TABLE></CENTER>"
End Sub
%>

</p>

</body>
<% conn.close %>
</html>
<% 
  function condation( str1,str2)
    if(str1=str2) then
      condation="selected"
    end if
  end function
%>
⌨️ 快捷键说明

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