📄 changecc.asp

📁 企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>员工工信息修改确认</title>
</head>
<style type="text/css">
<!--
div {
	margin-top: 140px;
	font-family: Arial, Helvetica, sans-serif;	
	font-size: 26px;
	text-align: center;
}
-->
</style>

<body bgcolor="#D2D2CA">
<%
op=request.QueryString("op")
id=request.form("id")
lname=request.form("lname")
part=request.form("part")
position=request.form("position")
data=request.form("data")
pc=request.form("pc")
hometel=request.form("hometel")
tel=request.form("tel")
address=request.form("address")
start=request.form("start")
history=request.form("history")
part = request.form("part")
'pic=request.form("pic")

%>
<!--#include file ="Connections/auto.asp"-->
<%
set RS = server.CreateObject("ADODB.Recordset")
Sname="select * from Login where Login.ID='"&id&"'"
S1="select ID,Part from Login where Login.ID='"&op&"'"
S2="select * from Message where Message.ID='"&op&"'"
RS.open Sname , CN

if  RS.eof or strcomp(op,id)=0 then
set RS = server.CreateObject("ADODB.Recordset")
set RS1 = server.CreateObject("ADODB.Recordset")
RS.open S1 , CN ,1,3
RS1.open S2 , CN ,1,3
RS("ID")=id
RS("Part")=part
RS1("ID")=id
RS1("Name")=lname
RS1("Position")=position
RS1("Data")=data
RS1("Address")=address
RS1("Tel")=tel
RS1("Hometel")=hometel
RS1("PC")=pc
RS1("Start")=start
RS1("History")=history
'RS("Pic")=pic
RS.update
RS1.update
RS.close
RS1.close
set RS = nothing
set RS1 = nothing
CN.close
set CN = nothing
response.write("<div>修改成功</div>")
else 
  RS.close
  CN.close
  response.write("<div>修改失败<br>ID已存在！</div>")
end if



%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -