📄 editinfo2.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
newequ_id=trim(request.form("txtequ_id"))
oldequ_id=trim(request.form("txtoldequ_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"))
if newequ_id="" or equ_name="" then
response.redirect"editinfo.asp"
end if
%>
<font color="red" face="幼圆">
<p><a href="vod1.asp">返回首页</a>|
<a href="editinfo.asp">修改资料</a>|
<a href="addinfo.asp">添加资料</a>|
<a href="deleteinfo.asp">删除资料</a>|
<a href="browseinfo.asp">查询资料</a>|
<table><tr><td> </td></tr></table>
<hr width="100%" noshade size="1" color="red">
<table><tr><td> </td></tr></table>
<%
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='"&oldequ_id&"'"
set rst=cnn.execute(ssql, ,adcmdtext)
if newequ_id<>"" and not rst.eof then
'更新数据
ssql="update shebei set equ_id='"&newequ_id&_
"',equ_name='"&equ_name&"',equ_data='"&equ_data&"',equ_value='"&equ_value&_
"',equ_factory='"&equ_factory&"',equ_department='"&equ_department&_
"',equ_old='"&equ_old&"',equ_tel='"&equ_tel&"',equ_remark='"&equ_remark&_
"' where equ_id='"&oldequ_id&"'"
cnn.execute ssql , , adcmdtext
response.write"<font color=red> "&_
" "&_
" "&_
"设备资料已经更改完毕！</font>"
end if
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -