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

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

数据库编程

开发平台：

ASP/ASPX

UserCorp.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="../../FS_Inc/Func_page.asp" -->
  7. <% 'Copyright (c) 2006 Foosun Inc. Code by awen
  8. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. if not MF_Check_Pop_TF("ME_List") then Err_Show
  13. if not MF_Check_Pop_TF("ME001") then Err_Show 
  15. int_RPP=15 '设置每页显示数目
  16. int_showNumberLink_=10 '数字导c航显示数目
  17. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  18. str_nonLinkColor_="#999999" '非热链接颜色
  19. toF_="<font face=webdings>9</font>"    '首页 
  20. toP10_=" <font face=webdings>7</font>" '上十
  21. toP1_=" <font face=webdings>3</font>" '上一
  22. toN1_=" <font face=webdings>4</font>" '下一
  23. toN10_=" <font face=webdings>8</font>" '下十
  24. toL_="<font face=webdings>:</font>" '尾页
  27. ''得到相关表的值。
  28. Function Get_OtherTable_Value(This_Fun_Sql)
  29. Dim This_Fun_Rs
  30. if instr(This_Fun_Sql," FS_ME_")>0 then 
  31. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  32. else
  33. set This_Fun_Rs = Conn.execute(This_Fun_Sql)
  34. end if
  35. if instr(lcase(This_Fun_Sql)," in ")>0 then 
  36. do while not This_Fun_Rs.eof
  37. Get_OtherTable_Value = Get_OtherTable_Value & This_Fun_Rs(0) &"&nbsp;"
  38. This_Fun_Rs.movenext
  39. loop
  40. else
  41. if not This_Fun_Rs.eof then 
  42. Get_OtherTable_Value = This_Fun_Rs(0)
  43. else
  44. Get_OtherTable_Value = ""
  45. end if
  46. end if
  47. set This_Fun_Rs=nothing 
  48. End Function
  50. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  51. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  52. Dim Get_Html,This_Fun_Rs,Text
  53. On Error Resume Next
  54. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  55. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  56. do while not This_Fun_Rs.eof 
  57. select case Get_Type
  58.   case 1
  59. ''<option>
  60. if instr(This_Fun_Sql,",") >0 then 
  61. Text = This_Fun_Rs(1)
  62. else
  63. Text = This_Fun_Rs(0)
  64. end if
  65. if EquValue = This_Fun_Rs(0) then 
  66. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  67. else
  68. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  69. end if
  70.   case else
  71. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  72. end select
  73. This_Fun_Rs.movenext
  74. loop
  75. This_Fun_Rs.close
  76. Get_FildValue_List = Get_Html
  77. End Function 
  79. Function Get_WhileData(Add_Sql)
  80. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  81. Str_Tmp = "A.UserNumber,UserName,C_Name,C_Tel,Email,C_Website,Integral,FS_Money,RegTime,isLock"
  82. Str_Tmp = Str_Tmp & ",C_Name,C_ShortName,C_Province,C_City,C_Address,C_PostCode,C_ConactName,C_Tel,C_Fax,C_VocationClassID,C_Website,C_size,C_Capital,C_BankName,C_BankUserName"
  83. This_Fun_Sql = "select "&Str_Tmp&"  from FS_ME_Users A,FS_ME_CorpUser B where  A.UserNumber=B.UserNumber and A.IsCorporation=1"
  84. if Add_Sql<>"" then 
  85. if instr(Add_Sql,"order by")>0 then 
  86. This_Fun_Sql = This_Fun_Sql &"  "& replace(Add_Sql,"UserNumber","A.UserNumber")
  87. else
  88. This_Fun_Sql = and_where(This_Fun_Sql) & Add_Sql
  89. end if
  90. end if
  91. if request.QueryString("Act")="SearchGo" then 
  92. Arr_Tmp = split(Str_Tmp,",")
  93. for each Str_Tmp in Arr_Tmp
  94. if Trim(request.Form("frm_"&Str_Tmp))<>"" then 
  95. Req_Str = NoSqlHack(Trim(request.Form("frm_"&Str_Tmp)))
  96. select case Str_Tmp
  97. case "Integral","FS_Money","RegTime","Certificate","C_VocationClassID","isLock"
  98. ''数字,日期
  99. regxp = "|<|>|=|<=|>=|<>|"
  100. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  101. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  102. elseif instr(Req_Str,"*")>0 then 
  103. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  104. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  105. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  106. else
  107. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  108. end if
  109. case else
  110. ''字符
  111. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '%"& Req_Str & "%'"
  112. end select 
  113. end if
  114. next
  115. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  116. 'response.Write(This_Fun_Sql)
  117. 'response.End()
  118. end if
  119. Str_Tmp = ""
  120. 'response.Write(This_Fun_Sql)
  121. Set GetUserDataObj_Rs = CreateObject(G_FS_RS)
  122. GetUserDataObj_Rs.Open This_Fun_Sql,User_Conn,1,1
  123. IF not GetUserDataObj_Rs.eof THEN
  125. GetUserDataObj_Rs.PageSize=int_RPP
  126. cPageNo=NoSqlHack(Request.QueryString("Page"))
  127. If cPageNo="" Then cPageNo = 1
  128. If not isnumeric(cPageNo) Then cPageNo = 1
  129. cPageNo = Clng(cPageNo)
  130. If cPageNo<=0 Then cPageNo=1
  131. If cPageNo>GetUserDataObj_Rs.PageCount Then cPageNo=GetUserDataObj_Rs.PageCount 
  132. GetUserDataObj_Rs.AbsolutePage=cPageNo
  134.   FOR int_Start=1 TO int_RPP
  135. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  136. Get_Html = Get_Html & "<td align=""center""><a href=""#"" onclick=""javascript:if(TD_U_"&GetUserDataObj_Rs("UserNumber")&".style.display=='') TD_U_"&GetUserDataObj_Rs("UserNumber")&".style.display='none'; else TD_U_"&GetUserDataObj_Rs("UserNumber")&".style.display='';"" class=""otherset"" title='点击查看更多信息'>"&GetUserDataObj_Rs("UserNumber")&"</a></td>" & vbcrlf
  137. Get_Html = Get_Html & "<td align=""center""><a href=""UserCorp.asp?Act=Edit&UserNumber="&GetUserDataObj_Rs("UserNumber")&""" class=""otherset"" title='点击修改公司信息'>"&GetUserDataObj_Rs("C_Name")&"</a></td>" & vbcrlf
  138. Get_Html = Get_Html & "<td align=""center""><a href=""User_manage.asp?Act=Edit&UserNumber="&GetUserDataObj_Rs("UserNumber")&""" class=""otherset"" title='点击修改该公司注册用户的信息'>"&GetUserDataObj_Rs("UserName")&"</a></td>" & vbcrlf
  139. Get_Html = Get_Html & "<td align=""center"">"& GetUserDataObj_Rs("C_Tel") & "</td>" & vbcrlf
  140. Get_Html = Get_Html & "<td align=""center""><a href=""mailto:"&GetUserDataObj_Rs("Email")&""" title=""发邮件给他"">"& GetUserDataObj_Rs("Email") & "</td>" & vbcrlf
  141. if GetUserDataObj_Rs("C_Website")<>"" then 
  142. Str_Tmp = "<a href="""&GetUserDataObj_Rs("C_Website")&""" target=""_black"" title=""访问公司网站"&GetUserDataObj_Rs("C_Website")&""">网站</a>"
  143. else
  144. Str_Tmp = "暂无" & vbcrlf
  145. end if
  146. Get_Html = Get_Html & "<td align=""center"">" & Str_Tmp & "</td>" & vbcrlf
  147. Get_Html = Get_Html & "<td align=""center"">" & GetUserDataObj_Rs("RegTime") & "</td>" & vbcrlf
  148. if cbool(GetUserDataObj_Rs("isLock")) then 
  149. ''锁定,需要解锁
  150. Get_Html = Get_Html & "<td align=""center""><input type=button value=""锁 定"" onclick=""javascript:location='UserCorp.asp?Act=OtherEdit&EditSql="&server.URLEncode( "isLock=false" )&"&UserNumber="&GetUserDataObj_Rs("UserNumber")&"'"" title=""点击解锁"" style=""color:red""></td>" & vbcrlf
  151. else
  152. Get_Html = Get_Html & "<td align=""center""><input type=button value=""正 常"" onclick=""javascript:location='UserCorp.asp?Act=OtherEdit&EditSql="&server.URLEncode( "isLock=true" )&"&UserNumber="&GetUserDataObj_Rs("UserNumber")&"'"" title=""点击锁定""></td>" & vbcrlf
  153. end if
  154. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""frm_UserNumber"" id=""frm_UserNumber"" value="""&GetUserDataObj_Rs("UserNumber")&""" /></td>" & vbcrlf
  155. Get_Html = Get_Html & "</tr>" & vbcrlf
  156. ''++++++++++++++++++++++++++++++++++++++点开用户编号时显示详细信息。
  157. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_U_"& GetUserDataObj_Rs("UserNumber") &""" style=""display:none""><td colspan=20>" & vbcrlf
  158. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf & "<tr class=""hback"">" & vbcrlf
  159. Get_Html = Get_Html & "<td>" & GetUserDataObj_Rs("C_Province") &" | "& GetUserDataObj_Rs("C_City") &" | "& GetUserDataObj_Rs("C_Address") &" | " & GetUserDataObj_Rs("C_size") &" | "& GetUserDataObj_Rs("C_Capital") & "</td>" & vbcrlf
  160. Get_Html = Get_Html & "</tr></table>" & vbcrlf
  161. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  162. ''+++++++++++++++++++++++++++++++++++++++
  163. Str_Tmp = ""
  164. GetUserDataObj_Rs.MoveNext
  165.   if GetUserDataObj_Rs.eof or GetUserDataObj_Rs.bof then exit for
  166.       NEXT
  167. END IF
  168. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  169. Get_Html = Get_Html & fPageCount(GetUserDataObj_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  170. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  171. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  172. GetUserDataObj_Rs.close
  173. Get_WhileData = Get_Html
  174. End Function
  175. Sub OtherEdit()
  176. User_Conn.execute("Update FS_ME_Users set "&request.QueryString("EditSql")&" where UserNumber='"&request.QueryString("UserNumber")&"'")
  177. 'Conn.execute("Update FS_ME_CorpUser set "&request.QueryString("EditSql")&" where UserNumber='"&request.QueryString("UserNumber")&"'")
  178. response.Redirect("UserCorp.asp?Act=View")
  179. End Sub
  180. ''================================================================
  181. %>
  182. <html xmlns="http://www.w3.org/1999/xhtml">
  183. <HEAD>
  184. <TITLE>FoosunCMS</TITLE>
  185. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  186. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  187. </HEAD>
  188. <script language="JavaScript" type="text/JavaScript">
  189. <!--
  190. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  191.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  192.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  193.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  194. }
  195. MM_reloadPage(true);
  196. //点击标题排序
  197. var Old_Sql = document.URL;
  199. function OrderByName(FildName)
  200. {
  201. //alert(document.URL);
  202. var New_Sql;
  203. if(Old_Sql.indexOf('Add_Sql')<0)
  204. {
  205. if(Old_Sql.indexOf('?')<0)
  206. New_Sql = Old_Sql + "?Add_Sql=order by " + FildName;
  207. else
  208. New_Sql = Old_Sql + "&Add_Sql=order by " + FildName;
  209. }
  210. else
  211. {
  212. if(Old_Sql.indexOf("Add_Sql=order by " + FildName + " desc")>-1)
  213. {
  214. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName;
  215. }
  216. else
  217. {
  218. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName + " desc";
  219. }
  220. }
  221. //alert(New_Sql);
  222. location = New_Sql;
  223. }
  224. -->
  225. </script>
  226. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  227. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  228. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  229. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  230.   <tr  class="hback"> 
  231.     <td class="xingmu" colspan=20>企业用户信息管理</td>
  232.   </tr>
  233.   <tr  class="hback"> 
  234.     <td><a href="UserCorp.asp?Act=View">管理首页</a>
  235. <!-- | <a href="UserCorp.asp?Act=Add"><b>新增</b></a>-->
  236.  | <a href="UserCorp.asp?Act=Search">查询</a></td>
  237.   </tr>
  238. </table>
  239. <%
  240. '******************************************************************
  241. select case request.QueryString("Act")
  242. case "","View","SearchGo"
  243. View
  244. case "Edit","Search","Add_BaseData"
  245. Add_Edit_Search
  246. case "Add"
  247. response.Write("后台添加公司信息已屏蔽。若需开通请与我们联系awen。")
  248. response.End()
  249. case "OtherEdit"
  250. OtherEdit
  251. case else
  252. response.Write(request.QueryString("Act")&"参数传递错误！")
  253. end select
  255. '******************************************************************
  256. Sub View()%>
  257. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  258.   <form name="form1" id="form1" method="post" action="UserCorp_DataAction.asp?Act=Del">
  259.     <tr  class="hback"> 
  260.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('UserNumber')" class="sd"><b>〖用户编号〗</b></a> <span id="Show_Oder_UserNumber"></span></td>
  261.       <td align="center" class="xingmu"><a href="javascript:OrderByName('C_Name')" class="sd"><b>企业名称</b></a> <span id="Show_Oder_C_Name"></span></td>
  262.       <td align="center" class="xingmu"><a href="javascript:OrderByName('UserName')" class="sd"><b>用户名</b></a> <span id="Show_Oder_UserName"></span></td>
  263.   <td align="center" class="xingmu"><a href="javascript:OrderByName('C_Tel')" class="sd"><b>企业电话</b></a> <span id="Show_Oder_C_Tel"></span></td>
  264.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Email')" class="sd"><b>Email</b></a> <span id="Show_Oder_Email"></span></td>
  265.   <td align="center" class="xingmu"><a href="javascript:OrderByName('C_Website')" class="sd"><b>企业网站</b></a> <span id="Show_Oder_C_Website"></span></td>
  266.   <td width="10%" align="center" class="xingmu"><a href="javascript:OrderByName('RegTime')" class="sd"><b>注册日期</b></a> <span id="Show_Oder_RegTime"></span></td>
  267.   <td width="10%" align="center" class="xingmu"><a href="javascript:OrderByName('isLock')" class="sd"><b>是否锁定</b></a> <span id="Show_Oder_isLock"></span></td>
  268.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  269.     </tr>
  270.     <%
  271. response.Write( Get_WhileData( request.QueryString("Add_Sql") ) )
  272. %>
  273.   </form>
  274. </table>
  275. <%End Sub
  277. Sub Add_Edit_Search()
  278. ''添加删除查询共用。
  279. Dim UserNumber,Bol_IsEdit
  280. Bol_IsEdit = false
  281. if request.QueryString("Act")="Edit" then 
  282. UserNumber = NoSqlHack(Trim(request.QueryString("UserNumber")))
  283. if UserNumber="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的UserName没有提供</li>") : response.End()
  284. UserSql = "select UserID,UserName,UserPassword,HeadPic,HeadPicSize,PassQuestion,PassAnswer,safeCode,tel,Mobile,isMessage,Email," _
  285.   &"HomePage,QQ,MSN,Corner,Province,City,Address,PostCode,NickName,RealName,Vocation,Sex,BothYear,Certificate,CertificateCode,IsCorporation,PopList," _
  286.   &"PopList,Integral,FS_Money,RegTime,CloseTime,TempLastLoginTime,TempLastLoginTime_1,IsMarray,SelfIntro,isOpen,GroupID,LastLoginIP," _
  287.   &"ConNumber,ConNumberNews,isLock,UserFavor,MySkin,UserLoginCode,OnlyLogin,hits" _
  289.   &",C_Name,C_ShortName,C_Province,C_City,C_Address,C_PostCode,C_ConactName,C_Tel,C_Fax,C_VocationClassID,C_Website,C_size,C_Capital,C_BankName,C_BankUserName" _
  290.   &" from FS_ME_Users A,FS_ME_CorpUser B where  A.UserNumber=B.UserNumber and A.UserNumber= '"& UserNumber &"'"
  291. Set GetUserDataObj_Rs = CreateObject(G_FS_RS)
  292. GetUserDataObj_Rs.Open UserSql,User_Conn,1,1
  293. if GetUserDataObj_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  294. Bol_IsEdit = True
  295. end if
  296. %>
  298. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  299.     <tr class="hback"> 
  300.       <td width="140" class="xingmu" colspan="3"><%if request.QueryString("Act")<>"Search" then response.Write("会员系统参数设置") else response.Write("查询会员") end if %></td>
  301.     </tr>
  302. <tr class="hback"> 
  303. <td width="33%"  id="Lab_Base"><div align="center"><%if left(request.QueryString("Act"),3)="Add" then 
  304. response.Write("<span class=tx>第一步：企业注册信息</span>") 
  305. elseif request.QueryString("Act")="Search" then 
  306. response.Write("<a href=""#"" onClick=""showDataPanel(1)"">企业注册信息查询模式</a>") 
  307. else
  308. response.Write("<a href=""#"" onClick=""showDataPanel(1)"">企业注册信息设置</a>") 
  309. end if%></div></td>
  310. <td width="33%" height="19" class="xingmu" id="Lab_Other"> <div align="center"><%if left(request.QueryString("Act"),3)="Add" then 
  311. response.Write("<span class=tx>第二步：企业扩展信息</span>") 
  312. elseif request.QueryString("Act")="Search" then 
  313. response.Write("<a href=""#"" onClick=""showDataPanel(2)"">企业扩展信息查询模式</a>") 
  314. else 
  315. response.Write("<a href=""#"" onClick=""showDataPanel(2)"">企业扩展信息设置</a>") 
  316. end if%></div></td>
  317. <td height="19" class="xingmu" id="Lab_Three"> <div align="center"><%if left(request.QueryString("Act"),3)="Add" then 
  318. response.Write("<span class=tx>第三步：公司相关信息</span>") 
  319. elseif request.QueryString("Act")="Search" then 
  320. response.Write("<a href=""#"" onClick=""showDataPanel(3)"">企业相关信息查询模式</a>") 
  321. else 
  322. response.Write("<a href=""#"" onClick=""showDataPanel(3)"">企业相关信息设置</a>") 
  323. end if%></div></td>
  324. </tr>
  325.     <tr class="hback">
  326.       <td align="right"  colspan="3">
  327. <!---基础数据开始-->        
  328.         
  329.       <div id="Layer1" style="position:relative; z-index:1; left: 0px; top: 0px;"> 
  330.         <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  331.           <form name="UserForm" method="post" <%if request.QueryString("Act")="Add" then 
  332.    response.Write(" action=""?Act=Add_BaseData""  onsubmit=""return CheckForm(this);""") 
  333.   elseif request.QueryString("Act")="Search" then 
  334.    response.Write(" action=""?Act=SearchGo""")
  335.   else
  336.    response.Write(" action=""UserCorp_DataAction.asp?Act=BaseData""  onsubmit=""return CheckForm(this);""") 
  337.   end if%>>
  338.             <%if request.QueryString("Act")<>"Search" then%>
  339.             <tr class="hback"> 
  340.               <td height="20" colspan="3" class="xingmu">请填写您的基本资料<span class="tx">(以下项目为空的不修改则请留空)</span></td>
  341.             </tr>
  342.             <%end if%>
  343.             <tr class="hback"> 
  344.               <td width="15%" height="65"> <div align="right">用户名</div></td>
  345.               <td width="29%"><input name="frm_UserName" type="text" id="frm_UserName" style="width:90%" value="<%if Bol_IsEdit then response.Write""&GetUserDataObj_Rs("UserName")&"" end if%>" <%if Bol_IsEdit then response.write "readonly"%> > 
  346.                 <%if request.QueryString("Act")<>"Search" then%>
  347.                 <a href="javascript:CheckName('../../user/lib/CheckName.asp')">是否被占用</a> 
  348.                 <%end if%>
  349.               </td>
  350.               <td width="56%"> 
  351.                 <%if request.QueryString("Act")<>"Search" then%>
  352.                 户名由a～z的英文字母(不区分大小写)、0～9的数字、点、减号或下划线及中文组成，长度为3～18个字符，只能以数字或字母开头和结尾,例如:coolls1980。 
  353.                 <%else%>
  354.                 模糊查询 
  355.                 <%end if%>
  356.               </td>
  357.             </tr>
  358.             <tr class="hback"> 
  359.               <td height="16" colspan="3" class="xingmu">请填写安全设置：（安全设置用于验证帐号和找回密码）</td>
  360.             </tr>
  361.             <%If p_isValidate = 0 and request.QueryString("Act")<>"Search" then%>
  362.             <tr class="hback"> 
  363.               <td height="16"><div align="right">密码</div></td>
  364.               <td><input name="frm_UserPassword" type="password" id="frm_UserPassword" style="width:90%" maxlength="50"></td>
  365.               <td rowspan="2">密码长度为<%=p_LenPassworMin%>～<%=p_LenPassworMax%>位，区分字母大小写。登录密码可以由字母、数字、特殊字符组成。</td>
  366.             </tr>
  367.             <tr class="hback"> 
  368.               <td height="24"> <div align="right">确认密码</div></td>
  369.               <td><input name="frm_cUserPassword" type="password" id="frm_cUserPassword" style="width:90%" maxlength="50"></td>
  370.             </tr>
  371.             <%End if
  372. if request.QueryString("Act") <> "Search" then %>
  373.             <tr class="hback"> 
  374.               <td height="16"><div align="right">密码提示问题</div></td>
  375.               <td><input name="frm_PassQuestion" type="text" id="frm_PassQuestion" style="width:90%" maxlength="30"></td>
  376.               <td rowspan="2">当您忘记密码时可由此找回密码。例如，问题是“我的哥哥是谁？”，答案为&quot;coolls8&quot;。问题长度不大于36个字符，一个汉字占两个字符。答案长度在6～30位之间，区分大小写。</td>
  377.             </tr>
  378.             <tr class="hback"> 
  379.               <td height="16"><div align="right">密码答案</div></td>
  380.               <td><input name="frm_PassAnswer" type="text" id="frm_PassAnswer" style="width:90%" maxlength="50"></td>
  381.             </tr>
  382.             <tr class="hback"> 
  383.               <td height="16"><div align="right">安全码</div></td>
  384.               <td><input name="frm_SafeCode" type="password" id="frm_SafeCode" style="width:90%" maxlength="30"></td>
  385.               <td rowspan="2">全码是您找回密码的重要途径，安全码长度为6～20位，区分字母大小写，由字母、数字、特殊字符组成。<br> 
  386.                 <Span class="tx">特别提醒：安全码一旦设定，将不可自行修改.</Span></td>
  387.             </tr>
  388.             <tr class="hback"> 
  389.               <td height="16"><div align="right">确认安全码</div></td>
  390.               <td><input name="frm_cSafeCode" type="password" id="frm_cSafeCode" style="width:90%" maxlength="30"></td>
  391.             </tr>
  392.             <%end if%>
  393.             <tr class="hback"> 
  394.               <td height="16"><div align="right">电子邮件</div></td>
  395.               <td><input name="frm_Email" type="text" id="frm_Email" style="width:90%" maxlength="100" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Email")) end if%>"> 
  396.                 <%if request.QueryString("Act")<>"Search" then%>
  397.                 <br> <a href="javascript:CheckEmail('../../user/lib/Checkemail.asp')">是否被占用</a> 
  398.                 <%end if%>
  399.               </td>
  400.               <td> 
  401.                 <%if request.QueryString("Act")<>"Search" then%>
  402.                 您的注册电子邮件。<Span class="tx">注册成功后，将不能修改</span> 
  403.                 <%end if%>
  404.               </td>
  405.             </tr>
  406.             <!--会员类型。-->
  407.             <input type="hidden" name="frm_UserNumber_Edit1" value="<%=UserNumber%>">
  408.             <tr class="hback"> 
  409.               <td height="39" colspan="3"> <div align="center"> 
  410.                   <input type="submit" name="Submit" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存企业基本信息 ") end if%>" style="CURSOR:hand">
  411.                   <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  412.                 </div></td>
  413.             </tr>
  414.           </form>
  415.         </table>
  416.       </div>   
  417. <!---基础数据结束-->      
  419.       <div id="Layer2" style="position:relative; z-index:1; left: 0px; top: 0px; width: 889px; height: 942px;"> 
  420.         <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  421.           <form name="UserForm" method="post"<%if request.QueryString("Act")="Add_BaseData" then 
  422.    response.Write(" action=""UserCorp_DataAction.asp?Act=Add_OtherData""  onsubmit=""return CheckForm_Other(this);""") 
  423.   elseif request.QueryString("Act")="Search" then 
  424.    response.Write(" action=""?Act=SearchGo""")
  425.   else
  426.    response.Write(" action=""UserCorp_DataAction.asp?Act=OtherData""  onsubmit=""return CheckForm_Other(this);""") 
  427.   end if%>>
  428.             <tr class="hback"> 
  429.               <td height="27"><div align="right"><span class="tx">*</span>昵称</div></td>
  430.               <td><input name="frm_NickName" type="text" id="frm_NickName" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("NickName")) end if%>"></td>
  431.               <td>
  432.                 <%if request.QueryString("Act")<>"Search" then%>
  433.                 请填写您对外的昵称。可以为中文 
  434.                 <%end if%>
  435.               </td>
  436.             </tr>
  437.             <tr class="hback"> 
  438.               <td width="15%" height="27"> <div align="right">姓名</div></td>
  439.               <td width="29%"><input name="frm_RealName" type="text" id="frm_RealName" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("RealName")) end if%>"> 
  440.               </td>
  441.               <td width="56%">
  442.                 <%if request.QueryString("Act")<>"Search" then%>
  443.                 请填写您的真实姓名。 
  444.                 <%end if%>
  445.               </td>
  446.             </tr>
  447.             <tr class="hback"> 
  448.               <td height="16"><div align="right"><span class="tx">*</span>性别</div></td>
  449.               <td> <input type="radio" name="frm_Sex" value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("Sex")=0 then response.Write("checked") end if else if request.QueryString("Act")<>"Search" then response.Write("checked") end if end if%>>
  450.                 男 
  451.                 <input type="radio" name="frm_Sex" value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("Sex")=1 then response.Write("checked") end if end if%>>
  452.                 女 </td>
  453.               <td>
  454.                 <%if request.QueryString("Act")<>"Search" then%>
  455.                 请您选择性别。 
  456.                 <%end if%>
  457.               </td>
  458.             </tr>
  459.             <tr class="hback"> 
  460.               <td height="24" align="right">生日</td>
  461.               <td> <input type="text" name="frm_BothYear" style="width:60%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("BothYear")) end if%>" readonly> 
  462.                 <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_BothYear);"></td>
  463.               <td>
  464.                 <%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("请填写您的真实生日，该项用于取回密码。") end if%>
  465.               </td>
  466.             </tr>
  467.             <tr class="hback"> 
  468.               <td height="16"><div align="right">证件类别</div></td>
  469.               <td> <select name=frm_Certificate  id="frm_Certificate">
  470.                   <%if request.QueryString("Act")="Search" then response.Write("<option value="""">请选择</option>") end if%>
  471.                   <option value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=0 then response.Write("selected") end if else if request.QueryString("Act")<>"Search" then response.Write("selected") end if end if%>>身份证</option>
  472.                   <option value="2" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=2 then response.Write("selected") end if end if%>>学生证</option>
  473.                   <option value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=1 then response.Write("selected") end if end if%>>驾驶证</option>
  474.                   <option value="3" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=3 then response.Write("selected") end if end if%>>军人证</option>
  475.                   <option value="4" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=4 then response.Write("selected") end if end if%>>护照</option>
  476.                 </select> </td>
  477.               <td rowspan="2">
  478.                 <%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("有效证件作为取回帐号的最后手段，用以核实帐号的合法身份，请您务必如实填写。<br> <span class=""tx"">特别提醒：有效证件一旦设定，不可更改</span>") end if%>
  479.               </td>
  480.             </tr>
  481.             <tr class="hback"> 
  482.               <td height="16"><div align="right">证件号码</div></td>
  483.               <td><input name="frm_CerTificateCode" type="text" id="frm_CerTificateCode" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("CerTificateCode")) end if%>"></td>
  484.             </tr>
  485.             <tr class="hback"> 
  486.               <td height="24" align="right">您现在所在的省份</td>
  487.               <td> <input type="text" name="frm_Province" readonly="" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Province")) end if%>"></td>
  488.               <td><select name="select111" size=1 onChange="javascript:frm_Province.value=this.options[this.selectedIndex].value">
  489.                   <option value="">请选择</option>
  490.                   <option value="四川">四川</option>
  491.                   <option value="北京">北京</option>
  492.                   <option value="上海">上海</option>
  493.                   <option value="天津">天津</option>
  494.                   <option value="重庆">重庆</option>
  495.                   <option value="安徽">安徽</option>
  496.                   <option value="甘肃">甘肃</option>
  497.                   <option value="广东">广东</option>
  498.                   <option value="广西">广西</option>
  499.                   <option value="贵州">贵州</option>
  500.                   <option value="福建">福建</option>
  501.                   <option value="海南">海南</option>
  502.                   <option value="河北">河北</option>
  503.                   <option value="河南">河南</option>
  504.                   <option value="黑龙江">黑龙江</option>
  505.                   <option value="湖北">湖北</option>
  506.                   <option value="湖南">湖南</option>
  507.                   <option value="吉林">吉林</option>
  508.                   <option value="江苏">江苏</option>
  509.                   <option value="江西">江西</option>
  510.                   <option value="辽宁">辽宁</option>
  511.                   <option value="内蒙古">内蒙古</option>
  512.                   <option value="宁夏">宁夏</option>
  513.                   <option value="青海">青海</option>
  514.                   <option value="山东">山东</option>
  515.                   <option value="山西">山西</option>
  516.                   <option value="陕西">陕西</option>
  517.                   <option value="西藏">西藏</option>
  518.                   <option value="新疆">新疆</option>
  519.                   <option value="云南">云南</option>
  520.                   <option value="浙江">浙江</option>
  521.                   <option value="港澳台">港澳台</option>
  522.                   <option value="海外">海外</option>
  523.                   <option value="其它">其它</option>
  524.                 </select></td>
  525.             </tr>
  526.             <tr class="hback"> 
  527.               <td height="16"><div align="right">城市</div></td>
  528.               <td height="16"><input name="frm_City" type="text" id="frm_City" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("City")) end if%>"></td>
  529.               <td height="16">您现在所在的城市</td>
  530.             </tr>
  531.             <tr class="hback"> 
  532.               <td height="16"><div align="right">联系地址</div></td>
  533.               <td height="16"><input name="frm_Address" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Address")) end if%>"></td>
  534.               <td height="16">您的联系地址</td>
  535.             </tr>
  536.             <tr class="hback"> 
  537.               <td height="16"><div align="right">邮政编码</div></td>
  538.               <td height="16"><input name="frm_PostCode" type="text"  size="6" maxlength="6" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("PostCode")) end if%>"></td>
  539.               <td height="16">邮政编码</td>
  540.             </tr>
  541.             <tr class="hback"> 
  542.               <td height="16"><div align="right">头像地址</div></td>
  543.               <td height="16"><input name="frm_HeadPic" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HeadPic")) end if%>"></td>
  544.               <td height="16">您的头像地址</td>
  545.             </tr>
  546.             <tr class="hback"> 
  547.               <td height="16"><div align="right">头像尺寸</div></td>
  548.               <td height="16"><input name="frm_HeadPicSize" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HeadPicSize")) end if%>"></td>
  549.               <td height="16">格式：[宽,高]如60,60 80,80 120,140</td>
  550.             </tr>
  551.             <tr class="hback"> 
  552.               <td height="16"><div align="right">私人电话</div></td>
  553.               <td height="16"><input name="frm_tel" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("tel")) end if%>"></td>
  554.               <td height="16">您的电话</td>
  555.             </tr>
  556.             <tr class="hback"> 
  557.               <td height="16"><div align="right">手机</div></td>
  558.               <td height="16"><input name="frm_Mobile" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Mobile")) end if%>"></td>
  559.               <td height="16">您的手机</td>
  560.             </tr>
  561.             <tr class="hback" id="tr_isMessage"> 
  562.               <td height="16"><div align="right">短信验证手机</div></td>
  563.               <td height="16"> <input type="checkbox" name="frm_isMessage" value="1"<%if Bol_IsEdit then if GetUserDataObj_Rs("isMessage")=1 then response.Write(" checked") end if end if%>> 
  564.               </td>
  565.               <td height="16">是否通过短信验证手机,并捆绑 如果选择是,需要通信网关</td>
  566.             </tr>
  567.             <tr class="hback"> 
  568.               <td height="16"><div align="right">企业网站</div></td>
  569.               <td height="16"><input name="frm_HomePage" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HomePage")) end if%>"></td>
  570.               <td height="16">您企业的网站</td>
  571.             </tr>
  572.             <tr class="hback"> 
  573.               <td height="16"><div align="right">QQ</div></td>
  574.               <td height="16"><input name="frm_QQ" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("QQ")) end if%>"></td>
  575.               <td height="16">您常用的腾讯QQ号码</td>
  576.             </tr>
  577.             <tr class="hback"> 
  578.               <td height="16"><div align="right">MSN</div></td>
  579.               <td height="16"><input name="frm_MSN" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("MSN")) end if%>"></td>
  580.               <td height="16">您常用的MSN帐户</td>
  581.             </tr>
  582.             <tr class="hback"> 
  583.               <td height="16"><div align="right">您现在的职业</div></td>
  584.               <td height="16"><input name="frm_Vocation" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Vocation")) end if%>"></td>
  585.               <td height="16">您现在所从事的职业</td>
  586.             </tr>
  587.             <tr class="hback"> 
  588.               <td height="16"><div align="right">积分</div></td>
  589.               <td height="16"><input name="frm_Integral" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Integral")) end if%>" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')"></td>
  590.               <td height="16"><a href="Integral.asp">[点这里查看详细积分管理]</a></td>
  591.             </tr>
  592.             <tr class="hback"> 
  593.               <td height="16"><div align="right">金币</div></td>
  594.               <td height="16"><input name="frm_FS_Money" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("FS_Money")) end if%>" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')"></td>
  595.               <td height="16">您的金币和当地金钱等价</td>
  596.             </tr>
  597.             <tr class="hback"> 
  598.               <td height="16"><div align="right">临时登陆时间</div></td>
  599.               <td height="16"><input name="frm_TempLastLoginTime" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("TempLastLoginTime")) end if%>"></td>
  600.               <td height="16">记录某天内登陆的第一次登陆时间，以方便结算金钱</td>
  601.             </tr>
  602.             <tr class="hback"> 
  603.               <td height="16"><div align="right">临时登陆时间</div></td>
  604.               <td height="16"><input name="frm_TempLastLoginTime_1" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("TempLastLoginTime_1")) end if%>"></td>
  605.               <td height="16">以方便记录积分</td>
  606.             </tr>
  607.             <tr class="hback"> 
  608.               <td height="16"><div align="right">会员到期日期</div></td>
  609.               <td height="16"><input name="frm_CloseTime" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("CloseTime")) else if request.QueryString("Act")<>"Search" then response.Write("3000-1-1") end if end if%>"></td>
  610.               <td height="16">格式：2006-6-4,如果为3000-1-1,表示不过期</td>
  611.             </tr>
  612.             <tr class="hback"> 
  613.               <td height="16"><div align="right">婚否</div></td>
  614.               <td height="16"> <select name="frm_IsMarray">
  615.                   <%if request.QueryString("Act")="Search" then %>
  616.                   <option>请选择</option>
  617.                   <%end if%>
  618.                   <option value="2"<%if Bol_IsEdit then if GetUserDataObj_Rs("IsMarray")=2 then response.Write(" selected") end if else if request.QueryString("Act")<>"Search" then response.Write(" selected") end if end if%>>未婚</option>
  619.                   <option value="1"<%if Bol_IsEdit then if GetUserDataObj_Rs("IsMarray")=1 then response.Write(" selected") end if end if%>>已婚</option>
  620.                 </select> </td>
  621.               <td height="16">&nbsp;</td>
  622.             </tr>
  623.             <tr class="hback"> 
  624.               <td height="16"><div align="right">自我介绍</div></td>
  625.               <td height="16"><textarea name="frm_SelfIntro" cols="30" rows="6"><%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("SelfIntro")) end if%></textarea></td>
  626.               <td height="16">您的自我介绍</td>
  627.             </tr>
  628.             <tr class="hback"> 
  629.               <td height="16"><div align="right">您的爱好</div></td>
  630.               <td height="16"><input name="frm_UserFavor" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("UserFavor")) end if%>"></td>
  631.               <td height="16">您的爱好</td>
  632.             </tr>
  633.             <tr class="hback"> 
  634.               <td height="16"><div align="right">所属会员组</div></td>
  635.               <td height="16"> <select name="frm_GroupID">
  636.                   <%if request.QueryString("Act")="Search" then %>
  637.                   <option>请选择</option>
  638.                   <%end if%>
  639.                   <option value="0" style="color:#FF0000"<%if request.QueryString("Act")<>"Search" then response.Write(" selected") end if%>>不分组</option>
  640.                   <%if Bol_IsEdit then 
  641. response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group",GetUserDataObj_Rs("GroupID"),1))
  642. else
  643. response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group","",1))
  644. end if
  645. %>
  646.                 </select> </td>
  647.               <td height="16">&nbsp;</td>
  648.             </tr>
  649.             <tr class="hback"> 
  650.               <td height="16"><div align="right">是否开启资料</div></td>
  651.               <td height="16"> <input type="radio" name="frm_isOpen" value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("isOpen")=0 then response.Write("checked") end if end if%>>
  652.                 关闭 
  653.                 <input type="radio" name="frm_isOpen" value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("isOpen")=1 then response.Write("checked") end if else if request.QueryString("Act")<>"Search" then response.Write("checked") end if end if%>>
  654.                 开放 </td>
  655.               <td height="16">外人是否可见</td>
  656.             </tr>
  657.             <tr class="hback"> 
  658.               <td height="16"><div align="right">是否锁定该用户</div></td>
  659.               <td height="16"> <input type="radio" name="frm_isLock" value="0" <%if Bol_IsEdit then
  660.  if GetUserDataObj_Rs("isLock")=0 then
  661.  response.Write("checked")
  662.  end if 
  663.  else
  664.  if request.QueryString("Act")<>"Search" then
  665. if p_RegisterCheck = 0 then
  666. response.Write("checked") 
  667. end if 
  668.  end if 
  669. end if%>>
  670.                 不锁定 
  671.                 <input type="radio" name="frm_isLock" value="1" <%if Bol_IsEdit then
  672.  if GetUserDataObj_Rs("isLock")=1 then
  673.  response.Write("checked")
  674.  end if 
  675.  else
  676.  if request.QueryString("Act")<>"Search" then
  677. if p_RegisterCheck = 1 then
  678. response.Write("checked") 
  679. end if 
  680.  end if 
  681. end if%>>
  682.                 锁定 </td>
  683.               <td height="16">锁定后该用户将无法登陆</td>
  684.             </tr>
  685.             <tr class="hback"> 
  686.               <td height="16"><div align="right">是否允许多人登陆</div></td>
  687.               <td height="16"> <input type="radio" name="frm_OnlyLogin" value="0" <%if Bol_IsEdit then if GetUserDataObj_Rs("OnlyLogin")=0 then response.Write("checked") end if end if%>>
  688.                 不允许 
  689.                 <input type="radio" name="frm_OnlyLogin" value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("OnlyLogin")=1 then response.Write("checked") end if else if request.QueryString("Act")<>"Search" then response.Write("checked") end if end if%>>
  690.                 允许 </td>
  691.               <td height="16">如果不选定则表示不允许</td>
  692.             </tr>
  693.             <tr class="hback"> 
  694.               <td colspan="3" align="center"> 
  695.                 <%if request.QueryString("Act")="Add_BaseData" then %>
  696.                 <input name="frm_UserNumber_Edit2" type="hidden" value="<% = request.Form("frm_UserNumber") %>"> 
  697.                 <input name="frm_UserName" type="hidden" value="<% = request.Form("frm_UserName") %>"> 
  698.                 <input name="frm_UserPassword" type="hidden"  value="<% = request.Form("frm_UserPassword") %>"> 
  699.                 <input name="frm_PassQuestion" type="hidden" value="<% = request.Form("frm_PassQuestion") %>"> 
  700.                 <input name="frm_PassAnswer" type="hidden" value="<% = request.Form("frm_PassAnswer") %>"> 
  701.                 <input name="frm_SafeCode" type="hidden" value="<% = request.Form("frm_SafeCode") %>"> 
  702.                 <input name="frm_Email" type="hidden" value="<% = request.Form("frm_Email") %>"> 
  703.                 <%else%>
  704.                 <input name="frm_UserNumber_Edit2" type="hidden" value="<% = UserNumber %>"> 
  705.                 <%end if%>
  706.                 <input type="submit" name="OtherSubmitButtont" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存企业扩展信息 ") end if%>" /> 
  707.                 <input type="reset" name="Submit2" value=" 重置 " /> </td>
  708.             </tr>
  709.           </form>
  710.         </table>
  711.       </div>
  712.  
  713.       <div id="Layer3" style="position:relative;z-index:1; left: 0px; top: 0px;"> 
  714.         <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  715.           <form name="UserForm" method="post"<%if request.QueryString("Act")="Add_OtherData" then 
  716.    response.Write(" action=""UserCorp_DataAction.asp?Act=Add_AllData""  onsubmit=""return CheckForm_Three(this);""") 
  717.   elseif request.QueryString("Act")="Search" then 
  718.    response.Write(" action=""?Act=SearchGo""")
  719.   else
  720.    response.Write(" action=""UserCorp_DataAction.asp?Act=ThreeData""  onsubmit=""return CheckForm_Three(this);""") 
  721.   end if%>>
  722.             <tr class="hback"> 
  723.               <td height="16"><div align="right"><span class="tx">*</span>公司名称</div></td>
  724.               <td><input name="frm_C_Name" type="text" id="frm_C_Name" style="width:90%" maxlength="50" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Name")) end if%>"></td>
  725.               <td>
  726.                 <%if request.QueryString("Act")="Search" then response.Write("模糊查询") else response.Write("请填写您公司的全称") end if%>
  727.               </td>
  728.             </tr>
  729.             <tr class="hback"> 
  730.               <td height="16"><div align="right">公司简称</div></td>
  731.               <td><input name="frm_C_ShortName" type="text" id="frm_C_ShortName" style="width:90%" maxlength="30" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_ShortName")) end if%>"></td>
  732.               <td>
  733.                 <%if request.QueryString("Act")<>"Search" then%>
  734.                 请填写您公司的简单称呼 
  735.                 <%end if%>
  736.               </td>
  737.             </tr>
  738.             <tr class="hback"> 
  739.               <td height="24" align="right">请填写您公司所在的省份</td>
  740.               <td> <input type="text" name="frm_C_Province" readonly="" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Province")) end if%>"></td>
  741.               <td><select name="select111" size=1 onChange="javascript:frm_C_Province.value=this.options[this.selectedIndex].value">
  742.                   <option value="">请选择</option>
  743.                   <option value="四川">四川</option>
  744.                   <option value="北京">北京</option>
  745.                   <option value="上海">上海</option>
  746.                   <option value="天津">天津</option>
  747.                   <option value="重庆">重庆</option>
  748.                   <option value="安徽">安徽</option>
  749.                   <option value="甘肃">甘肃</option>
  750.                   <option value="广东">广东</option>
  751.                   <option value="广西">广西</option>
  752.                   <option value="贵州">贵州</option>
  753.                   <option value="福建">福建</option>
  754.                   <option value="海南">海南</option>
  755.                   <option value="河北">河北</option>
  756.                   <option value="河南">河南</option>
  757.                   <option value="黑龙江">黑龙江</option>
  758.                   <option value="湖北">湖北</option>
  759.                   <option value="湖南">湖南</option>
  760.                   <option value="吉林">吉林</option>
  761.                   <option value="江苏">江苏</option>
  762.                   <option value="江西">江西</option>
  763.                   <option value="辽宁">辽宁</option>
  764.                   <option value="内蒙古">内蒙古</option>
  765.                   <option value="宁夏">宁夏</option>
  766.                   <option value="青海">青海</option>
  767.                   <option value="山东">山东</option>
  768.                   <option value="山西">山西</option>
  769.                   <option value="陕西">陕西</option>
  770.                   <option value="西藏">西藏</option>
  771.                   <option value="新疆">新疆</option>
  772.                   <option value="云南">云南</option>
  773.                   <option value="浙江">浙江</option>
  774.                   <option value="港澳台">港澳台</option>
  775.                   <option value="海外">海外</option>
  776.                   <option value="其它">其它</option>
  777.                 </select></td>
  778.             </tr>
  779.             <tr class="hback"> 
  780.               <td height="0"><div align="right">公司所在城市</div></td>
  781.               <td><input name="frm_C_City" type="text" id="frm_C_City" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_City")) end if%>"></td>
  782.               <td>您公司所在的城市</td>
  783.             </tr>
  784.             <tr class="hback"> 
  785.               <td height="0"><div align="right"><span class="tx">*</span>公司地址</div></td>
  786.               <td><input name="frm_C_Address" type="text" id="frm_C_Address" style="width:90%" maxlength="100" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Address")) end if%>"></td>
  787.               <td>您公司的地址</td>
  788.             </tr>
  789.             <tr class="hback"> 
  790.               <td height="0"><div align="right"><span class="tx">*</span>邮政编码</div></td>
  791.               <td><input name="frm_C_PostCode" type="text" id="frm_C_PostCode" style="width:90%" maxlength="6" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_PostCode")) end if%>"></td>
  792.               <td>您公司的邮政编码</td>
  793.             </tr>
  794.             <tr class="hback"> 
  795.               <td height="0"><div align="right"><span class="tx">*</span>公司联系人</div></td>
  796.               <td><input name="frm_C_ConactName" type="text" id="frm_C_ConactName" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_ConactName")) end if%>"></td>
  797.               <td>公司联系人</td>
  798.             </tr>
  799.             <tr class="hback"> 
  800.               <td height="0"><div align="right"><span class="tx">*</span>公司联系电话</div></td>
  801.               <td><input name="frm_C_Tel" type="text" id="frm_C_Tel" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Tel")) end if%>"></td>
  802.               <td>公司联系电话。有分机请用&quot;-&quot;分开，如：028-85098980-606</td>
  803.             </tr>
  804.             <tr class="hback"> 
  805.               <td height="1"><div align="right">公司传真</div></td>
  806.               <td><input name="frm_C_Fax" type="text" id="frm_C_Fax" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Fax")) end if%>"></td>
  807.               <td>公司传真。有分机请用&quot;-&quot;分开，如：028-85098980-606</td>
  808.             </tr>
  809.             <tr class="hback"> 
  810.               <td height="3"><div align="right"><span class="tx">*</span>行业</div></td>
  811.               <td><input name="frm_C_VocationClassName" type="text" id="frm_C_VocationClassName" style="width:90%" readonly value="<%if Bol_IsEdit then response.Write(Get_OtherTable_Value("select vClassName from FS_ME_VocationClass where VCID="&GetUserDataObj_Rs("C_VocationClassID")&"")) end if%>">
  812.   <input type="hidden" name="frm_C_VocationClassID" id="frm_C_VocationClassID" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_VocationClassID")) end if%>">
  813.   </td>
  814.               <td><input type="button" name="Submit3" value="选择行业" onClick="SelectClass();">
  815.                 公司所在的行业</td>
  816.             </tr>
  817.             <tr class="hback"> 
  818.               <td height="8"><div align="right">公司网站</div></td>
  819.               <td><input name="frm_C_Website" type="text" id="frm_C_Website" style="width:90%" maxlength="200" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_Website")) end if%>"></td>
  820.               <td>公司所在的企业站点</td>
  821.             </tr>
  822.             <tr class="hback"> 
  823.               <td height="16"><div align="right">公司规模</div></td>
  824.               <td><select name="frm_C_size" id="frm_C_size">
  825.                   <%if request.QueryString("Act")="Search" then response.Write("<option value="""">请选择</option>") end if%>
  826.                   <option value="1-20人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="1-20人" then response.Write(" selected") else if request.QueryString("Act")<>"Search" then response.Write(" selected") end if end if%>>1-20人</option>
  827.                   <option value="21-50人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="21-50人" then response.Write(" selected") end if%>>21-50人</option>
  828.                   <option value="51-100人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="51-100人" then response.Write(" selected") end if%>>51-100人</option>
  829.                   <option value="101-200人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="101-200人" then response.Write(" selected") end if%>>101-200人</option>
  830.                   <option value="201-500人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="201-500人" then response.Write(" selected") end if%>>201-500人</option>
  831.                   <option value="501-1000人"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="501-1000人" then response.Write(" selected") end if%>>501-1000人</option>
  832.                   <option value="1000人以上"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_size")="1000人以上" then response.Write(" selected") end if%>>1000人以上</option>
  833.                 </select></td>
  834.               <td>&nbsp;</td>
  835.             </tr>
  836.             <tr class="hback"> 
  837.               <td height="1"><div align="right">公司注册资本</div></td>
  838.               <td><select name="frm_C_Capital" id="frm_C_Capital">
  839.                   <option value="10万以下"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="10万以下" then response.Write(" selected") end if%>>10万以下</option>
  840.                   <option value="10万-19万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="10万-19万" then response.Write(" selected") end if%>>10万-19万</option>
  841.                   <option value="20万-49万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="20万-49万" then response.Write(" selected") end if%>>20万-49万</option>
  842.                   <option value="50万-99万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="50万-99万" then response.Write(" selected") else if request.QueryString("Act")<>"Search" then response.Write(" selected") end if end if%>>50万-99万</option>
  843.                   <option value="100万-199万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="100万-199万" then response.Write(" selected") end if%>>100万-199万</option>
  844.                   <option value="200万-499万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="200万-499万" then response.Write(" selected") end if%>>200万-499万</option>
  845.                   <option value="500万-999万"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="500万-999万" then response.Write(" selected") end if%>>500万-999万</option>
  846.                   <option value="1000万以上"<%if Bol_IsEdit then if GetUserDataObj_Rs("C_Capital")="1000万以上" then response.Write(" selected") end if%>>1000万以上</option>
  847.                 </select></td>
  848.               <td>&nbsp;</td>
  849.             </tr>
  850.             <tr class="hback"> 
  851.               <td height="3"><div align="right">开户银行</div></td>
  852.               <td><input name="frm_C_BankName" type="text" id="frm_C_BankName" style="width:90%" maxlength="50" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_BankName")) end if%>"></td>
  853.               <td rowspan="2"><p>公司银行帐户，以方便放在您的联系资料中。<br>
  854.                   开户银行例子：中国工商银行成都分行双楠分理处<br>
  855.                   银行帐户名：</p></td>
  856.             </tr>
  857.             <tr class="hback"> 
  858.               <td height="8"><div align="right">银行帐号及帐户名</div></td>
  859.               <td><textarea name="frm_C_BankUserName" cols="30" rows="4" id="frm_C_BankUserName"><%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("C_BankUserName")) end if%></textarea></td>
  860.             <tr class="hback"> 
  861.               <td colspan="3" align="center"> 
  862.                 <%if request.QueryString("Act")="Add_OtherData" then %>
  863.                 <input name="frm_UserNumber_Edit3" type="hidden" value="<% = request.Form("frm_UserNumber") %>"> 
  864.                 <input name="frm_UserName" type="hidden" value="<% = request.Form("frm_UserName") %>"> 
  865.                 <input name="frm_UserPassword" type="hidden"  value="<% = request.Form("frm_UserPassword") %>"> 
  866.                 <input name="frm_PassQuestion" type="hidden" value="<% = request.Form("frm_PassQuestion") %>"> 
  867.                 <input name="frm_PassAnswer" type="hidden" value="<% = request.Form("frm_PassAnswer") %>"> 
  868.                 <input name="frm_SafeCode" type="hidden" value="<% = request.Form("frm_SafeCode") %>"> 
  869.                 <input name="frm_Email" type="hidden" value="<% = request.Form("frm_Email") %>"> 
  870.                 <!--扩展-->
  871.                 <input name="frm_HeadPic" type="hidden" value="<% = request.Form("frm_HeadPic") %>"> 
  872.                 <input name="frm_HeadPicSize" type="hidden" value="<% = request.Form("frm_HeadPicSize") %>"> 
  873.                 <input name="frm_tel" type="hidden" value="<% = request.Form("frm_tel") %>"> 
  874.                 <input name="frm_Mobile" type="hidden" value="<% = request.Form("frm_Mobile") %>"> 
  875.                 <input name="frm_isMessage" type="hidden" value="<% = request.Form("frm_isMessage") %>"> 
  876.                 <input name="frm_HomePage" type="hidden" value="<% = request.Form("frm_HomePage") %>"> 
  877.                 <input name="frm_QQ" type="hidden" value="<% = request.Form("frm_QQ") %>"> 
  878.                 <input name="frm_MSN" type="hidden" value="<% = request.Form("frm_MSN") %>"> 
  879.                 <input name="frm_Address" type="hidden" value="<% = request.Form("frm_Address") %>"> 
  880.                 <input name="frm_PostCode" type="hidden" value="<% = request.Form("frm_PostCode") %>"> 
  881.                 <input name="frm_Vocation" type="hidden" value="<% = request.Form("frm_Vocation") %>"> 
  882.                 <input name="frm_Integral" type="hidden" value="<% = request.Form("frm_Integral") %>"> 
  883.                 <input name="frm_FS_Money  type="hidden" value="<% = request.Form("frm_FS_Money") %>"> 
  884.                 <input name="frm_TempLastLoginTime" type="hidden" value="<% = request.Form("frm_TempLastLoginTime") %>"> 
  885.                 <input name="frm_TempLastLoginTime_1" type="hidden" value="<% = request.Form("frm_TempLastLoginTime_1") %>"> 
  886.                 <input name="frm_CloseTime" type="hidden" value="<% = request.Form("frm_CloseTime") %>"> 
  887.                 <input name="frm_IsMarray" type="hidden" value="<% = request.Form("frm_IsMarray") %>"> 
  888.                 <input name="frm_isOpen" type="hidden" value="<% = request.Form("frm_isOpen") %>"> 
  889.                 <input name="frm_GroupID" type="hidden" value="<% = request.Form("frm_GroupID") %>"> 
  890.                 <input name="frm_isLock" type="hidden" value="<% = request.Form("frm_isLock") %>"> 
  891.                 <input name="frm_UserFavor" type="hidden" value="<% = request.Form("frm_UserFavor") %>"> 
  892.                 <input name="frm_OnlyLogin" type="hidden" value="<% = request.Form("frm_OnlyLogin") %>"> 
  893.                 <%else%>
  894.                 <input name="frm_UserNumber_Edit3" type="hidden" value="<% = UserNumber %>"> 
  895.                 <%end if%>
  896.                 <input type="submit" name="OtherSubmitButtont" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存企业相关信息 ") end if%>" /> 
  897.                 <input type="reset" name="Submit2" value=" 重置 " /> </td>
  898.             </tr>
  899.           </form>
  900.         </table>
  901.       </div>
  902.   </td>
  903.     </tr>
  904. </table>
  905. <%End Sub%>
  906. </body>
  907. <%
  908. Set GetUserDataObj_Rs=nothing
  909. User_Conn.close
  910. Set User_Conn=nothing
  911. %>
  912. <script language="JavaScript">
  913. <!--//判断后将排序完善.字段名后面显示指示
  914. var Req_FildName;
  915. var New_FildName='';
  916. if (Old_Sql.indexOf("Add_Sql=order by ")>-1)
  917. {
  918. if(Old_Sql.indexOf(" desc")>-1)
  919. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.indexOf(" desc"));
  920. else
  921. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.length);
  923. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  924. {
  925. if(Old_Sql.indexOf(Req_FildName + " desc")>-1)
  926. {
  927. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  928. }
  929. else
  930. {
  931. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  932. }
  933. }
  934. }
  935. function SelectClass()
  936. {
  937. var ReturnValue='',TempArray=new Array();
  938. ReturnValue = OpenWindow('../../<%=G_USER_DIR%>/lib/SelectClassFrame.asp',400,300,window);
  939. if (ReturnValue.indexOf('***')!=-1)
  940. {
  941. TempArray = ReturnValue.split('***');
  942. document.all.frm_C_VocationClassID.value=TempArray[0]
  943. document.all.frm_C_VocationClassName.value=TempArray[1]
  944. }
  945. }
  947. <%if instr(",Add,Edit,Search,Add_BaseData,",","&request.QueryString("Act")&",")>0 then%>
  948. //展开层
  949. var selected="Lab_Base";
  951. <%if request.QueryString("Act")="Add_BaseData" then%>
  952. showDataPanel(2); //添加时提交基础数据后，显示第二个。
  953. <%else%>
  954. showDataPanel(1); //加载时显示第一个.
  955. <%end if%>
  956. function showDataPanel(Data)
  957. {
  958. switch(Data)
  959. {
  960. case 1:
  961. document.getElementById("Layer1").style.display="block";
  962. document.getElementById("Layer2").style.display="none";
  963. document.getElementById("Layer3").style.display="none";
  964. document.getElementById("Lab_Base").className ="";
  965. if(selected!="Lab_Base")
  966. document.getElementById(selected).className ="xingmu";
  967. selected="Lab_Base";
  968. break;
  969. case 2:
  970. document.getElementById("Layer1").style.display="none";
  971. document.getElementById("Layer2").style.display="block";
  972. document.getElementById("Layer3").style.display="none";
  973. document.getElementById("Lab_Other").className="";
  974. if(selected!="Lab_Other")
  975. document.getElementById(selected).className ="xingmu";
  976. selected="Lab_Other";
  977. break;
  978. case 3:
  979. document.getElementById("Layer1").style.display="none";
  980. document.getElementById("Layer2").style.display="none";
  981. document.getElementById("Layer3").style.display="block";
  982. document.getElementById("Lab_Three").className="";
  983. if(selected!="Lab_Three")
  984. document.getElementById(selected).className ="xingmu";
  985. selected="Lab_Three";
  986. break;
  987. }
  988. }
  989. <%end if%>
  990. function CheckForm(obj)
  991. {
  992. <%if p_AllowChineseName = 0 then%>
  994. obj.frm_UserName.dataType='LimitB';
  995. obj.frm_UserName.min='<%=p_NumLenMin%>';
  996. obj.frm_UserName.max='<%=p_NumLenMax%>';
  997. obj.frm_UserName.msg='用户名必须在[<%=p_NumLenMin%>-<%=p_NumLenMax%>]个字节之间。';
  999. if( strlen2(obj.frm_UserName.value) ) {
  1000. alert("您的用户名不能有非法字符,或者中文字符")
  1001. obj.frm_UserName.focus();
  1002. return false;
  1003. }
  1004. <%else%>
  1005. obj.frm_UserName.dataType='Limit';
  1006. obj.frm_UserName.min='<%=p_NumLenMin%>';
  1007. obj.frm_UserName.max='<%=p_NumLenMax%>';
  1008. obj.frm_UserName.msg='用户名必须在[<%=p_NumLenMin%>-<%=p_NumLenMax%>]个字符之间。';
  1009. <%End if%>
  1011. <%if p_isValidate = 0 then%>
  1012.  
  1013. obj.frm_UserPassword.dataType="LimitB";
  1014. obj.frm_UserPassword.require="false";
  1015. obj.frm_UserPassword.min='<%=p_LenPassworMin%>';
  1016. obj.frm_UserPassword.max='<%=p_LenPassworMax%>';
  1017. obj.frm_UserPassword.msg='密码必须在[<%=p_LenPassworMin%>-<%=p_LenPassworMax%>]个字节之间。';
  1019. obj.frm_cUserPassword.dataType="Repeat";
  1020. obj.frm_cUserPassword.require="false";
  1021. obj.frm_cUserPassword.to="frm_UserPassword";
  1022. obj.frm_cUserPassword.msg="两次输入的密码不一致";  
  1023. <%End if%>
  1025. obj.frm_PassQuestion.dataType="Limit";
  1026. obj.frm_PassQuestion.require="false";
  1027. obj.frm_PassQuestion.min="1";
  1028. obj.frm_PassQuestion.max="36";
  1029. obj.frm_PassQuestion.msg="密码提示问题不能为空并且不能超过36个字符.";  
  1031. obj.frm_SafeCode.dataType="LimitB";
  1032. obj.frm_SafeCode.require="false";
  1033. obj.frm_SafeCode.min='6';
  1034. obj.frm_SafeCode.max='20';
  1035. obj.frm_SafeCode.msg='安全码必须在[6-20]个字节之间。';
  1037. obj.frm_cSafeCode.dataType="Repeat";
  1038. obj.frm_cSafeCode.require="false";
  1039. obj.frm_cSafeCode.to="frm_SafeCode";
  1040. obj.frm_cSafeCode.msg="两次输入的安全码不一致";  
  1042. obj.frm_Email.dataType="Email";
  1043. obj.frm_Email.msg='信箱格式不正确';
  1045. <%if p_AllowChineseName = 0 then%>
  1046. function strlen2(str){
  1047. var len;
  1048. var i;
  1049. len = 0;
  1050. for (i=0;i<str.length;i++){
  1051. if (str.charCodeAt(i)>255) return true;
  1052. }
  1053. return false;
  1054. }
  1055. <%End if%>
  1057. //开始验证
  1058. if ( Validator.Validate(obj,2) )
  1059. {
  1060. if( obj.frm_cUserPassword.value != obj.frm_UserPassword.value)
  1061. {
  1062. alert("重复密码不一致")
  1063. obj.frm_cUserPassword.focus();
  1064. return false;
  1065. }
  1066. if( obj.frm_cSafeCode.value != obj.frm_SafeCode.value )
  1067. {
  1068. alert("重复安全码不一致")
  1069. obj.frm_SafeCode.focus();
  1070. return false;
  1071. }
  1072. if( obj.frm_PassQuestion.value != '' && obj.frm_PassAnswer.value=='')
  1073. {
  1074. alert("提问填写后必须填写回答。")
  1075. obj.frm_PassAnswer.focus();
  1076. return false;
  1077. }
  1078.  <%if request.QueryString("Act")="Add" then%>
  1079. if( obj.frm_UserPassword.value=='' || obj.frm_SafeCode.value=='' || obj.frm_PassQuestion.value=='')
  1080. {
  1081. alert("密码，安全码，提问回答必须填写。")
  1082. return false;
  1083. }  
  1084.  <%end if%>
  1085. } 
  1086. else
  1087. return false;
  1088. }
  1090. //-------------------------------------end
  1091. function CheckName(gotoURL) {
  1092.    var ssn=document.all.frm_UserName.value.toLowerCase();
  1093.    var open_url = gotoURL + "?Username=" + ssn;
  1094.    window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=150,height=80');
  1095. }
  1096. function CheckEmail(gotoURL) {
  1097.    var ssn1=document.all.frm_Email.value.toLowerCase();
  1098.    var open_url = gotoURL + "?email=" + ssn1;
  1099.    window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=150,height=80');
  1100. }
  1102. function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
  1103. {
  1104. var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:no;help:no;scroll:no;');
  1105. if (ReturnStr!='007007007007') SetObj.value=ReturnStr;
  1106. return ReturnStr;
  1107. }
  1109. //-------------------------------------------
  1110. function CheckForm_Other(obj)
  1111. {
  1112. obj.frm_NickName.dataType="Require";
  1113. obj.frm_NickName.msg="您的昵称不能为空";
  1115. if(obj.frm_Certificate.value=='0')
  1116. {
  1117. obj.frm_CerTificateCode.dataType="IdCard";
  1118. obj.frm_CerTificateCode.msg="身份证号码不正确";
  1119. }
  1121. obj.frm_Province.dataType="Require";
  1122. obj.frm_Province.msg="您的省份不能为空";
  1124. obj.frm_CloseTime.dataType="date";
  1125. obj.frm_CloseTime.format="ymd";
  1126. obj.frm_CloseTime.msg="到期日期格式不正确";
  1128. obj.frm_tel.require="false";
  1129. obj.frm_tel.dataType="Phone";
  1130. obj.frm_tel.msg="电话号码不正确";
  1132. obj.frm_Mobile.require="false";
  1133. obj.frm_Mobile.dataType="Mobile";
  1134. obj.frm_Mobile.msg="手机号码不正确";
  1136. obj.frm_HomePage.require="false";
  1137. obj.frm_HomePage.dataType="Url";
  1138. obj.frm_HomePage.msg="个人网站格式不正确";
  1140. obj.frm_QQ.require="false";
  1141. obj.frm_QQ.dataType="QQ";
  1142. obj.frm_QQ.msg="QQ号码不正确";
  1144. obj.frm_PostCode.require="false";
  1145. obj.frm_PostCode.dataType="Zip";
  1146. obj.frm_PostCode.msg="邮政编码不存在";
  1148. obj.frm_Integral.require="false";
  1149. obj.frm_Integral.dataType="Double";
  1150. obj.frm_Integral.msg="积分必须是数字";
  1152. obj.frm_FS_Money.require="false";
  1153. obj.frm_FS_Money.dataType="Double";
  1154. obj.frm_FS_Money.msg="金币必须是数字";
  1156. //开始验证
  1157. return Validator.Validate(obj,2);
  1158. }
  1159. function CheckForm_Three(obj)
  1160. {
  1161. obj.frm_C_Name.dataType="Require";
  1162. obj.frm_C_Name.msg="公司名称不能为空";
  1164. obj.frm_C_Address.dataType="Require";
  1165. obj.frm_C_Address.msg="公司地址不能为空";
  1167. obj.frm_C_PostCode.require="false";
  1168. obj.frm_C_PostCode.dataType="Zip";
  1169. obj.frm_C_PostCode.msg="公司邮政编码不存在";
  1171. obj.frm_C_Tel.dataType="Phone";
  1172. obj.frm_C_Tel.msg="公司电话格式不正确";
  1174. obj.frm_C_VocationClassName.dataType="Require";
  1175. obj.frm_C_VocationClassName.msg="公司所属行业不能为空";
  1177. //开始验证
  1178. return Validator.Validate(obj,2);
  1179. }
  1180. -->
  1181. </script>
  1182. </html>
  1183. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->