📄 admin_company.asp
字号:
Response.Write " TabTitle[4].style.display='none';" & vbCrLf
Response.Write " infoP.style.display='none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else{" & vbCrLf
Response.Write " TabTitle[2].style.display='none';" & vbCrLf
Response.Write " infoE.style.display='none';" & vbCrLf
Response.Write " TabTitle[3].style.display='';" & vbCrLf
Response.Write " TabTitle[4].style.display='';" & vbCrLf
Response.Write " infoP.style.display='';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function SelectParentClient(){" & vbCrLf
Response.Write " var arr=showModalDialog('Admin_SourceList.asp?TypeSelect=ClientList','','dialogWidth:600px; dialogHeight:450px; help: no; scroll: yes; status: no');" & vbCrLf
Response.Write " if (arr != null){" & vbCrLf
Response.Write " var ss=arr.split('$$$');" & vbCrLf
Response.Write " document.myform.Parenter.value=ss[0];" & vbCrLf
Response.Write " document.myform.ParentID.value=ss[1];" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub AddCompany()
Call PopCalendarInit
Call ShowJS_Check
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Company.asp'>企业管理</a> >> 添加企业</td></tr></table>"
Response.Write "<form name='myform' id='myform' action='Admin_Company.asp' method='post' onSubmit='return CheckSubmit();'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td height='100' valign='top'>"
Response.Write " <table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF' id='Tabs' style='display:'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>企业名称：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='CompanyName' type='text' id='CompanyName' size='35' maxlength='200'> <font color='#FF0000'>*</font></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>企业编号：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='ClientNum' type='text' id='ClientNum' size='35' maxlength='30' value='" & GetNumString() & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td rowspan='2' class='tdbg5' align='right' width='12%'>通讯地址：</td>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <iframe name='frm1' id='frm1' src='../Region.asp' width='100%' height='75' frameborder='0' scrolling='no'></iframe>" & vbCrLf
Response.Write " <input name='Country' id='Country' type='hidden'> <input name='Province' id='Province' type='hidden'> <input name='City' id='City' type='hidden'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='12%' align='right' class='tdbg5' align='right' >联系地址：</td>" & vbCrLf
Response.Write " <td><input name='Address' type='text' size='60' maxlength='255'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5' align='right' >邮政编码：</td>" & vbCrLf
Response.Write " <td><input name='ZipCode' type='text' size='35' maxlength='10'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>联系电话：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Phone' type='text' size='35' maxlength='30'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>传真号码：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Fax1' type='text' size='35' maxlength='30'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>开户银行：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankOfDeposit' type='text' size='35' maxlength='255'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>银行帐号：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankAccount' type='text' size='35' maxlength='255'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >税号：</td>" & vbCrLf
Response.Write " <td><input name='TaxNum' type='text' size='35' maxlength='20'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >网址：</td>" & vbCrLf
Response.Write " <td><input name='Homepage1' type='text' size='35' maxlength='100'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >行业地位：</td>" & vbCrLf
Response.Write " <td><select name='StatusInField'>" & Array2Option(arrStatusInField, -1) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >公司规模：</td>" & vbCrLf
Response.Write " <td><select name='CompanySize'>" & Array2Option(arrCompanySize, -1) & "</select></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >业务范围：</td>" & vbCrLf
Response.Write " <td><input name='BusinessScope' type='text' size='35' maxlength='255'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >年销售额：</td>" & vbCrLf
Response.Write " <td><input name='AnnualSales' type='text' size='15' maxlength='20'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >经营状态：</td>" & vbCrLf
Response.Write " <td><select name='ManagementForms'>" & Array2Option(arrManagementForms, -1) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >注册资本：</td>" & vbCrLf
Response.Write " <td><input name='RegisteredCapital' type='text' size='15' maxlength='20'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>备注：</td>" & vbCrLf
Response.Write " <td colspan='3'><input name='Remark' type='text' size='35'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' height='40'><tr align='center'><td>"
Response.Write " <input type='hidden' name='action' value='SaveAdd'>" & vbCrLf
Response.Write " <input type='submit' name='Submit' value='保存企业信息'>" & vbCrLf
Response.Write "</td></tr></table>"
Response.Write "</form>" & vbCrLf
End Sub
Sub Modify()
Dim CompanyID, Remark
CompanyID = Trim(Request("CompanyID"))
If CompanyID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>参数不足！</li>"
Exit Sub
Else
CompanyID = CLng(CompanyID)
End If
Dim rsCompany, rsContacter
Dim Country, Province, City, Address, ZipCode
Dim Phone, Fax
Set rsCompany = Conn.Execute("select * from PE_Company where CompanyID=" & CompanyID & "")
If rsCompany.BOF And rsCompany.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到对应的企业信息！</li>"
Else
Country = rsCompany("Country")
Province = rsCompany("Province")
City = rsCompany("City")
Address = rsCompany("Address")
ZipCode = rsCompany("ZipCode")
Phone = rsCompany("Phone")
Fax = rsCompany("Fax")
End If
If FoundErr = True Then
Exit Sub
End If
Call PopCalendarInit
Call ShowJS_Check
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Company.asp'>企业管理</a> >> 修改企业信息</td></tr></table>"
Response.Write "<form name='myform' id='myform' action='Admin_Company.asp' method='post' onSubmit='return CheckSubmit();'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td height='100' valign='top'>"
Response.Write " <table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF' id='Tabs' style='display:'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>企业名称：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='CompanyName' type='text' id='CompanyName' size='35' maxlength='200' value='" & rsCompany("CompanyName") & "'> <font color='#FF0000'>*</font></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>企业编号：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='ClientNum' type='text' id='ClientNum' size='35' maxlength='30' value='" & rsCompany("ClientNum") & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td rowspan='2' class='tdbg5' align='right' width='12%'>通讯地址：</td>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <iframe name='frm1' id='frm1' src='../Region.asp?Action=Modify&Country=" & Country & "&Province=" & Province & "&City=" & City & "' width='100%' height='75' frameborder='0' scrolling='no'></iframe>" & vbCrLf
Response.Write " <input name='Country' id='Country' type='hidden'> <input name='Province' id='Province' type='hidden'> <input name='City' id='City' type='hidden'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='12%' align='right' class='tdbg5' align='right' >联系地址：</td>" & vbCrLf
Response.Write " <td><input name='Address' type='text' size='60' maxlength='255' value='" & Address & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5' align='right' >邮政编码：</td>" & vbCrLf
Response.Write " <td><input name='ZipCode' type='text' size='35' maxlength='10' value='" & ZipCode & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>联系电话：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Phone' type='text' size='35' maxlength='30' value='" & Phone & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>传真号码：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Fax1' type='text' size='35' maxlength='30' value='" & Fax & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>开户银行：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankOfDeposit' type='text' size='35' maxlength='255' value='" & rsCompany("BankOfDeposit") & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>银行帐号：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankAccount' type='text' size='35' maxlength='255' value='" & rsCompany("BankAccount") & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >税号：</td>" & vbCrLf
Response.Write " <td><input name='TaxNum' type='text' size='35' maxlength='20' value='" & rsCompany("TaxNum") & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >网址：</td>" & vbCrLf
Response.Write " <td><input name='Homepage1' type='text' size='35' maxlength='100' value='" & rsCompany("Homepage") & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >行业地位：</td>" & vbCrLf
Response.Write " <td><select name='StatusInField'>" & Array2Option(arrStatusInField, rsCompany("StatusInField")) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >公司规模：</td>" & vbCrLf
Response.Write " <td><select name='CompanySize'>" & Array2Option(arrCompanySize, rsCompany("CompanySize")) & "</select></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >业务范围：</td>" & vbCrLf
Response.Write " <td><input name='BusinessScope' type='text' size='35' maxlength='255' value='" & rsCompany("BusinessScope") & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >年销售额：</td>" & vbCrLf
Response.Write " <td><input name='AnnualSales' type='text' size='15' maxlength='20' value='" & rsCompany("AnnualSales") & "'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >经营状态：</td>" & vbCrLf
Response.Write " <td><select name='ManagementForms'>" & Array2Option(arrManagementForms, rsCompany("ManagementForms")) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >注册资本：</td>" & vbCrLf
Response.Write " <td><input name='RegisteredCapital' type='text' size='15' maxlength='20' value='" & rsCompany("RegisteredCapital") & "'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -