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

📄 modify.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
字号:
<script>
// 
// 	        	力天2002网络办公系统
//          Copyright (c) 深圳市力天软件开发有限公司
//                   http://www.ebexpert.net
//
//  文件名       : modify.asp
//  描述         : 单位换算数据修改
//  版本         : 
//  作者         : zyh
//  备注         :
</script>

<!--#include file="const.inc"-->

<%
  unitbewrite=trim(request("unitbewrite"))
  if  unitbewrite<>""   then
  unittype=trim(request("unittype"))
  id=request("id")  
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1    
 
  conn.Execute "update pubunit set unitbewrite='" & unitbewrite & "',unittype='" & unittype & "' where id=" & id
  set conn=nothing
%>
<script language="javascript">
	window.close();	
	window.opener.parent.frames("main").document.location ="index.asp?channelid=<%=request("channelid")%>";
</script>

<% else %>

<html>
<head>
<title>修改单位换算</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
</head>

<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1    
 
   set rs=server.CreateObject("adodb.recordset") 
   rs.Open "select * from pubunit where id=" & request("id"),conn,3,1
%>

<body bgcolor="#efefef" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/modify_on.gif')">
<form  name="form"  action=""  method="post">
<table width="100%" border="0" cellspacing="1" cellpadding="2">
  <tr bgcolor="#4E5960"> 
    <td class="heading"> <font color="#FFFFFF"> <b>单位换算</b></font></td>
  </tr>
</table>
  <table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolordark="#FFFFFF" bordercolor="#000000">
    <tr> 
      <td width="12%" bgcolor="bfbfbf" valign="top">换算描述</td>
      <td width="88%"> 
        <input size=40 maxlength=200 name="unitbewrite" value="<%=trim(rs("unitbewrite"))%>">
        <input type=hidden value="<%=rs("id")%>" name="id">        
      </td>
    </tr>
    <tr> 
      <td width="12%" bgcolor="bfbfbf" valign="top">分类:</td>
      <td width="88%"> 
        <select name="unittype">
					<option value="<%=trim(rs("unittype"))%>"><%=trim(rs("unittype"))%></option>
					<option value="长度" >长度</option>
					<option value="重量" >重量</option>
					<option value="体积" >体积</option>
					<option value="其他" >其他</option>
				</select>
      </td>
    </tr>
  </table>
<div align="center">
<br>
    <a href="javascript:document.form.submit();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/modify_on.gif',1)"><img name="Image1" border="0" src="images/modify_off.gif" width="60" height="19" hspace="5"></a><a href="javascript:document.form.reset();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/reset_on.gif',1)"><img name="Image2" border="0" src="images/reset_off.gif" width="60" height="19" hspace="5"></a><a href="Javascript:window.close();" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','images/closelittle_2.gif',1)"><img name="Image3" border="0" src="images/closelittle_1.gif" width="60" height="19" hspace="5"></a><br>  
</div></form> 
</body> 
</html> 
<% end  if %>

⌨️ 快捷键说明

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