⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 souc.asp

📁 SQL学习宝典2.0的使用说明: 1.在win95,win98下要安装PWS(win98安装盘里有). 2.把sql2目录设为虚拟目录。 2.在浏览器中运行http://localhost/sq
💻 ASP
字号:
<!-- #include file="conn.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>SQL学习宝1.0</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="style.css" title="style">
</head>
<body marginheight="5" marginwidth="0" topmargin="0" leftmargin="5" rightmargin="0" >

 <%Function CheckChar(FValue)
    CheckChar = Replace(FValue, "'", "' + Chr(39) + '")
End Function

if request("t1")<>"" then
 t1=CheckChar(request("t1"))
 sql="insert into sql(sql) values('"&t1&"')"
 conn.execute(sql)
 end if
 sql="select * from sql order by fl" 
 fl=request("fl")
 if fl=0 then
 sql="select * from sql where fl=0"
 end if
 if fl=1 then
 sql="select * from sql where fl=1"
 end if
 if fl=2 then
 sql="select * from sql where fl=2"
 end if
 
 set rs=conn.execute(sql) 'conn为ADODB组件实例
jl=0%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
       <td width="100%" >
         
         <table border="1" width="100%" bordercolorlight="#808080" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
      
          <tr>
         <td width="100%" colspan="3"  height="19" valign="bottom" bgcolor="#C0C0C0">
            <a href="souc.asp?fl=8">全部</a>:&nbsp;&nbsp; <a href="souc.asp?fl=0">查询</a> 
            <a href="souc.asp?fl=1"> 记录修改</a> <a href="souc.asp?fl=2"> 表修改</a>   
         
     
         </td>             
         </tr> 
         <tr> 
         <td width="10%"> 删除     </td> 
         <td width="70%"> SQL    </td>    
         <td width="20%"> 说明    </td>    
          </tr>     
         <%do while not rs.eof %>    
         <tr>    
         <td width="10%"><a href="edit.asp?mode=2&id=<%=rs("id")%>" onclick="del()"><%=rs("id")%></a></td> 
         <td width="70%"><a href="edit.asp?id=<%=rs("id")%>"><%=rs("sql")%></a></td>    
         <td width="20%">&nbsp;<%=rs("说明")%></td>   
          </tr>    
        <%jl=jl+1
          rs.movenext    
          loop    
          rs.close    
          conn.close%>
          <tr>
         <td width="100%" colspan="3"  height="19" valign="bottom" bgcolor="#C0C0C0">
         &nbsp;记录总数为:<%=jl%>                
         </td>                
         </tr>        
          </table>                          
                                
      </td>                 
    </tr>                 
  </table>   
            <form method="POST" action="souc.asp">
            <input type="text" name="T1" size="50"> <input type="submit" value="收藏" name="B1" class="buttons02">
            </form>  
 <p>         
   <center> <a href="javascript:self.close()">【关闭窗口】</a></center>
 </p>
 <script language="JavaScript">
<!--
function del()
{      if (confirm("真的要删除记录吗?")){
	   return true;		
	}   
	return false;		
}
// -->
</script>
</body>  
</html>                     

⌨️ 快捷键说明

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