📄 mod_net.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="checkadmin.asp" -->
<!--#include file="open.asp" -->
<% id=Request("id")
if id="" then
Response.end
end if
if Request("com_name")<>"" then
SQL="Select * from sale_net where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,3,3
for each name1 in Request.Form
if name1<>"Submit" and name1<>"id" then
rs(name1)=request.Form(name1)
end if
next
rs.update
Set rs=nothing
Response.Write("<script>alert('记录修改成功')</script>")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.text {
font-size: 12px;
line-height: 22px;
color: #333333;
text-decoration: none;
cursor: help;
}
A.a01 {
font-size: 12px; color: #333333;text-decoration: none;}
A.a01:hover { font-size: 12px;
color: #CC9900;
text-decoration: underline;}
A {
font-size: 12px;
line-height: 22px;
color: #333333;
text-decoration: none;
}
A:hover {
font-size: 12px;
line-height: 22px;
color: #FF6600;
text-decoration: underline;
}
.form {
font-size: 12px;
color: #333333;
text-decoration: none;
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
border-top-color: #666666;
border-right-color: #efefef;
border-bottom-color: #efefef;
border-left-color: #666666;
}
.button {
font-size: 12px;
color: #FFFFFF;
text-decoration: none;
background-color: #FF9933;
border: 1px solid #c6c6c6;
}
.form2 {
font-size: 12px;
color: #333333;
text-decoration: none;
background-color: #f7f7f7;
border-top: 1px solid #CCCCCC;
border-right: 1px solid #666666;
border-bottom: 1px solid #666666;
border-left: 1px solid #CCCCCC;
}
.text2 {
font-size: 12px;
color: #4D5743;
text-decoration: none;
line-height: 22px;
}
-->
</style>
<link href="image/myweb.css" rel="stylesheet" type="text/css">
</head>
<body style="margin:0">
<form action="mod_net.asp" method="post" name="form1" target="_blank" id="form1" >
<%
SQL="Select * from sale_net where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,1,1
%>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="ececec" class="text">
<tr bgcolor="f7f7f7">
<td height="24" colspan="2" align="center">修改销售网络</td>
</tr>
<tr bgcolor="f7f7f7">
<td width="29%" height="24" align="right">公司名称:</td>
<td width="71%" height="24">
<input name="com_name" type="text" id="com_name" value="<%=rs("com_name")%>" size="45"></td>
</tr>
<tr bgcolor="f7f7f7">
<td align="right">地址:</td>
<td>
<input name="addr" type="text" id="addr" value="<%=rs("addr")%>" size="45"></td>
</tr>
<tr bgcolor="f7f7f7">
<td align="right">电话:</td>
<td>
<input name="tel" type="text" id="tel" value="<%=rs("tel")%>"></td>
</tr>
<tr bgcolor="f7f7f7">
<td align="right">传真:</td>
<td>
<input name="fax" type="text" id="fax" value="<%=rs("fax")%>">
<input name="id" type="hidden" id="id" value="<%=id%>"></td>
</tr>
<tr bgcolor="f7f7f7">
<td align="right"> </td>
<td height="40">
<input name="Submit" type="submit" value="提交">
<input name="Submit2" type="reset" value="重置"></td>
</tr>
</table>
<%
rs.Close
set rs=nothing
%>
</form>
</body>
</html><!--#include file="close.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -