开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
OpenCorp.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：20k
源码类别：

数据库编程

开发平台：

ASP/ASPX

OpenCorp.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_Inc/Function.asp" -->
  4. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <%
  8. Dim p_C_Name,p_C_ShortName,p_C_Province,p_C_City,p_C_Address,p_C_PostCode,p_C_ConactName,p_C_Tel,p_C_Fax,p_C_VocationClassID,p_C_Website,p_C_size,p_C_Capital,p_C_BankName,p_C_BankUserName
  9. Dim c_C_Name,c_C_ShortName,c_C_Province,c_C_City,c_C_Address,c_C_PostCode,c_C_ConactName,c_C_Tel,c_C_Fax,c_C_VocationClassID,c_C_Website,c_C_size,c_C_Capital,c_C_BankName,c_C_BankUserName
  10. Dim AddCorpDataObj
  11. Dim action
  12. action=request.Form("action")
  13. if action="save" then
  14. p_C_Name = Request.Form("C_Name")
  15. p_C_ShortName = Request.Form("C_ShortName")
  16. p_C_Province = Request.Form("C_Province")
  17. p_C_City = Request.Form("C_City")
  18. p_C_Address = Request.Form("C_Address")
  19. p_C_PostCode = Request.Form("C_PostCode")
  20. p_C_ConactName = Request.Form("C_ConactName")
  21. p_C_Tel = Request.Form("C_Tel")
  22. p_C_Fax = Request.Form("C_Fax")
  23. p_C_VocationClassID = Request.Form("C_VocationClassID")
  24. p_C_Website = Request.Form("C_Website")
  25. p_C_size = Request.Form("C_size")
  26. p_C_Capital = Request.Form("C_Capital")
  27. p_C_BankName = Request.Form("C_BankName")
  28. p_C_BankUserName = Request.Form("C_BankUserName")
  30. If Trim(p_C_Name)="" Or Trim(p_C_Province)="" Or Trim(p_C_City)="" Or Trim(p_C_PostCode)=""  Or Trim(p_C_ConactName)="" Or Trim(p_C_Tel)="" then
  31. strShowErr = "<li>企业注册需要填写完整资料！</li><li>请填写完整,企业名称,所在省份,城市,邮编,联系人,联系电话!</li>"
  32. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  33. Response.end
  34. End if
  35. Dim AddCorpDataTFObj
  36. Set AddCorpDataTFObj = server.CreateObject(G_FS_RS)
  37. AddCorpDataTFObj.open "select  C_Name From FS_ME_CorpUser where C_Name = '"& p_C_Name &"' and usernumber<>'"&session("fS_usernumber")&"'",User_Conn,1,3
  38. If Not AddCorpDataTFObj.eof then
  39. strShowErr = "<li>您提交的企业名称已经被注册！</li>"
  40. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  41. Response.end
  42. End if
  43. Set AddCorpDataObj = server.CreateObject(G_FS_RS)
  44. AddCorpDataObj.open "select  UserNumber,C_Name,C_ShortName,C_logo,C_Province,C_City,C_Address,C_ConactName,C_Sex,C_Vocation,C_Tel,C_Fax,C_VocationClassID,C_WebSite,C_size,C_Operation,C_Products,C_Content,C_Capital,isLockCorp,C_Templet,C_BankName,C_BankUserName,C_PostCode,isYellowPage,isYellowPageCheck,C_property,C_Byear From FS_ME_CorpUser where usernumber='"&session("FS_Usernumber")&"'",User_Conn,1,3
  45. if AddCorpDataObj.eof then
  46. AddCorpDataObj.addNew
  47. End if
  48. AddCorpDataObj("UserNumber") = session("FS_UserNumber")
  49. AddCorpDataObj("C_Name") = p_C_Name
  50. AddCorpDataObj("C_ShortName") = p_C_ShortName
  51. AddCorpDataObj("C_Province") = p_C_Province
  52. AddCorpDataObj("C_City") = p_C_City
  53. AddCorpDataObj("C_Address") = p_C_Address
  54. AddCorpDataObj("C_ConactName") = p_C_ConactName
  55. AddCorpDataObj("C_Tel") = p_C_Tel
  56. AddCorpDataObj("C_Fax") = p_C_Fax
  57. AddCorpDataObj("C_VocationClassID") = p_C_VocationClassID
  58. AddCorpDataObj("C_WebSite") = p_C_WebSite
  59. AddCorpDataObj("C_size") = p_C_size
  60. AddCorpDataObj("C_Capital") = p_C_Capital
  61. AddCorpDataObj("C_BankName") = p_C_BankName
  62. AddCorpDataObj("C_BankUserName") = p_C_BankUserName
  63. AddCorpDataObj("C_PostCode") = p_C_PostCode
  64. AddCorpDataObj("isYellowPage") = 0 
  65. AddCorpDataObj("isYellowPageCheck") = 0 
  66. if p_isCheckCorp = 1 then
  67. AddCorpDataObj("isLockCorp") =1
  68. Else
  69. AddCorpDataObj("isLockCorp") =0
  70. End if
  71. AddCorpDataObj.update
  72. AddCorpDataObj.close:set AddCorpDataObj = nothing
  73. User_Conn.execute("update FS_ME_Users set IsCorporation=1 where usernumber='"&session("FS_usernumber")&"'")
  74. Set Fs_User = Nothing
  75. if err.number=0 then
  76. Response.Redirect("lib/success.asp?ErrCodes=添加成功！&ErrorUrl=../main.asp")
  77. Response.end
  78. End if
  79. Else
  80. Set AddCorpDataObj = server.CreateObject(G_FS_RS)
  81. AddCorpDataObj.open "select  UserNumber,C_Name,C_ShortName,C_logo,C_Province,C_City,C_Address,C_ConactName,C_Sex,C_Vocation,C_Tel,C_Fax,C_VocationClassID,C_WebSite,C_size,C_Operation,C_Products,C_Content,C_Capital,isLockCorp,C_Templet,C_BankName,C_BankUserName,C_PostCode,isYellowPage,isYellowPageCheck,C_property,C_Byear From FS_ME_CorpUser where usernumber='"&session("FS_Usernumber")&"'",User_Conn,1,3
  82. if not AddCorpDataObj.eof then
  83. c_C_Name=AddCorpDataObj("C_Name")
  84. c_C_ShortName=AddCorpDataObj("C_ShortName")
  85. c_C_Province=AddCorpDataObj("C_Province")
  86. c_C_City=AddCorpDataObj("C_City")
  87. c_C_Address=AddCorpDataObj("C_Address")
  88. c_C_PostCode=AddCorpDataObj("C_PostCode")
  89. c_C_ConactName=AddCorpDataObj("C_ConactName")
  90. c_C_Tel=AddCorpDataObj("C_Tel")
  91. c_C_Fax=AddCorpDataObj("C_Fax")
  92. c_C_VocationClassID=AddCorpDataObj("C_VocationClassID")
  93. c_C_Website=AddCorpDataObj("C_WebSite") 
  94. c_C_size=AddCorpDataObj("C_size")
  95. c_C_Capital=AddCorpDataObj("C_Capital")
  96. c_C_BankName=AddCorpDataObj("C_BankName")
  97. c_C_BankUserName=AddCorpDataObj("C_BankUserName")
  98. End if
  99. End if
  100. %>
  101. <html xmlns="http://www.w3.org/1999/xhtml">
  102. <title>CMS4.0</title>
  103. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  104. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  105. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  106. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  107. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  108. <script language="javascript" src="../FS_Inc/prototype.js"></script>
  109. <head>
  110. <body>
  111. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  112.   <tr>
  113.     <td>
  114.       <!--#include file="top.asp" -->
  115.     </td>
  116.   </tr> 
  117. </table>
  118. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  119.   
  120.     <tr class="back"> 
  121.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  122.     </tr>
  123.     <tr class="back"> 
  124.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  125.           <!--#include file="menu.asp" -->
  126.         </div></td>
  127.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  128.         <tr class="hback"> 
  129.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  130.             <a href="main.asp">会员首页</a> &gt;&gt;填写企业资料</td>
  131.         </tr>
  132.       </table> 
  133.       <table width="98%" border=0 align="center" cellPadding=1 cellSpacing=1 background="" class="table">
  134.         <tbody>
  135.           <tr class="hback">
  136.             <td width="723" height="26">
  137. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="0">
  138.   <tr> 
  139.     <td><table width="100%" height="279" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  140.         <tr class="back"> 
  141.           <td width="86%" valign="top" class="hback"> 
  142.               <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  143.               <form name="UserForm"  id="UserForm" method="post" action="OpenCorp.asp">
  144.                 <tr class="back"> 
  145.                   <td height="16" colspan="3" class="xingmu">填写公司资料： </td>
  146.                 </tr>
  147.                 <tr class="back"> 
  148.                   <td height="16"><div align="right"><span class="tx">*</span>公司名称</div></td>
  149.                   <td><input name="C_Name" type="text" id="C_Name" size="30" maxlength="50" value="<%=c_C_Name%>"></td>
  150.                   <td>请填写您公司的全称</td>
  151.                 </tr>
  152.                 <tr class="back"> 
  153.                   <td height="-2"><div align="right">公司简称</div></td>
  154.                   <td><input name="C_ShortName" type="text" id="C_ShortName" size="30" maxlength="30" value="<%=c_C_ShortName%>"></td>
  155.                   <td>请填写您公司的简单称呼</td>
  156.                 </tr>
  157.                 <tr class="back"> 
  158.                   <td height="0"><div align="right"><span class="tx">*</span>公司所在省份</div></td>
  159.                   <td> <select name="C_Province" size=1 id="C_Province">
  160.                       <option value="">请选择　　</option>
  161.                       <option value="四川" <%if c_C_Province="四川" then response.Write("selected") %>>四川</option>
  162.                       <option value="北京" <%if c_C_Province="北京" then response.Write("selected") %>>北京</option>
  163.                       <option value="上海" <%if c_C_Province="上海" then response.Write("selected") %>>上海</option>
  164.                       <option value="天津" <%if c_C_Province="天津" then response.Write("selected") %>>天津</option>
  165.                       <option value="重庆" <%if c_C_Province="重庆" then response.Write("selected") %>>重庆</option>
  166.                       <option value="安徽" <%if c_C_Province="安徽" then response.Write("selected") %>>安徽</option>
  167.                       <option value="甘肃" <%if c_C_Province="甘肃" then response.Write("selected") %>>甘肃</option>
  168.                       <option value="广东" <%if c_C_Province="广东" then response.Write("selected") %>>广东</option>
  169.                       <option value="广西" <%if c_C_Province="广西" then response.Write("selected") %>>广西</option>
  170.                       <option value="贵州" <%if c_C_Province="贵州" then response.Write("selected") %>>贵州</option>
  171.                       <option value="福建" <%if c_C_Province="福建" then response.Write("selected") %>>福建</option>
  172.                       <option value="海南" <%if c_C_Province="海南" then response.Write("selected") %>>海南</option>
  173.                       <option value="河北" <%if c_C_Province="河北" then response.Write("selected") %>>河北</option>
  174.                       <option value="河南" <%if c_C_Province="河南" then response.Write("selected") %>>河南</option>
  175.                       <option value="黑龙江" <%if c_C_Province="黑龙江" then response.Write("selected") %>>黑龙江</option>
  176.                       <option value="湖北" <%if c_C_Province="湖北" then response.Write("selected") %>>湖北</option>
  177.                       <option value="湖南" <%if c_C_Province="湖南" then response.Write("selected") %>>湖南</option>
  178.                       <option value="吉林" <%if c_C_Province="吉林" then response.Write("selected") %>>吉林</option>
  179.                       <option value="江苏" <%if c_C_Province="江苏" then response.Write("selected") %>>江苏</option>
  180.                       <option value="江西" <%if c_C_Province="江西" then response.Write("selected") %>>江西</option>
  181.                       <option value="辽宁" <%if c_C_Province="辽宁" then response.Write("selected") %>>辽宁</option>
  182.                       <option value="内蒙古" <%if c_C_Province="内蒙古" then response.Write("selected") %>>内蒙古</option>
  183.                       <option value="宁夏" <%if c_C_Province="宁夏" then response.Write("selected") %>>宁夏</option>
  184.                       <option value="青海" <%if c_C_Province="青海" then response.Write("selected") %>>青海</option>
  185.                       <option value="山东" <%if c_C_Province="山东" then response.Write("selected") %>>山东</option>
  186.                       <option value="山西" <%if c_C_Province="山西" then response.Write("selected") %>>山西</option>
  187.                       <option value="陕西" <%if c_C_Province="陕西" then response.Write("selected") %>>陕西</option>
  188.                       <option value="西藏" <%if c_C_Province="西藏" then response.Write("selected") %>>西藏</option>
  189.                       <option value="新疆" <%if c_C_Province="新疆" then response.Write("selected") %>>新疆</option>
  190.                       <option value="云南" <%if c_C_Province="云南" then response.Write("selected") %>>云南</option>
  191.                       <option value="浙江" <%if c_C_Province="浙江" then response.Write("selected") %>>浙江</option>
  192.                       <option value="港澳台" <%if c_C_Province="港澳台" then response.Write("selected") %>>港澳台</option>
  193.                       <option value="海外" <%if c_C_Province="海外" then response.Write("selected") %>>海外</option>
  194.                       <option value="其它" <%if c_C_Province="其它" then response.Write("selected") %>>其它</option>
  195.                     </select> </td>
  196.                   <td>请填写您公司所在的省份</td>
  197.                 </tr>
  198.                 <tr class="back"> 
  199.                   <td height="0"><div align="right"><span class="tx">*</span>公司所在城市</div></td>
  200.                   <td><input name="C_City" type="text" id="C_City" size="30" maxlength="20"  value="<%=c_C_City%>"></td>
  201.                   <td>请填写您公司所在的城市</td>
  202.                 </tr>
  203.                 <tr class="back"> 
  204.                   <td height="0"><div align="right"><span class="tx">*</span>公司地址</div></td>
  205.                   <td><input name="C_Address" type="text" id="C_Address" size="30" maxlength="100" value="<%=c_C_Address%>"></td>
  206.                   <td>您的公司地址</td>
  207.                 </tr>
  208.                 <tr class="back"> 
  209.                   <td height="0"><div align="right"><span class="tx">*</span>邮政编码</div></td>
  210.                   <td><input name="C_PostCode" type="text" id="C_PostCode" size="30" maxlength="20" value="<%=c_C_PostCode%>"></td>
  211.                   <td>您公司的邮政编码</td>
  212.                 </tr>
  213.                 <tr class="back"> 
  214.                   <td height="0"><div align="right"><span class="tx">*</span>公司联系人</div></td>
  215.                   <td><input name="C_ConactName" type="text" id="C_ConactName" size="30" maxlength="20" value="<%=c_C_ConactName%>"></td>
  216.                   <td>公司联系人</td>
  217.                 </tr>
  218.                 <tr class="back"> 
  219.                   <td height="0"><div align="right"><span class="tx">*</span>公司联系电话</div></td>
  220.                   <td><input name="C_Tel" type="text" id="C_Tel" size="30" maxlength="20" value="<%=c_C_Tel%>" ></td>
  221.                   <td>公司联系电话。有分机请用&quot;-&quot;分开，如：028-85098980-606</td>
  222.                 </tr>
  223.                 <tr class="back"> 
  224.                   <td height="1"><div align="right">公司传真</div></td>
  225.                   <td><input name="C_Fax" type="text" id="C_Fax" size="30" maxlength="20" value="<%=c_C_Fax%>"></td>
  226.                   <td>公司传真。有分机请用&quot;-&quot;分开，如：028-85098980-606</td>
  227.                 </tr>
  228.                 <tr class="back"> 
  229.                   <td height="3"><div align="right"><span class="tx">*</span>行业</div></td>
  230.                   <td><input name="C_VocationClassID" type="text" id="C_VocationClassID" size="30" readonly value="<%=c_C_VocationClassID%>"></td>
  231.                   <td><input type="button" name="Submit3" value="选择行业" onClick="OpenWindowAndSetValue('lib/SelectClassFrame.asp',400,300,window,document.UserForm.C_VocationClassID);document.UserForm.C_VocationClassID.focus();">
  232.                     公司所在的行业</td>
  233.                 </tr>
  234.                 <tr class="back"> 
  235.                   <td height="8"><div align="right">公司网站</div></td>
  236.                   <td><input name="C_Website" type="text" id="C_Website" size="30" maxlength="200" value="<%=c_C_Website%>"></td>
  237.                   <td>公司所在的企业站点</td>
  238.                 </tr>
  239.                 <tr class="back"> 
  240.                   <td height="16"><div align="right">公司规模</div></td>
  241.                   <td><select name="C_size" id="C_size">
  242.                       <option value="1-20人" <%if c_C_size="1-20人" then Response.Write("selected") %>>1-20人</option>
  243.                       <option value="21-50人" <%if c_C_size="21-50人" then Response.Write("selected") %>>21-50人</option>
  244.                       <option value="51-100人" <%if c_C_size="51-100人" then Response.Write("selected") %>>51-100人</option>
  245.                       <option value="101-200人" <%if c_C_size="101-200人" then Response.Write("selected") %>>101-200人</option>
  246.                       <option value="201-500人" <%if c_C_size="201-500人" then Response.Write("selected") %>>201-500人</option>
  247.                       <option value="501-1000人" <%if c_C_size="501-1000人" then Response.Write("selected") %>>501-1000人</option>
  248.                       <option value="1000人以上" <%if c_C_size="1000人以上" then Response.Write("selected") %>>1000人以上</option>
  249.                     </select></td>
  250.                   <td>&nbsp;</td>
  251.                 </tr>
  252.                 <tr class="back"> 
  253.                   <td height="1"><div align="right">公司注册资本</div></td>
  254.                   <td><select name="C_Capital" id="C_Capital">
  255.                       <option value="10万以下" <%if c_C_Capital="10万以下" then Response.Write("selected") %>>10万以下</option>
  256.                       <option value="10万-19万" <%if c_C_Capital="10万-19万" then Response.Write("selected") %>>10万-19万</option>
  257.                       <option value="20万-49万" <%if c_C_Capital="20万-49万" then Response.Write("selected") %>>20万-49万</option>
  258.                       <option value="50万-99万" <%if c_C_Capital="50万-99万" then Response.Write("selected") %>>50万-99万</option>
  259.                       <option value="100万-199万" <%if c_C_Capital="100万-199万" then Response.Write("selected") %>>100万-199万</option>
  260.                       <option value="200万-499万" <%if c_C_Capital="200万-499万" then Response.Write("selected") %>>200万-499万</option>
  261.                       <option value="500万-999万" <%if c_C_Capital="500万-999万" then Response.Write("selected") %>>500万-999万</option>
  262.                       <option value="1000万以上" <%if c_C_Capital="1000万以上" then Response.Write("selected") %>>1000万以上</option>
  263.                     </select></td>
  264.                   <td>&nbsp;</td>
  265.                 </tr>
  266.                 <tr class="back"> 
  267.                   <td height="3"><div align="right">开户银行</div></td>
  268.                   <td><input name="C_BankName" type="text" id="C_BankName" size="30" maxlength="50" value="<%=c_C_BankName%>"></td>
  269.                   <td rowspan="2"><p>公司银行帐户，以方便放在您的联系资料中。<br>
  270.                       开户银行例子：中国工商银行成都分行双楠分理处<br>
  271.                       银行帐户名：</p></td>
  272.                 </tr>
  273.                 <tr class="back"> 
  274.                   <td height="8"><div align="right">银行帐号及帐户名</div></td>
  275.                   <td><textarea name="C_BankUserName" cols="30" rows="4" id="C_BankUserName"><%=c_C_BankUserName%></textarea></td>
  276.                 </tr>
  277.                 <tr class="back"> 
  278.                   <td height="39" colspan="3"> <div align="center"> 
  279.                       <input name="Action" type="hidden" id="Action" value="save">
  280.   <input type="submit" name="Submit" value="保存数据,开始注册" style="CURSOR:hand">
  281.                       　 
  282.                       <input type="reset" name="Submit2" value="重置">                      　 
  283.                     </div></td>
  284.                 </tr>
  285.               </form>
  286.             </table>
  287.             </td>
  288.         </tr>
  289.         <tr class="back"> 
  290.           <td height="26"  colspan="2" class="xingmu"> <div align="left"> 
  291.               <!--#include file="Copyright.asp" -->
  292.             </div></td>
  293.         </tr>
  294.       </table></td>
  295.   </tr>
  296. </table>
  297. </td>
  298.           </tr>
  299.         </form>
  300.       </table>
  301.       </td>
  302.     </tr>
  303.     <tr class="back"> 
  304.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  305.           <!--#include file="Copyright.asp" -->
  306.         </div></td>
  307.     </tr>
  308.  
  309. </table>
  310. </body>
  311. </html>
  312. <script language="JavaScript" type="text/JavaScript">
  313. function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
  314. {
  315. var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:no;help:no;scroll:no;');
  316. if (ReturnStr!='007007007007') SetObj.value=ReturnStr;
  317. return ReturnStr;
  318. }
  319. </script>
  321. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->