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

📄 editinfo1.asp

📁 这是我做的毕业设计,企业管理系统.ASP连接SQL数据库,基本功能已经实现
💻 ASP
字号:
<html>
<TITLE>修改设备资料</TITLE>
</HEAD>
<BODY bgcolor="#aabbaa">
<% 
if session("hy_id")=""  then
response.redirect "1.htm"
end if
%>
<font color="red" face="幼圆">
<p><a href="vod1.asp">返回首页</a>|
<% if session("level")>1 then%>
   <a href="editinfo.asp">修改资料</a>|
   <a href="addinfo.asp">添加资料</a>|
   <a href="deleteinfo.asp">删除资料</a>|
   <a href="browseinfo.asp">查询资料</a>|
<% end if %></p>
<hr width="100%" noshade size="1" color="red">
</font>
<table><tr><td>&nbsp;</td></tr></table>
<div align="center">
<%
dim cnn,rst,ssql,equ_id
equ_id=trim(request.form("equ_id"))
set cnn=server.createobject("adodb.connection")
set rst= server.createobject("adodb.recordset")
cnn.connectionstring="provider=sqloledb;data source=(local);"&_
"uid=sa;pwd=0335;database=vod"
cnn.open
equ_id=request.querystring("equ_id")
ssql=" select * from shebei where equ_id='"&equ_id&"'"
set rst=cnn.execute(ssql, , adcmdtext)
if not rst.eof then 
%>
<tr align="center">
<font color="#000011" size="4" face="幼圆">编号为:<%=equ_id %>&nbsp;的设备详细资料如下表,请您修改
</tr></font>
<table><tr><td>&nbsp;</td></tr></table>
<div align="center">
 <table bgcolor="#bbdddd" width="80%" border="1" cellspaceing="6" cellpadding="6">
<form name="form1" method="post" action="editinfo2.asp">
<td align="right">设备编号:</td>
<td><input type="text" name="txtequ_id" size="20" value=<% =rst("equ_id")%>>
<input type="hidden" name="txtoldequ_id" size="20" value=<% =rst("equ_id")%>>
</td> 
<td align="right">设备名称:</td>
<td> <input type="text" name="txtequ_name" size="20" value=<% =rst("equ_name")%>></td>
</tr>
<tr>
<td align="right">购买日期:</td>
<td> <input type="text" name="txtequ_data" size="20" value=<% =rst("equ_data")%>></td>
<td align="right">生产厂家:</td>
<td> <input type="text" name="txtequ_factory" size="20" value=<% =rst("equ_factory")%>></td>
</tr>
<tr>
<td align="right">设备价格:</td>
<td> <input type="text" name="txtequ_value" size="20" value=<% =rst("equ_value")%>></td>
<td align="right">所属部门:</td>
<td> <input type="text" name="txtequ_department" size="20" value=<% =rst("equ_department")%>></td>
</tr>
<tr>
<td align="right">磨损程度:</td>
<td> <input type="text" name="txtequ_old" size="20" value=<% =rst("equ_old")%>></td>
<td align="right">维修电话:</td>
<td> <input type="text" name="txtequ_tel" size="20" value=<% =rst("equ_tel")%>></td>
</tr>
<tr>
<td align="right">备注说明:</td>
<td colspan="5"><textarea rows="3" name="txtremark"
cols="74"><% =rst("equ_remark")%></textarea></td>
</tr>
<tr align="center">
<td colspan="6"><input type="submit" value="保存数据" name="btnsave">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="reset" value="全部重写" name="btnreset"></td>
</tr>
</font>
</form>
</table>
<table>
<tr>
<td>&nbsp;</td><td>&nbsp;</td>
</tr>
</table>
<% end if %>
</div>
</body>
</html>

⌨️ 快捷键说明

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