📄 website_corp.asp

📁 ASP网页
💻 ASP
字号:

<%@ Language=VBScript %>
<%
Response.Buffer=false
Response.Expires=0
if Session("userqx")="1" or Session("userqx")="9" then
else
	Response.Redirect "../warn.asp"
end if
%>
<!-- #include file="../dsn.asp" -->
<%
htmlname="website_corp.asp"
'ackhtml="product_class.asp?classcode="+classcode+"&pageno="+pageno
tablename="syswork"
enflag="1"
%>
<html>
<head>
<title>增加修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}

.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 
.t3 {font:12px 宋体;color:336699} 
.t4 {font:12px 宋体;color:ff0000} 
.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 
.bt3 {font:14px 宋体;color:336699} 
.bt4 {font:bold 16px 宋体;color:maroon} 

.td1 {font-size:12px;line-height:20px;text-align:right;background-color:#ffffff;color:#000000;}
.td2 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:20px;text-align:left;background-color:#ffffff;color:#000000;}

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}

A.title1:link {text-decoration:none;color:#000000;}
A.title1:visited {text-decoration:none;color:#000000;}
A.title1:active {text-decoration:none;color:#ff0000;}
A.title1:hover {font-size:13px;text-decoration:none;color:#ff0000;}
-->
</style>

</head>
<body bgcolor=#ffffff topmargin=10>
<form action="<%=htmlname%>" method=post name=form1 onsubmit="return checkform(form1)" autocomplete="off">
<%
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
	corpname=trim(Request.Form("corpname"))
	linkman=trim(Request.Form("linkman"))
	address=trim(Request.Form("address"))	
	corpname2=trim(Request.Form("corpname2"))
	linkman2=trim(Request.Form("linkman2"))
	address2=trim(Request.Form("address2"))	
	phone=trim(Request.Form("phone"))	
	fax=trim(Request.Form("fax"))	
	email=trim(Request.Form("email"))	
	zip=trim(Request.Form("zip"))	
	
	sqltext="select * from "+tablename+" where code='101'"
	rs.Open sqltext,cn,3,3	
	rs("corpname")=corpname
	rs("linkman")=linkman
	rs("address")=address
	rs("corpname2")=corpname2
	rs("linkman2")=linkman2
	rs("address2")=address2
	rs("phone")=phone
	rs("fax")=fax
	rs("email")=email
	rs("zip")=zip
	'rs("querycount")=0
	rs.Update
else
	sqltext="select * from "+tablename+" where code='101'"
	rs.Open sqltext,cn,1,1
	corpname=trim(rs("corpname"))
	linkman=trim(rs("linkman"))
	address=trim(rs("address"))
	corpname2=trim(rs("corpname2"))
	linkman2=trim(rs("linkman2"))
	address2=trim(rs("address2"))
	phone=trim(rs("phone"))
	fax=trim(rs("fax"))
	email=trim(rs("email"))
	zip=trim(rs("zip"))
end if	

%>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
		<tr><td>
			&nbsp;<b>单位内容维护</b>
		</td></tr>
		<tr><td><hr size=1></td></tr>

  </table>
  <table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
	<tr bgcolor=ffdfbf><td colspan=2><font class=t1>单位信息</font><br>
	</td></tr>
	<tr><td colspan=2></td></tr>
	<tr><td align=center class=td1 width=70>单位名称</td><td class=td2>
		<input type="text" value="<%=corpname%>" name=corpname maxlength=50 size=50></td></tr>
	<%if enflag="1" then%>	
	<tr><td align=center class=td1 width=70>名称(英)</td><td class=td2>
		<input type="text" value="<%=corpname2%>" name=corpname2 maxlength=80 size=50></td></tr>
	<%end if%>	
	<tr><td align=center class=td1 width=70>地址</td><td class=td2>
		<input type="text" value="<%=address%>" name=address maxlength=50 size=50></td></tr>
	<%if enflag="1" then%>	
	<tr><td align=center class=td1 width=70>地址(英)</td><td class=td2>
		<input type="text" value="<%=address2%>" name=address2 maxlength=100 size=50></td></tr>
	<%end if%>	
	<tr><td align=center class=td1 width=70>联系人</td><td class=td2>
		<input type="text" value="<%=linkman%>" name=linkman maxlength=20 size=20></td></tr>
	<%if enflag="1" then%>	
	<tr><td align=center class=td1 width=70>英文名</td><td class=td2>
		<input type="text" value="<%=linkman2%>" name=linkman2 maxlength=50 size=50></td></tr>
	<%end if%>	
	<tr><td align=center class=td1 width=70>电话</td><td class=td2>
		<input type="text" value="<%=phone%>" name=phone maxlength=50 size=50></td></tr>
	<tr><td align=center class=td1 width=70>传真</td><td class=td2>
		<input type="text" value="<%=fax%>" name=fax maxlength=30 size=30></td></tr>
	<tr><td align=center class=td1 width=70>Email</td><td class=td2>
		<input type="text" value="<%=email%>" name=email maxlength=60 size=50></td></tr>
	<tr><td align=center class=td1 width=70>邮政编码</td><td class=td2>
		<input type="text" value="<%=zip%>" name=zip maxlength=10 size=10></td></tr>
	<tr><td colspan=2 align=center>
		&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="submit" value="确认修改">&nbsp;&nbsp;&nbsp;&nbsp;
		</td></tr>
 </table>	
</td></tr>
</table>	
	<script language=Javascript>
		form1.corpname.focus()
	</script>
</form>
<body>
</html>
<script language=Javascript>

	function checkform(form)
	{
		var flag=true;

		if(form("corpname").value==""){alert("请填入单位名称!");form("corpname").focus();return false;}
		
		return flag;
	}
	
	function checkchar(str)
	{
		str=str.toLowerCase()
		if (str.search("<"+"%")>0)  
		{
			window.alert("("+str+")中有非法字符,请检查!")
			return false;
		}
		if (str.search("<scrip"+"t")>0)
		{
			window.alert("("+str+")中有非法字符,请检查!")
			return false;
		}
		return true;
	}

		
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -