📄 addinfo.asp
字号:
<% @ language="vbscript" %>
<HTML>
<HEAD>
<TITLE>添加设备资料</TITLE>
</HEAD>
<BODY bgcolor="#aabbaa">
<%
if session("hy_id")="" or session("level")<2 then
response.write "<p>您没有访问本页的权限！</p>"
response.end
end if
equ_id=trim(request.form("txtequ_id"))
equ_name=trim(request.form("txtequ_name"))
equ_data=trim(request.form("txtequ_data"))
equ_factory=trim(request.form("txtequ_factory"))
equ_value=trim(request.form("txtequ_value"))
equ_department=trim(request.form("txtequ_department"))
equ_old=trim(request.form("txtequ_old"))
equ_tel=trim(request.form("txtequ_tel"))
equ_remark=trim(request.form("txtremark"))
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
ssql="select * from shebei where equ_id='"&equ_id&"'"
set rst=cnn.execute(ssql, ,adcmdtext)
%>
<font color="red" face="幼圆">
<p><a href="vod1.asp">返回首页</a>|
<a href="editinfo.asp">修改资料</a>|
<a href="deleteinfo.asp">删除资料</a>|
<a href="browseinfo.asp">查询资料</a>|
</p></font>
<hr width="100%" noshade size="1" color="red">
<table><tr><td> </td></tr></table>
<div align="center">
<table bgcolor="#bbdddd" width="80%" border="1" cellspaceing="6" cellpadding="6">
<form name="form1" method="post" action="addinfo.asp">
<tr align="center">
<th colspan="6" becolor="yellow">
<font size="4" face="楷体" color="#000000">请输入要添加的设备资料</font></th>
</tr>
<tr>
<td align="right">设备编号：</td>
<td> <input type="text" name="txtequ_id" size="20"</td>
<td align="right">设备名称：</td>
<td> <input type="text" name="txtequ_name" size="20"</td>
</tr>
<tr>
<td align="right">购买日期：</td>
<td> <input type="text" name="txtequ_data" size="20"</td>
<td align="right">生产厂家：</td>
<td> <input type="text" name="txtequ_factory" size="20"</td>
</tr>
<tr>
<td align="right">设备价格：</td>
<td> <input type="text" name="txtequ_value" size="20"</td>
<td align="right">所属部门：</td>
<td> <input type="text" name="txtequ_department" size="20"</td>
</tr>
<tr>
<td align="right">磨损程度：</td>
<td> <input type="text" name="txtequ_old" size="20"</td>
<td align="right">维修电话：</td>
<td> <input type="text" name="txtequ_tel" size="20"</td>
</tr>
<tr>
<td align="right">备注说明：</td>
<td colspan="5"><textarea rows="3" name="txtremark"
cols="74"></textarea></td>
</tr>
<tr align="center">
<td colspan="6"><input type="submit" value="保存数据" name="btnsave">
<input type="reset" value="全部重写" name="btnreset"></td>
</tr>
</form>
</table>
<table><tr><td> </td></tr></table>
<%
'若未找到符合条件的记录
if equ_id<>"" and rst.eof then%>
<align="center">
<%'更新数据
ssql="insert shebei(equ_id, equ_name, equ_data, equ_factory,equ_value,equ_department, equ_old, equ_tel, equ_remark)VALUES"
ssql=ssql & "('"&equ_id&"','"&equ_name&"','"&equ_data&"','"&equ_factory&"','"&equ_value&"','"&equ_department&"','"&equ_old&"','"&equ_tel&"','"&equ_remark&"')"
cnn.execute ssql , , adcmdtext
response.write"<font color=red>编号为："&equ_id&" 的设备资料已经添加完毕！</font>"
end if
if equ_id<>"" and not rst.eof then
response.write"<font color=red>编号为："&equ_id&" 的设备资料已经存在！</font>"
end if
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -