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

📄 incinfor_insert.asp

📁 学生日常管理系统
💻 ASP
字号:
<!--DOCTYPE HTML PUBLIC "-//IETF//DTD HTML4.0 //EN"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>就业单位信息浏览</title>
<style>
<!--
.105V         {font-size: 10.5pt; font-family: 宋体;}
TD          {font-size: 9pt; font-family: 宋体;}
.90V         {font-size: 9pt; font-family: 宋体;}
.90VE         {font-size: 9pt; font-family: arial;}
a{color:#0000ff;text-decoration:none}
a:hover{color:red;text-decoration:underline}
-->
</style>
</head>

<body background="../images/di2001.jpg">
<object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="9"
height="6">
</object>
<p>  </p>
<p>  </p>
<p>  </p>
<div align="center"><center>
<table bgColor="#cbe4e4" border="1" borderColor="#cbe4e4" borderColorDark="#ffffff"
cellpadding="0" cellSpacing="0" width="89%">
  <caption align="left"><font color="#ff0000" size="5"><b>就业单位添加</b></font></caption>
  <tr>
    <td  height="20"><table width="100%">
<TBODY>
      <tr>
        <td width="80%"><a href="index.htm">返 回</a></td>
        <td width="20%" align="right"></td>
      </tr>
</TBODY>
    </table>
	    </td>
  </tr>
  <tr>
    <td bgColor="#ebf5f5" width="100%"><table width="100%" border="0" align="left">
	<tr>
	  <td width="50%" ><font color="#0000FF"><b>就业单位添加:</b></font><input type="text" name="inc_name"
    size="30" style="font-family: 宋体; font-size: 15"></td>
    </tr>
    <tr>
	  <td width="50%"><font color="#0000FF"><b>文&nbsp;&nbsp;&nbsp;件&nbsp;&nbsp;名:</b></font><input type="file" name="filepath"
    size="30"></td>
    </tr>
 <TBODY>

 	<tr>
 	<td width="50%"  height="20"></tr>
 	<tr>
	  <td width="50%"><input type="submit"
    value="添加" name="INSERT_CLICK" ONCLICK="INSERTCLICK()" style="font-family: 宋体; font-size: 15"><input type="submit"
    value="删除" name="delete_CLICK" ONCLICK="deleteCLICK()" style="font-family: 宋体; font-size: 15"><input
    type="reset" value="重置" name="REFRESH_CLICK" ONCLICK="REFRESHCLICK()"
    style="font-family: 宋体; font-size: 15"></td>
	
    </tr>
 
 </TBODY>      
    </table>

</td>
  </tr>
  <tr>
    <td><table width="100%">
<TBODY>
      <tr>
        <td width="68%" height="20"></td>
        <td align="right" width="32%" height="20"></td>
      </tr>
</TBODY>
    </table>
    </td>
  </tr>
</TBODY>
</table>
</center></div>


<!--<div align="center"><center>
<table border="0" width="100%">
  <caption align="left"><font color="#0000ff" size="5"><b>就业单位添加</b></font></caption>
  <tr>
    <td width="100%"><font color="#0000FF"><b>就业单位:</b><input type="text" name="inc_name"
    size="30" style="font-family: 宋体; font-size: 15"> </font></td>
  </tr>
  <tr>
    <td width="100%"><font color="#0000FF"><b>文&nbsp;件&nbsp;名:</b><input type="file" name="filepath"
    size="30"></font></td>
  </tr>
  <tr>
    <td width="100%"><font color="#0000FF"></font></td>
  </tr>
  <tr>
    <td width="100%"><form method="POST" action="--WEBBOT-SELF--">
      <p> </p>
    </form>
    </td>
  </tr>
  <tr>
    <td width="100%"><font color="#0000FF"> 
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="submit"
    value="添加" name="INSERT_CLICK" ONCLICK="INSERTCLICK()" style="font-family: 宋体; font-size: 15"><input type="submit"
    value="删除" name="delete_CLICK" ONCLICK="deleteCLICK()" style="font-family: 宋体; font-size: 15"><input
    type="reset" value="重置" name="REFRESH_CLICK" ONCLICK="REFRESHCLICK()"
    style="font-family: 宋体; font-size: 15"></font></td>
  </tr>
</table></center></div>-->

<SCRIPT LANGUAGE="VBSCRIPT">

  rds1.server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  rds1.connect ="database=school;uid=sa;pwd=;dsn=school"
  
  SUB INSERTCLICK()
  
    rds1.SQL="INSERT INTO INCINFOR(DWMC,PATHNAME) VALUES('"&inc_name.value&"','"&filepath.value&"')" 
    rds1.ExecuteOptions = 1
    rds1.Refresh 
    
    inc_name.value = ""
    filepath.value = ""
    
    
  END SUB
  
  
  sub deleteclick()
  
    rds1.SQL=" delete from incinfor where dwmc ='"&inc_name.value&"'" 
    rds1.ExecuteOptions = 1
    rds1.Refresh 
    
    inc_name.value = ""
    filepath.value = ""
  
  
  end sub
  
 
  SUB REFRESHCLICK()
   
   
    inc_name.value = ""
    filepath.value = ""
  
  END SUB
  

</SCRIPT>
</body>
</html>

⌨️ 快捷键说明

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