bs_codata.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="bsconfig.asp"-->
<%
'=================================
'
'   冠龙科技 公司(企业)网站管理系统
'    Apollo  [e-mail] 
'        www.xnhost.cn
'
'  copyright(c)2006 LkStar
'
'=================================
%>
<%if Request.QueryString("no")="eshop" then

BsCompanyName=request("BsCompanyName")
BsEnCompanyName=request("BsEnCompanyName")
BsAddress=request("BsAddress")
BsEnAddress=request("BsEnAddress")
BsLinkman=request("BsLinkman")
BsEnLinkman=request("BsEnLinkman")
BsPhone=request("BsPhone")
BsFax=request("BsFax")
BsWeb=request("BsWeb")
BsEmail=request("BsEmail")
BsWebMail=request("BsWebMail")
BsZipcode=request("BsZipcode")



If BsCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入公司名称!"
response.end
end if
If BsEnCompanyName="" Then
response.write "SORRY <br>"
response.write "请填入英文公司名称!"
response.end
end if
If BsAddress="" Then
response.write "SORRY <br>"
response.write "请填入地址!"
response.end
end if
If BsEnAddress="" Then
response.write "SORRY <br>"
response.write "请填入英文地址!"
response.end
end if
If BsPhone="" Then
response.write "SORRY <br>"
response.write "请填入电话!"
response.end
end if
If BsWeb="" Then
response.write "SORRY <br>"
response.write "请填入网址!"
response.end
end if
If BsEmail="" Then
response.write "SORRY <br>"
response.write "请填入Email!"
response.end
end if


Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from syswork where code='101'"
rs.open sql,conn,1,3

	rs("BsCompanyName")=BsCompanyName
	rs("BsEnCompanyName")=BsEnCompanyName
	rs("BsAddress")=BsAddress
	rs("BsEnAddress")=BsEnAddress
	rs("BsLinkman")=BsLinkman
	rs("BsEnLinkman2")=BsEnLinkman
	rs("BsPhone")=BsPhone
	rs("BsFax")=BsFax
	rs("BsWeb")=BsWeb
	rs("BsEmail")=BsEmail
	rs("BsWebMail")=BsWebMail
	rs("BsZipcode")=BsZipcode
rs.update
rs.close
response.redirect "Bs_CoData.asp"
end if
%>
<%
'code=request.querystring("code")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From syswork where code='101'"
rs.Open sql,conn,3,3
%>
<%
htmlname="Bs_CoData.asp"
tablename="syswork"
%>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>公 司 资 料</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
      <br>
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <form method="post" name="myform" action="Bs_CoData.asp?no=eshop">
            <input type=hidden name=id value="101">
            <td><div align="center"> 
							<table width="100%" border="0" cellspacing="2" cellpadding="3">
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">公司名称</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsCompanyName" maxlength="80" size="50" value="<%=rs("BsCompanyName")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">名称(英)</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsEnCompanyName" maxlength="80" size="50" value="<%=rs("BsEnCompanyName")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">地址</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsAddress" maxlength="80" size="50" value="<%=rs("BsAddress")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">地址(英)</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsEnAddress" maxlength="80" size="50" value="<%=rs("BsEnAddress")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">联系人</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsLinkman" maxlength="30" size="25" value="<%=rs("BsLinkman")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">英文名</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsEnLinkman" maxlength="30" size="25" value="<%=rs("BsEnLinkman")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">电话</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsPhone" maxlength="30" size="25" value="<%=rs("BsPhone")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">传真</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsFax" maxlength="30" size="25" value="<%=rs("BsFax")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">网址</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsWeb" maxlength="50" size="25" value="<%=rs("BsWeb")%>">&nbsp;&nbsp;注意: 不用填入 <FONT COLOR="FF0000">http://</FONT></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">Email</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsEmail" maxlength="30" size="25" value="<%=rs("BsEmail")%>"></td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">公司邮局</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsWebMail" maxlength="50" size="25" value="<%=rs("BsWebMail")%>">&nbsp;&nbsp;注意: 不用填入 <FONT COLOR="FF0000">http://</td>
								</tr>
								<tr> 
									<td width="18%" height="25" bgcolor="#C0C0C0"> <div align="right">邮政编码</div></td>
									<td width="62%" bgcolor="#C0C0C0"><input type="text" name="BsZipcode" maxlength="30" size="25" value="<%=rs("BsZipcode")%>"></td>
								</tr>
								<tr> 
									<td height="25" colspan="2" bgcolor="#C0C0C0"> 
										<div align="center"> 
											<input name="submit" type="submit" value="确认修改">
											&nbsp; 
											<input name="reset" type="reset" value=" 取 消 ">
										</div></td>
								</tr>
							</table>
						</div></td>
          </form>
        </tr>
      </table>
      <br>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<script language=Javascript>
	
	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>