📄 update_company_sav.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<%
dim conn
dim connstr
Set conn=Server.CreateObject("ADODB.Recordset")
connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改公司信息</title>
<link href="../../MYDZSW/Css/bd_font_size.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
font-size: 24px;
font-family: "黑体";
}
-->
</style>
</head>
<body>
<%
function IsValidEmail(user_mail)
dim names, name, i, c
'Check for valid syntax in an email address.
IsValidEmail = true
names = Split(user_mail, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
dim rs,sql,cpname,password,linkman,idcard,province,city,address,zipcode,telphone,lmmobilephone,lmemail,fax,userdate,remark
set rs=server.createobject("adodb.recordset")
if trim(request("linkman"))="" then
errmsg=errmsg+"<br>"+"<li>联系人不能为空"
founderr=true
else
linkman=trim(request("linkman"))
end if
if trim(request("province"))="" then
errmsg=errmsg+"<br>"+"<li>所在省份不能为空"
founderr=true
else
province=trim(request("province"))
end if
if trim(request("address"))="" then
errmsg=errmsg+"<br>"+"<li>公司地址不能为空"
founderr=true
else
address=trim(request("address"))
end if
if trim(request("city"))="" then
errmsg=errmsg+"<br>"+"<li>所在城市不能为空"
founderr=true
else
city=trim(request("city"))
end if
if trim(request("telphone"))="" then
errmsg=errmsg+"<br>"+"<li>联系电话不能为空"
founderr=true
else
telphone=trim(request("telphone"))
end if
if trim(request("email"))<>"" then
if isvalidemail(trim(request("email")))=false then
errmsg=errmsg+"<br>"+"<li>您输入的email地址有误"
founderr=true
else
email=trim(request("email"))
end if
end if
idcard=trim(request("idcard"))
zipcode=trim(request("zipcode"))
lmmobilephone=trim(request("lmmobilephone"))
lmemail=trim(request("lmemail"))
fax=trim(request("fax"))
remark=trim(request("Remark"))
%>
<div align="center">
<center>
<table border="0" width="528" height="500" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<%
if founderr=false then
sql="select * from GSCOTT.company_info_table where company_name='"&request("id")&"'"
rs.open sql,connstr,3,3
company=rs("company_name")
rs("company_linkman")=linkman
rs("company_idcard")=idcard
rs("company_province")=province
rs("company_city")=city
rs("company_address")=address
rs("company_zipcode")=zipcode
rs("company_telphone")=telphone
rs("company_lmmobilephone")=lmmobilephone
rs("company_lmemail")=lmemail
rs("company_fax")=fax
rs("company_remark")=remark
ctime=rs("company_date")
rs.update
rs.close
set rs=nothing
%>
<tr valign="middle"><td height="77" colspan="2" align="center"><span class="style2"><%=company%><strong>公司信息修改成功</strong></span></td>
<tr>
<td width="218" height="27" align="right" valign="middle" class="bd_font_size">公司名称：</td>
<td width="310" align="center" valign="middle"><%=company%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right"> 联系人：</div></td>
<td align="center" valign="middle"><%=linkman%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">执照号：</div></td>
<td align="center" valign="middle"><%=IDcard%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right"> 所在省份：</div></td>
<td align="center" valign="middle"><%=province%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right"> 所在城市：</div></td>
<td align="center" valign="middle"><%=city%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right"> 公司地址：</div></td>
<td align="center" valign="middle"><%=address%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">邮编： </div></td>
<td align="center" valign="middle"><%=zipcode%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">联系电话：</div></td>
<td align="center" valign="middle"><%=telphone%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">联系人手机：</div></td>
<td align="center" valign="middle"><%=lmmobilephone%></td>
<tr>
<td height="27" valign="middle" class="bd_font_size"> <div align="right">联系人Email：</div></td>
<td align="center" valign="middle"> <%=lmemail%>
<tr>
<td height="27" valign="middle" class="bd_font_size"> <div align="right">传真：</div></td>
<td align="center" valign="middle"> <%=fax%>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">注册时间：</div></td>
<td align="center" valign="middle"> <%=ctime%>
<tr>
<td height="27" valign="middle" class="bd_font_size"><div align="right">备注：</div></td>
<td align="center" valign="middle"> <%=remark%>
<tr align="center" valign="middle" class="bd_font_size">
<td height="27" colspan="2"> <a href="update_company.asp">修改删除公司信息</a> <a href="../outlook_model/all_company.asp">浏览全部公司信息</a> <a href="../index.asp">返回主页</a></td>
<tr>
<td height="27" align="center" valign="middle" class="bd_font_size">输入的公司信息有问题</td>
<td align="center" valign="middle"><%=errmsg%></td>
<tr valign="middle" class="bd_font_size">
<td height="27" colspan="2" align="center"><a href="javascript:history.go(-1)"><font size="-1">三秒钟后自动返回到上一页，如果您的浏览器没有返回，请单击此处</font></a></td>
<tr>
<td height="83"> </td>
<td></td>
<%else%>
<meta http-equiv="refresh" content="3;url=javascript:history.go(-1)">
<%end if%>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -