📄 cx.asp

📁 这是一个网络信息查询系统,能实现添加,查询(精确查询、模糊查询）
💻 ASP
字号:
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body background="hd.jpg">
<form method="POST" action="cx.asp">
  <p>&nbsp;选择查询条件<select size="1" name="tj" style="font-size: 10pt">
    <option value="bh">编号</option>
    <option value="NAME">姓名</option>
    <option value="DANWEI">单位</option>
    <option value="BIR">生日</option>
    <option value="HOME">籍贯</option>   
    <option value="EMAIL">email</option>
  </select>值</font><input type="text" name="va" size="18"></p>
  <p><input type="radio" value="V1" checked name="MODEL"><font size=3>&nbsp;模糊查询（用*代替字串）</font></p>             <p><input type="radio" name="MODEL" value="V2"><font size=3>&nbsp;精确匹配</font></p>                 
  <p> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  <input type="submit" value="确认" name="B1" style="font-size: 12pt">       &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                                <input type="reset" value="取消" name="B2" style="font-size: 12pt"></p>                                                         
</form>                                                       
                                                   
<%                                                         
  tj=Request.form("tj")                                                        
  va=Request.form("va")                                                        
  if tj<>""and va<>""  then                                                                                                                 
     if request.form("model")="V1" then                                                        
        val= replace(va,"*","%")                                                                    
        if val=va then                                                        
          va=va&"%"                                                        
        else                                                         
          va=val                                                        
        end if                                                                                                                                                       
        sql="select * from xinxi where   "&tj&"  like  "&"'"&va&"'"                                                  
     else                                                                                                                
        sql="select * from xinxi where   "&tj&"    =   "&"'"&va&"'"                                                                                                                  
     end if                                                        
 response.write(va&"<br>")                                                                                                
 response.write(sql)                                               
  dim conn, sql,DBPath
  DBPath = Server.MapPath("db1.mdb")
  Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
  Set conn = Server.CreateObject("ADODB.Connection")
  Conn.open Connstr                              
  set  rs=conn.execute(sql)   %>                                                                                                            
 <% on error Resume next                                                        
    rs.movefirst                                                                                                            
    do while Not  rs.eof    %>                                                                                                               
<div align="left">                            
  <table cellspacing=0 border="1" width="80%">                            
    <tr>                            
      <td width="25%"><font size=2>编号：<%=rs.fields("bh")%></font></td>                            
      <td width="25%"><font size=2>姓名：<%=rs.fields("name")%></font></td>                            
    </tr>                            
    <tr>                            
     <td width="25%"><font size=2>性别：<%=rs.fields("sex")%></font></td>                            
     <td width="25%"><font size=2>单位：<%=rs.fields("danwei")%></font></td>                            
   </tr>                            
    <tr>                            
     <td width="25%"><font size=2>生日：<%=rs.fields("bir")%></font></td>                            
      <td width="25%"><font size=2>籍贯：<%=rs.fields("home")%></font></td>                            
    </tr>                            
    <tr>                            
      <td width="25%"><font size=2>email：<%=rs.fields("email")%></font></td>                            
      <td width="25%"><font size=2>备注：<%=rs.fields("beizhu")%></font></td>                            
    </tr>                                                          
  </table>  </div>                                                                     
    <% rs.movenext                                                       
       loop                                                       
       response.end                                                       
       conn.close                                                       
       rs.close                                                       
       end if   %>                                                                                                                                            
 </body>                                                                                                               
</html>
⌨️ 快捷键说明

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