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
    SupplierName=FormatSQL(SafeRequest("SupplierName",0))
    SupplierCode=FormatSQL(SafeRequest("SupplierCode",0))
    SupplierType=FormatSQL(SafeRequest("SupplierType",0))
    SupplierProvince=FormatSQL(SafeRequest("welcomeshengbuy",0))
    SupplierCity=FormatSQL(SafeRequest("welcomeshibuy",0))
    SupplierPostCode=FormatSQL(SafeRequest("SupplierPostCode",0))
    SupplierPhone=FormatSQL(SafeRequest("SupplierPhone",0))
    SupplierFax=FormatSQL(SafeRequest("SupplierFax",0))
    SupplierCorporation=FormatSQL(SafeRequest("SupplierCorporation",0))
    SupplierAddress=FormatSQL(SafeRequest("SupplierAddress",0))
    SupplierVocation=FormatSQL(SafeRequest("SupplierVocation",0))
    SupplierWay=FormatSQL(SafeRequest("SupplierWay",0))
    SupplierWayA=FormatSQL(SafeRequest("SupplierWayA",0))
    SupplierWayB=FormatSQL(SafeRequest("SupplierWayB",0))
    
    LinkManNameA=FormatSQL(SafeRequest("LinkManNameA",0))
    LinkManSexA=FormatSQL(SafeRequest("LinkManSexA",0))
    LinkManPhoneA=FormatSQL(SafeRequest("LinkManPhoneA",0))
    LinkManMobileA=FormatSQL(SafeRequest("LinkManMobileA",0))
    LinkManEmailA=Request("LinkManEmailA")
    LinkManQQA=FormatSQL(SafeRequest("LinkManQQA",0))
    
    LinkManNameB=FormatSQL(SafeRequest("LinkManNameB",0))
    LinkManSexB=FormatSQL(SafeRequest("LinkManSexB",0))
    LinkManPhoneB=FormatSQL(SafeRequest("LinkManPhoneB",0))
    LinkManMobileB=FormatSQL(SafeRequest("LinkManMobileB",0))
    LinkManEmailB=Request("LinkManEmailB")
    LinkManQQB=FormatSQL(SafeRequest("LinkManQQB",0))
    
    LinkManNameC=FormatSQL(SafeRequest("LinkManNameC",0))
    LinkManSexC=FormatSQL(SafeRequest("LinkManSexC",0))
    LinkManPhoneC=FormatSQL(SafeRequest("LinkManPhoneC",0))
    LinkManMobileC=FormatSQL(SafeRequest("LinkManMobileC",0))
    LinkManEmailC=Request("LinkManEmailC")
    LinkManQQC=FormatSQL(SafeRequest("LinkManQQC",0))

	set michaelrs=server.createobject("adodb.recordset")
	sql="select * from Supplier"
	michaelrs.open sql,conn,1,3
	michaelrs.addnew
    michaelrs("SupplierName")=SupplierName
    michaelrs("SupplierCode")=SupplierCode 
    michaelrs("SupplierType")=SupplierType 
    michaelrs("SupplierProvince")=SupplierProvince 
    michaelrs("SupplierCity")=SupplierCity 
    michaelrs("SupplierPostCode")=SupplierPostCode 
    michaelrs("SupplierPhone")=SupplierPhone 
    michaelrs("SupplierFax")=SupplierFax 
    michaelrs("SupplierCorporation")=SupplierCorporation 
    michaelrs("SupplierAddress")=SupplierAddress 
    michaelrs("SupplierVocation")=SupplierVocation 
    michaelrs("SupplierWay")=SupplierWay 
    michaelrs("SupplierWayA")=SupplierWayA 
    michaelrs("SupplierWayB")=SupplierWayB 
    
    michaelrs("LinkManNameA")=LinkManNameA 
    michaelrs("LinkManSexA")=LinkManSexA 
    michaelrs("LinkManPhoneA")=LinkManPhoneA 
    michaelrs("LinkManMobileA")=LinkManMobileA 
    michaelrs("LinkManEmailA")=LinkManEmailA 
    michaelrs("LinkManQQA")=LinkManQQA 
    
    michaelrs("LinkManNameB")=LinkManNameB 
    michaelrs("LinkManSexB")=LinkManSexB 
    michaelrs("LinkManPhoneB")=LinkManPhoneB 
    michaelrs("LinkManMobileB")=LinkManMobileB 
    michaelrs("LinkManEmailB")=LinkManEmailB 
    michaelrs("LinkManQQB")=LinkManQQB 
    
    michaelrs("LinkManNameC")=LinkManNameC 
    michaelrs("LinkManSexC")=LinkManSexC 
    michaelrs("LinkManPhoneC")=LinkManPhoneC 
    michaelrs("LinkManMobileC")=LinkManMobileC 
    michaelrs("LinkManEmailC")=LinkManEmailC 
    michaelrs("LinkManQQC")=LinkManQQC  
	michaelrs.update
	michaelrs.close
	set michaelrs=nothing
	response.write "<script>alert('保存成功！');window.location.href='b2b_ghstj.asp';</Script>"
	response.end
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>