b2b_ghstj.asp

小型网上购物网站

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制所有
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language=JavaScript>
<%dim sql,i,j
	set rs_s=server.createobject("adodb.recordset")
	sql="select * from welcomeshengbuy order by shengorder"
	rs_s.open sql,conn,1,1
%>
	var selects=[];
	selects['xxx']=new Array(new Option('请选择城市……','xxx'));
<%
	for i=1 to rs_s.recordcount
%>
	selects['<%=rs_s("ShengNo")%>']=new Array(
<%
	set rs_s1=server.createobject("adodb.recordset")
	sql="select * from welcomeshibuy where shengid="&rs_s("id")&" order by shiorder"
	rs_s1.open sql,conn,1,1
	if rs_s1.recordcount>0 then 
		for j=1 to rs_s1.recordcount
		if j=rs_s1.recordcount then 
%>
		new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'));
<%		else
%>
		new Option('<%=trim(rs_s1("shiname"))%>','<%=trim(rs_s1("shiNo"))%>'),
<%
		end if
		rs_s1.movenext
		next
	else 
%>
		new Option('','0'));
<%
	end if
	rs_s1.close
	set rs_s1=nothing
	rs_s.movenext
	next
rs_s.close
set rs_s=nothing
%>
	function chsel(){
		with (document.myform){
			if(welcomeshengbuy.value) {
				welcomeshibuy.options.length=0;
				for(var i=0;i<selects[welcomeshengbuy.value].length;i++){
					welcomeshibuy.add(selects[welcomeshengbuy.value][i]);
				}
			}
		}
	}

function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}

function checkform()
{
	if (document.myform.SupplierName.value == '')
	{
		alert("公司名称为空！");
		return false;
	}
	return true;
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #000000;
	font-weight: bold;
}
.STYLE2 {color: #FF0000}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<%
action=FormatSQL(SafeRequest("action",0))
id=FormatSQL(SafeRequest("id",0))
if action="newsave" then
    
	michaelrs.update
	michaelrs.close
	set michaelrs=nothing
	response.write "<script>alert('免费版此功能未提供！');window.location.href='b2b_ghstj.asp';</Script>"
	response.end
end if
if action="modifysave" then
  
		michaelrs.update
	end if
	michaelrs.close
	set michaelrs=nothing
	response.write "<script>alert('修改成功！');window.location.href='b2b_ghsgl.asp';</Script>"
	response.end
end if

if id<>"" then
	sql="select * from Supplier where id="&id
	set michaelrs=conn.execute(sql)
	if not (michaelrs.eof and michaelrs.bof) then
      SupplierName=michaelrs("SupplierName")
      SupplierCode=michaelrs("SupplierCode")
      SupplierType=michaelrs("SupplierType")
      SupplierProvince=michaelrs("SupplierProvince")
      SupplierCity=michaelrs("SupplierCity")
      SupplierPostCode=michaelrs("SupplierPostCode")
      SupplierPhone=michaelrs("SupplierPhone")
      SupplierFax=michaelrs("SupplierFax")
      SupplierCorporation=michaelrs("SupplierCorporation")
      SupplierAddress=michaelrs("SupplierAddress")
      SupplierVocation=michaelrs("SupplierVocation")
      SupplierWay=michaelrs("SupplierWay")
      SupplierWayA=michaelrs("SupplierWayA")
      SupplierWayB=michaelrs("SupplierWayB")
      
      LinkManNameA=michaelrs("LinkManNameA")
      LinkManSexA=michaelrs("LinkManSexA")
      LinkManPhoneA=michaelrs("LinkManPhoneA")
      LinkManMobileA=michaelrs("LinkManMobileA")
      LinkManEmailA=michaelrs("LinkManEmailA")
      LinkManQQA=michaelrs("LinkManQQA")
      
      LinkManNameB=michaelrs("LinkManNameB")
      LinkManSexB=michaelrs("LinkManSexB")
      LinkManPhoneB=michaelrs("LinkManPhoneB")
      LinkManMobileB=michaelrs("LinkManMobileB")
      LinkManEmailB=michaelrs("LinkManEmailB")
      LinkManQQB=michaelrs("LinkManQQB")
      
      LinkManNameC=michaelrs("LinkManNameC")
      LinkManSexC=michaelrs("LinkManSexC")
      LinkManPhoneC=michaelrs("LinkManPhoneC")
      LinkManMobileC=michaelrs("LinkManMobileC")
      LinkManEmailC=michaelrs("LinkManEmailC")
      LinkManQQC=michaelrs("LinkManQQC")	
	end if
	michaelrs.close
	set michaelrs=nothing
end if
%>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr>  
    <td height="20" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="STYLE2">供货商添加</span></span></td>
  </tr>
  
  <form action="b2b_ghstj.asp?action=<%if id="" then%>newsave<%else%>modifysave<%end if%>" method="post" name="myform" onsubmit="return checkform();">
  <tr> 
      <td height="100" bgcolor="#FFFFFF"><br>	  
        <table width="98%"  border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <tr align="center" bgcolor="#f2f2f2">
          <td height="25" colspan="4" background="images/topbg.gif"><strong>供货商名称及主营业务信息</strong></td>
          </tr>
        <tr>
          <td width="18%" align="right" background="images/topbg.gif" bgcolor="#f7f7f7"><strong>公司名称：</strong></td>
          <td bgcolor="#FFFFFF">