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

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

数据库编程

开发平台：

ASP/ASPX

User_manage.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. MF_Default_Conn
  9. MF_User_Conn
  10. MF_Session_TF
  11. if not MF_Check_Pop_TF("ME_List") then Err_Show
  12. if not MF_Check_Pop_TF("ME001") then Err_Show 
  14. User_GetParm
  15. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  16. int_RPP=15 '设置每页显示数目
  17. int_showNumberLink_=10 '数字导航显示数目
  18. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  19. str_nonLinkColor_="#999999" '非热链接颜色
  20. toF_="<font face=webdings>9</font>"    '首页 
  21. toP10_=" <font face=webdings>7</font>" '上十
  22. toP1_=" <font face=webdings>3</font>" '上一
  23. toN1_=" <font face=webdings>4</font>" '下一
  24. toN10_=" <font face=webdings>8</font>" '下十
  25. toL_="<font face=webdings>:</font>" '尾页
  27. Function and_where(sql)
  28. if instr(lcase(sql)," where ")>0 then 
  29. and_where = sql & " and "
  30. else
  31. and_where = sql & " where "
  32. end if
  33. End Function
  34. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  35. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  36. Dim Get_Html,This_Fun_Rs,Text
  37. On Error Resume Next
  38. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  39. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  40. do while not This_Fun_Rs.eof 
  41. select case Get_Type
  42.   case 1
  43. ''<option>
  44. if instr(This_Fun_Sql,",") >0 then 
  45. Text = This_Fun_Rs(1)
  46. else
  47. Text = This_Fun_Rs(0)
  48. end if
  49. if EquValue = This_Fun_Rs(0) then 
  50. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  51. else
  52. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  53. end if
  54.   case else
  55. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function 
  56. end select
  57. This_Fun_Rs.movenext
  58. loop
  59. This_Fun_Rs.close
  60. Get_FildValue_List = Get_Html
  61. End Function 
  63. Function Get_WhileData(Add_Sql)
  64. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  65. Str_Tmp = "UserNumber,UserName,Email,Sex,Integral,FS_Money,RegTime,LoginNum,hits,isLock"
  66. Str_Tmp = Str_Tmp & ",NickName,RealName,BothYear,Certificate,CerTificateCode,Province,City"
  67. This_Fun_Sql = "select "&Str_Tmp&" from FS_ME_Users where IsCorporation=0"
  68. if Add_Sql<>"" then 
  69. if instr(Add_Sql,"order by")>0 then 
  70. This_Fun_Sql = This_Fun_Sql &"  "& Add_Sql
  71. else
  72. This_Fun_Sql = and_where(This_Fun_Sql) & Add_Sql
  73. end if
  74. end if
  75. if request.QueryString("Act")="SearchGo" then 
  76. Arr_Tmp = split(Str_Tmp,",")
  77. for each Str_Tmp in Arr_Tmp
  78. if Trim(request.Form("frm_"&Str_Tmp))<>"" then 
  79. Req_Str = NoSqlHack(Trim(request.Form("frm_"&Str_Tmp)))
  80. select case Str_Tmp
  81. case "Sex","Integral","FS_Money","RegTime","LoginNum","hits","BothYear","Certificate","isLock"
  82. ''数字,日期
  83. regxp = "|<|>|=|<=|>=|<>|"
  84. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  85. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  86. elseif instr(Req_Str,"*")>0 then 
  87. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  88. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  89. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  90. else
  91. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  92. end if
  93. case else
  94. ''字符
  95. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '%"& Req_Str & "%'"
  96. end select 
  97. end if
  98. next
  99. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  100. 'response.Write(This_Fun_Sql)
  101. 'response.End()
  102. end if
  103. Str_Tmp = ""
  104. Set GetUserDataObj_Rs = CreateObject(G_FS_RS)
  105. GetUserDataObj_Rs.Open This_Fun_Sql,User_Conn,1,1
  106. IF not GetUserDataObj_Rs.eof THEN
  108. GetUserDataObj_Rs.PageSize=int_RPP
  109. cPageNo=NoSqlHack(Request.QueryString("Page"))
  110. If cPageNo="" Then cPageNo = 1
  111. If not isnumeric(cPageNo) Then cPageNo = 1
  112. cPageNo = Clng(cPageNo)
  113. If cPageNo<=0 Then cPageNo=1
  114. If cPageNo>GetUserDataObj_Rs.PageCount Then cPageNo=GetUserDataObj_Rs.PageCount 
  115. GetUserDataObj_Rs.AbsolutePage=cPageNo
  117.   FOR int_Start=1 TO int_RPP 
  118. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  119. 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
  120. 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
  121. Get_Html = Get_Html & "<td align=""center""><a href=""mailto:"&GetUserDataObj_Rs("Email")&""" title=""发邮件给他"">"& GetUserDataObj_Rs("Email") & "</td>" & vbcrlf
  122. if GetUserDataObj_Rs("Sex")=0 then 
  123. Str_Tmp = "男"
  124. else
  125. Str_Tmp = "女"
  126. end if
  127. Get_Html = Get_Html & "<td align=""center"">" & Str_Tmp & "</td>" & vbcrlf
  128. Get_Html = Get_Html & "<td align=""center"">" & GetUserDataObj_Rs("Integral") & "[点]</td>" & vbcrlf
  129. Get_Html = Get_Html & "<td align=""center"">" & GetUserDataObj_Rs("FS_Money") &"["&p_MoneyName&"]</td>" & vbcrlf
  130. Get_Html = Get_Html & "<td align=""center"">" & GetUserDataObj_Rs("RegTime") & "</td>" & vbcrlf
  131. Get_Html = Get_Html & "<td align=""center"">" & GetUserDataObj_Rs("LoginNum") & "[次]</td>" & vbcrlf
  132. if cbool(GetUserDataObj_Rs("isLock")) then 
  133. ''锁定,需要解锁
  134. Get_Html = Get_Html & "<td align=""center""><input type=button value=""锁 定"" onclick=""javascript:location='User_manage.asp?Act=OtherEdit&EditSql=false&UserNumber="&GetUserDataObj_Rs("UserNumber")&"';"" alt=""点击解锁"" style=""color:red""></td>" & vbcrlf
  135. else
  136. Get_Html = Get_Html & "<td align=""center""><input type=button value=""正 常"" onclick=""javascript:location='User_manage.asp?Act=OtherEdit&EditSql=true&UserNumber="&GetUserDataObj_Rs("UserNumber")&"';"" alt=""点击锁定"" ></td>" & vbcrlf
  137. end if
  138. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" name=""frm_UserNumber"" id=""frm_UserNumber"" value="""&GetUserDataObj_Rs("UserNumber")&""" /></td>" & vbcrlf
  139. Get_Html = Get_Html & "</tr>" & vbcrlf
  140. ''++++++++++++++++++++++++++++++++++++++点开用户编号时显示详细信息。
  141. Get_Html = Get_Html & "<tr class=""hback"" id=""TD_U_"& GetUserDataObj_Rs("UserNumber") &""" style=""display:none""><td colspan=20>" & vbcrlf
  142. Get_Html = Get_Html & "<table width=""100%"" height=""30"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""table"">" & vbcrlf & "<tr class=""hback"">" & vbcrlf
  143. Get_Html = Get_Html & "<td>昵称:" & GetUserDataObj_Rs("NickName")&" | 真名:" & GetUserDataObj_Rs("RealName") &" | 生日:"& GetUserDataObj_Rs("BothYear") &" | 省:"& GetUserDataObj_Rs("Province") &" | 市:" & GetUserDataObj_Rs("City") &" 人气:[" & GetUserDataObj_Rs("hits")&"]" & "</td>" & vbcrlf
  144. Get_Html = Get_Html & "</tr></table>" & vbcrlf
  145. Get_Html = Get_Html &"</td></tr>" & vbcrlf
  146. ''+++++++++++++++++++++++++++++++++++++++
  147. Str_Tmp = ""
  148. GetUserDataObj_Rs.MoveNext
  149.   if GetUserDataObj_Rs.eof or GetUserDataObj_Rs.bof then exit for
  150.       NEXT
  151. END IF
  152. 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
  153. Get_Html = Get_Html & fPageCount(GetUserDataObj_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  154. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  155. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  156. GetUserDataObj_Rs.close
  157. Get_WhileData = Get_Html
  158. End Function
  159. Sub OtherEdit()
  160. If request.QueryString("EditSql")="true" Then
  161. User_Conn.execute("Update FS_ME_Users set isLock=1 where UserNumber='"&request.QueryString("UserNumber")&"'")
  162. Else
  163. User_Conn.execute("Update FS_ME_Users set isLock=0 where UserNumber='"&request.QueryString("UserNumber")&"'")
  164. End If
  165. response.Redirect("User_manage.asp?Act=View")
  166. End Sub
  167. ''================================================================
  168. %>
  169. <html xmlns="http://www.w3.org/1999/xhtml">
  170. <HEAD>
  171. <TITLE>FoosunCMS</TITLE>
  172. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  173. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  174. </HEAD>
  175. <script language="JavaScript" type="text/JavaScript">
  176. <!--
  177. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  178.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  179.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  180.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  181. }
  182. MM_reloadPage(true);
  183. //点击标题排序
  184. var Old_Sql = document.URL;
  185. function OrderByName(FildName)
  186. {
  187. //alert(document.URL);
  188. var New_Sql;
  189. if(Old_Sql.indexOf('Add_Sql')<0)
  190. {
  191. if(Old_Sql.indexOf('?')<0)
  192. New_Sql = Old_Sql + "?Add_Sql=order by " + FildName;
  193. else
  194. New_Sql = Old_Sql + "&Add_Sql=order by " + FildName;
  195. }
  196. else
  197. {
  198. if(Old_Sql.indexOf("Add_Sql=order by " + FildName + " desc")>-1)
  199. {
  200. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName;
  201. }
  202. else
  203. {
  204. New_Sql = Old_Sql.substring(0,Old_Sql.indexOf("Add_Sql=")) + "Add_Sql=order by " + FildName + " desc";
  205. }
  206. }
  207. //alert(New_Sql);
  208. location = New_Sql;
  209. } 
  210. -->
  211. </script>
  212. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  213. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  214. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  215. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  216.   <tr  class="hback"> 
  217.     <td class="xingmu" colspan=20>个人用户信息管理</td>
  218.   </tr>
  219.   <tr  class="hback"> 
  220.     <td><a href="User_manage.asp?Act=View">管理首页</a>
  221.  | <a href="User_manage.asp?Act=Add">新增</a>
  222.  | <a href="User_manage.asp?Act=Search">查询</a>
  223.  | <a href="javascript:history.back();">返回上一级</a></td>
  224.   </tr>
  225. </table>
  226. <%
  227. '******************************************************************
  228. select case request.QueryString("Act")
  229. case "","View","SearchGo"
  230. View
  231. case "Add","Edit","Search","Add_BaseData"
  232. Add_Edit_Search
  233. case "OtherEdit"
  234. OtherEdit
  235. case else
  236. response.Write(request.QueryString("Act")&"参数传递错误！")
  237. end select
  239. '******************************************************************
  240. Sub View()%>
  241. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  242.   <form name="form1" id="form1" method="post" action="User_DataAction.asp?Act=Del">
  243.     <tr  class="hback">
  244.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('UserNumber')" class="sd"><b>用户编号</b></a> <span id="Show_Oder_UserNumber"></span></td>
  245.       <td align="center" class="xingmu"><a href="javascript:OrderByName('UserName')" class="sd"><b>用户名</b></a> <span id="Show_Oder_UserName"></span></td>
  246.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Email')" class="sd"><b>Email</b></a> <span id="Show_Oder_Email"></span></td>
  247.       <td align="center" class="xingmu"><a href="javascript:OrderByName('Sex')" class="sd"><b>性别</b></a> <span id="Show_Oder_Sex"></span></td>
  248.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Integral')" class="sd"><b>积分</b></a> <span id="Show_Oder_Integral"></span></td>
  249.   <td align="center" class="xingmu"><a href="javascript:OrderByName('FS_Money')" class="sd"><b>金币</b></a> <span id="Show_Oder_FS_Money"></span></td>
  250.   <td align="center" class="xingmu"><a href="javascript:OrderByName('RegTime')" class="sd"><b>注册日期</b></a> <span id="Show_Oder_RegTime"></span></td>
  251.   <td align="center" class="xingmu"><a href="javascript:OrderByName('LoginNum')" class="sd"><b>登陆次数</b></a> <span id="Show_Oder_LoginNum"></span></td>
  252.   <td align="center" class="xingmu">是否锁定</td>
  253.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  254.     </tr>
  255.     <%
  256. response.Write( Get_WhileData( request.QueryString("Add_Sql") ) )
  257. %>
  258.   </form>
  259. </table>
  260. <%End Sub
  262. Sub Add_Edit_Search()
  263. ''添加删除查询共用。
  264. Dim UserNumber,Bol_IsEdit
  265. Bol_IsEdit = false
  266. if request.QueryString("Act")="Edit" then 
  267. UserNumber = NoSqlHack(Trim(request.QueryString("UserNumber")))
  268. if UserNumber="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的UserName没有提供</li>") : response.End()
  269. UserSql = "select UserID,UserName,UserPassword,HeadPic,HeadPicSize,PassQuestion,PassAnswer,safeCode,tel,Mobile,isMessage,Email," _
  270.   &"HomePage,QQ,MSN,Corner,Province,City,Address,PostCode,NickName,RealName,Vocation,Sex,BothYear,Certificate,CertificateCode,IsCorporation,PopList," _
  271.   &"PopList,Integral,FS_Money,RegTime,CloseTime,TempLastLoginTime,TempLastLoginTime_1,IsMarray,SelfIntro,isOpen,GroupID,LastLoginIP," _
  272.   &"ConNumber,ConNumberNews,isLock,UserFavor,MySkin,UserLoginCode,OnlyLogin,hits" _
  273.   &" from FS_ME_Users where UserNumber= '"& UserNumber &"'"
  274. Set GetUserDataObj_Rs = CreateObject(G_FS_RS)
  275. GetUserDataObj_Rs.Open UserSql,User_Conn,1,1
  276. if GetUserDataObj_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  277. Bol_IsEdit = True
  278. end if
  279. %>
  281. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  282.     <tr class="hback"> 
  283.       <td width="140" class="xingmu" colspan="3"><%if request.QueryString("Act")<>"Search" then response.Write("会员系统参数设置") else response.Write("查询会员") end if %></td>
  284.     </tr>
  285. <tr class="hback"> 
  286. <td width="50%"  id="Lab_Base"><div align="center"><%if left(request.QueryString("Act"),3)="Add" then 
  287. response.Write("<span class=tx>第一步：基本注册信息</span>") 
  288. elseif request.QueryString("Act")="Search" then 
  289. response.Write("<a href=""#"" onClick=""showDataPanel(1)"">基础参数查询模式</a>") 
  290. else
  291. response.Write("<a href=""#"" onClick=""showDataPanel(1)"">基础参数设置</a>") 
  292. end if%></div></td>
  293. <td width="50%" height="19" class="xingmu" id="Lab_Other"> <div align="center"><%if left(request.QueryString("Act"),3)="Add" then 
  294. response.Write("<span class=tx>第二步：其它联系信息</span>") 
  295. elseif request.QueryString("Act")="Search" then 
  296. response.Write("<a href=""#"" onClick=""showDataPanel(2)"">其他参数查询模式</a>") 
  297. else 
  298. response.Write("<a href=""#"" onClick=""showDataPanel(2)"">其他参数设置</a>") 
  299. end if%></div></td>
  300. </tr>
  301.     <tr class="hback">
  302.       <td align="right"  colspan="3">
  303. <!---基础数据开始-->        
  304.         
  305.       <div id="Layer1" style="position:relative; z-index:1; left: 0px; top: 0px;"> 
  306.         <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  307.           <form name="UserForm" method="post"<%if request.QueryString("Act")="Add" then 
  308.    response.Write(" action=""?Act=Add_BaseData""  onsubmit=""return CheckForm(this);""") 
  309.   elseif request.QueryString("Act")="Search" then 
  310.    response.Write(" action=""?Act=SearchGo""")
  311.   else
  312.    response.Write(" action=""User_DataAction.asp?Act=BaseData""  onsubmit=""return CheckForm(this);""") 
  313.   end if%>>
  314.             <%if request.QueryString("Act")<>"Search" then%>
  315.             <tr class="hback"> 
  316.               <td height="20" colspan="3" class="xingmu">请填写您的基本资料<span class="tx">(以下项目为空的不修改则请留空)</span></td>
  317.             </tr>
  318.             <%end if%>
  319.             <tr class="hback"> 
  320.               <td width="15%" height="65"> <div align="right">用户名</div></td>
  321.               <td width="29%"><input name="frm_UserName" type="text" style="width:90%" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("UserName")) end if%>"> 
  322.                 <%if request.QueryString("Act")<>"Search" then%>
  323.                 <a href="javascript:CheckName('../../user/lib/CheckName.asp')">是否被占用</a> 
  324.                 <%end if%>
  325.               </td>
  326.               <td width="56%"> 
  327.                 <%if request.QueryString("Act")<>"Search" then%>
  328.                 户名由a～z的英文字母(不区分大小写)、0～9的数字、点、减号或下划线及中文组成，长度为3～18个字符，只能以数字或字母开头和结尾,例如:coolls1980。 
  329.                 <%else%>
  330.                 模糊查询 
  331.                 <%end if%>
  332.               </td>
  333.             </tr>
  334.             <tr class="hback"> 
  335.               <td height="16" colspan="3" class="xingmu">请填写安全设置：（安全设置用于验证帐号和找回密码）</td>
  336.             </tr>
  337.             <%If request.QueryString("Act")<>"Search" then%>
  338.             <tr class="hback"> 
  339.               <td height="16"><div align="right">密码</div></td>
  340.               <td><input name="frm_UserPassword" type="password" style="width:90%" maxlength="50"></td>
  341.               <td rowspan="2">密码长度为<%=p_LenPassworMin%>～<%=p_LenPassworMax%>位，区分字母大小写。登录密码可以由字母、数字、特殊字符组成。</td>
  342.             </tr>
  343.             <tr class="hback"> 
  344.               <td height="24"> <div align="right">确认密码</div></td>
  345.               <td><input name="frm_cUserPassword" type="password" style="width:90%" maxlength="50"></td>
  346.             </tr>
  347.             <%End if
  348. if request.QueryString("Act") <> "Search" then %>
  349.             <tr class="hback"> 
  350.               <td height="16"><div align="right">密码提示问题</div></td>
  351.               <td><input name="frm_PassQuestion" type="text" style="width:90%" maxlength="30"></td>
  352.               <td rowspan="2">当您忘记密码时可由此找回密码。例如，问题是“我的哥哥是谁？”，答案为&quot;coolls8&quot;。问题长度不大于36个字符，一个汉字占两个字符。答案长度在6～30位之间，区分大小写。</td>
  353.             </tr>
  354.             <tr class="hback"> 
  355.               <td height="16"><div align="right">密码答案</div></td>
  356.               <td><input name="frm_PassAnswer" type="text" style="width:90%" maxlength="50"></td>
  357.             </tr>
  358.             <tr class="hback"> 
  359.               <td height="16"><div align="right">安全码</div></td>
  360.               <td><input name="frm_SafeCode" type="password" style="width:90%" maxlength="30"></td>
  361.               <td rowspan="2">全码是您找回密码的重要途径，安全码长度为6～20位，区分字母大小写，由字母、数字、特殊字符组成。<br> 
  362.                 <Span class="tx">特别提醒：安全码一旦设定，将不可自行修改.</Span></td>
  363.             </tr>
  364.             <tr class="hback"> 
  365.               <td height="16"><div align="right">确认安全码</div></td>
  366.               <td><input name="frm_cSafeCode" type="password" style="width:90%" maxlength="30"></td>
  367.             </tr>
  368.             <%end if%>
  369.             <tr class="hback"> 
  370.               <td height="16"><div align="right">电子邮件</div></td>
  371.               <td><input name="frm_Email" type="text" style="width:90%" maxlength="100" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("Email")) end if%>"> 
  372.                 <%if request.QueryString("Act")<>"Search" then%>
  373.                 <br> <a href="javascript:CheckEmail('../../user/lib/Checkemail.asp')">是否被占用</a> 
  374.                 <%end if%>
  375.               </td>
  376.               <td> 
  377.                 <%if request.QueryString("Act")<>"Search" then%>
  378.                 您的注册电子邮件。<Span class="tx">注册成功后，将不能修改</span> 
  379.                 <%end if%>
  380.               </td>
  381.             </tr>
  382.             <!--会员类型。-->
  383.             <input type="hidden" name="frm_UserNumber_Edit1" value="<%=UserNumber%>">
  384.             <tr class="hback"> 
  385.               <td height="39" colspan="3"> <div align="center"> 
  386.                   <input type="submit" name="Submit" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存会员基本信息 ") end if%>" style="CURSOR:hand">
  387.                   <input type="reset" name="ReSet" value=" 重置 " />
  388.                 </div></td>
  389.             </tr>
  390.           </form>
  391.         </table>
  392.       </div>   
  393. <!---基础数据结束-->        
  394.       <div id="Layer2" style="position:relative; z-index:1; left: 0px; top: 0px; width: 889px; height: 942px;"> 
  395.         <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  396.           <form name="UserForm" id="UserForm" method="post"<%if request.QueryString("Act")="Add_BaseData" then 
  397.    response.Write(" action=""User_DataAction.asp?Act=Add_AllData""  onsubmit=""return CheckForm_Other(this);""") 
  398.   elseif request.QueryString("Act")="Search" then 
  399.    response.Write(" action=""?Act=SearchGo""")
  400.   else
  401.    response.Write(" action=""User_DataAction.asp?Act=OtherData""  onsubmit=""return CheckForm_Other(this);""") 
  402.   end if%>>
  403.             <tr class="hback"> 
  404.               <td height="27"><div align="right"><span class="tx">*</span>昵称</div></td>
  405.               <td><input name="frm_NickName" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("NickName")) end if%>"></td>
  406.               <td> 
  407.                 <%if request.QueryString("Act")<>"Search" then%>
  408.                 请填写您对外的昵称。可以为中文 
  409.                 <%end if%>
  410.               </td>
  411.             </tr>
  412.             <tr class="hback"> 
  413.               <td width="15%" height="27"> <div align="right">姓名</div></td>
  414.               <td width="29%"><input name="frm_RealName" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("RealName")) end if%>"> 
  415.               </td>
  416.               <td width="56%"> 
  417.                 <%if request.QueryString("Act")<>"Search" then%>
  418.                 请填写您的真实姓名。 
  419.                 <%end if%>
  420.               </td>
  421.             </tr>
  422.             <tr class="hback"> 
  423.               <td height="16"><div align="right"><span class="tx">*</span>性别</div></td>
  424.               <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%>>
  425.                 男 
  426.                 <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%>>
  427.                 女 </td>
  428.               <td> 
  429.                 <%if request.QueryString("Act")<>"Search" then%>
  430.                 请您选择性别。 
  431.                 <%end if%>
  432.               </td>
  433.             </tr>
  434.             <tr class="hback"> 
  435.               <td height="24" align="right">生日</td>
  436.               <td> <input type="text" name="frm_BothYear" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("BothYear")) end if%>"></td>
  437.               <td> 
  438.                 <%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("请填写您的真实生日，该项用于取回密码。") end if%>
  439.               </td>
  440.             </tr>
  441.             <tr class="hback"> 
  442.               <td height="16"><div align="right">证件类别</div></td>
  443.               <td> <select name=frm_Certificate  id="frm_Certificate">
  444.                   <%if request.QueryString("Act")="Search" then response.Write("<option value="""">请选择</option>") end if%>
  445.                   <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>
  446.                   <option value="2" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=2 then response.Write("selected") end if end if%>>学生证</option>
  447.                   <option value="1" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=1 then response.Write("selected") end if end if%>>驾驶证</option>
  448.                   <option value="3" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=3 then response.Write("selected") end if end if%>>军人证</option>
  449.                   <option value="4" <%if Bol_IsEdit then if GetUserDataObj_Rs("Certificate")=4 then response.Write("selected") end if end if%>>护照</option>
  450.                 </select> </td>
  451.               <td rowspan="2"> 
  452.                 <%if request.QueryString("Act")="Search" then response.Write("支持简单比较运算符，*123，123*，123的模糊查询。") else response.Write("有效证件作为取回帐号的最后手段，用以核实帐号的合法身份，请您务必如实填写。<br> <span class=""tx"">特别提醒：有效证件一旦设定，不可更改</span>") end if%>
  453.               </td>
  454.             </tr>
  455.             <tr class="hback"> 
  456.               <td height="16"><div align="right">证件号码</div></td>
  457.               <td><input name="frm_CerTificateCode" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("CerTificateCode")) end if%>"></td>
  458.             </tr>
  459.             <tr class="hback"> 
  460.               <td height="24" align="right"><span class="tx"*</span>您现在所在的省份</td>
  461.               <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>
  462.               <td><select name="select111" size=1 onChange="javascript:frm_Province.value=this.options[this.selectedIndex].value">
  463.                   <option value="">请选择</option>
  464.                   <option value="四川">四川</option>
  465.                   <option value="北京">北京</option>
  466.                   <option value="上海">上海</option>
  467.                   <option value="天津">天津</option>
  468.                   <option value="重庆">重庆</option>
  469.                   <option value="安徽">安徽</option>
  470.                   <option value="甘肃">甘肃</option>
  471.                   <option value="广东">广东</option>
  472.                   <option value="广西">广西</option>
  473.                   <option value="贵州">贵州</option>
  474.                   <option value="福建">福建</option>
  475.                   <option value="海南">海南</option>
  476.                   <option value="河北">河北</option>
  477.                   <option value="河南">河南</option>
  478.                   <option value="黑龙江">黑龙江</option>
  479.                   <option value="湖北">湖北</option>
  480.                   <option value="湖南">湖南</option>
  481.                   <option value="吉林">吉林</option>
  482.                   <option value="江苏">江苏</option>
  483.                   <option value="江西">江西</option>
  484.                   <option value="辽宁">辽宁</option>
  485.                   <option value="内蒙古">内蒙古</option>
  486.                   <option value="宁夏">宁夏</option>
  487.                   <option value="青海">青海</option>
  488.                   <option value="山东">山东</option>
  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.                 </select></td>
  499.             </tr>
  500.             <tr class="hback"> 
  501.               <td height="16"><div align="right">城市</div></td>
  502.               <td height="16"><input name="frm_City" type="text" style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("City")) end if%>"></td>
  503.               <td height="16">您现在所在的城市</td>
  504.             </tr>
  505.             <tr class="hback"> 
  506.               <td height="16"><div align="right">联系地址</div></td>
  507.               <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>
  508.               <td height="16">您的联系地址</td>
  509.             </tr>
  510.             <tr class="hback"> 
  511.               <td height="16"><div align="right">邮政编码</div></td>
  512.               <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>
  513.               <td height="16">邮政编码</td>
  514.             </tr>
  515.             <tr class="hback"> 
  516.               <td height="16"><div align="right">头像地址</div></td>
  517.               <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>
  518.               <td height="16">您的头像地址</td>
  519.             </tr>
  520.             <tr class="hback"> 
  521.               <td height="16"><div align="right">头像尺寸</div></td>
  522.               <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>
  523.               <td height="16">格式：[宽,高]如60,60 80,80 120,140</td>
  524.             </tr>
  525.             <tr class="hback"> 
  526.               <td height="16"><div align="right">私人电话</div></td>
  527.               <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>
  528.               <td height="16">您的电话</td>
  529.             </tr>
  530.             <tr class="hback"> 
  531.               <td height="16"><div align="right">手机</div></td>
  532.               <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>
  533.               <td height="16">您的手机</td>
  534.             </tr>
  535.             <tr class="hback" id="tr_isMessage"> 
  536.               <td height="16"><div align="right">短信验证手机</div></td>
  537.               <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%>> 
  538.               </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_HomePage" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("HomePage")) end if%>"></td>
  544.               <td height="16">您的个人网站</td>
  545.             </tr>
  546.             <tr class="hback"> 
  547.               <td height="16"><div align="right">QQ</div></td>
  548.               <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>
  549.               <td height="16">您常用的腾讯QQ号码</td>
  550.             </tr>
  551.             <tr class="hback"> 
  552.               <td height="16"><div align="right">MSN</div></td>
  553.               <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>
  554.               <td height="16">您常用的MSN帐户</td>
  555.             </tr>
  556.             <tr class="hback"> 
  557.               <td height="16"><div align="right">您现在的职业</div></td>
  558.               <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>
  559.               <td height="16">您现在所从事的职业</td>
  560.             </tr>
  561.             <tr class="hback"> 
  562.               <td height="16"><div align="right">积分</div></td>
  563.               <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>
  564.               <td height="16"><a href="Integral.asp">[点这里查看详细积分管理]</a></td>
  565.             </tr>
  566.             <tr class="hback"> 
  567.               <td height="16"><div align="right">金币</div></td>
  568.               <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>
  569.               <td height="16">您的金币和当地金钱等价</td>
  570.             </tr>
  571.             <tr class="hback"> 
  572.               <td height="16"><div align="right">临时登陆时间</div></td>
  573.               <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>
  574.               <td height="16">记录某天内登陆的第一次登陆时间，以方便结算金钱</td>
  575.             </tr>
  576.             <tr class="hback"> 
  577.               <td height="16"><div align="right">临时登陆时间</div></td>
  578.               <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>
  579.               <td height="16">以方便记录积分</td>
  580.             </tr>
  581.             <tr class="hback"> 
  582.               <td height="16"><div align="right">会员到期日期</div></td>
  583.               <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>
  584.               <td height="16">格式：2006-6-4,如果为3000-1-1,表示不过期</td>
  585.             </tr>
  586.             <tr class="hback"> 
  587.               <td height="16"><div align="right">婚否</div></td>
  588.               <td height="16"> <select name="frm_IsMarray">
  589.                   <%if request.QueryString("Act")="Search" then %>
  590.                   <option>请选择</option>
  591.                   <%end if%>
  592.                   <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>
  593.                   <option value="1"<%if Bol_IsEdit then if GetUserDataObj_Rs("IsMarray")=1 then response.Write(" selected") end if end if%>>已婚</option>
  594.                 </select> </td>
  595.               <td height="16">&nbsp;</td>
  596.             </tr>
  597.             <tr class="hback"> 
  598.               <td height="16"><div align="right">自我介绍</div></td>
  599.               <td height="16"><textarea name="frm_SelfIntro" cols="30" rows="6"><%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("SelfIntro")) end if%></textarea></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_UserFavor" type="text"  style="width:90%" maxlength="20" value="<%if Bol_IsEdit then response.Write(GetUserDataObj_Rs("UserFavor")) 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"> <select name="frm_GroupID">
  610.                   <%if request.QueryString("Act")="Search" then %>
  611.                   <option>请选择</option>
  612.                   <%end if%>
  613.                   <option value="0" style="color:#FF0000"<%if request.QueryString("Act")<>"Search" then response.Write(" selected") end if%>>不分组</option>
  614.                   <%if Bol_IsEdit then 
  615. response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group",GetUserDataObj_Rs("GroupID"),1))
  616. else
  617. response.Write(Get_FildValue_List("select GroupID,GroupName from FS_ME_Group","",1))
  618. end if
  619. %>
  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"> <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%>>
  626.                 关闭 
  627.                 <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%>>
  628.                 开放 </td>
  629.               <td height="16">外人是否可见</td>
  630.             </tr>
  631.             <tr class="hback"> 
  632.               <td height="16"><div align="right">是否锁定该用户</div></td>
  633.               <td height="16"> <input type="radio" name="frm_isLock" value="0" <%if Bol_IsEdit then
  634.  if GetUserDataObj_Rs("isLock")=0 then
  635.  response.Write("checked")
  636.  end if 
  637.  else
  638.  if request.QueryString("Act")<>"Search" then
  639. if p_RegisterCheck = 0 then
  640. response.Write("checked") 
  641. end if 
  642.  end if 
  643. end if%>>
  644.                 不锁定 
  645.                 <input type="radio" name="frm_isLock" value="1" <%if Bol_IsEdit then
  646.  if GetUserDataObj_Rs("isLock")=1 then
  647.  response.Write("checked")
  648.  end if 
  649.  else
  650.  if request.QueryString("Act")<>"Search" then
  651. if p_RegisterCheck = 1 then
  652. response.Write("checked") 
  653. end if 
  654.  end if 
  655. end if%>>
  656.                 锁定 </td>
  657.               <td height="16">锁定后该用户将无法登陆</td>
  658.             </tr>
  659.             <tr class="hback"> 
  660.               <td height="16"><div align="right">是否允许多人登陆</div></td>
  661.               <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%>>
  662.                 不允许 
  663.                 <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%>>
  664.                 允许 </td>
  665.               <td height="16">如果不选定则表示不允许</td>
  666.             </tr>
  667.             <tr class="hback"> 
  668.               <td colspan="3" align="center"> 
  669.                 <%if request.QueryString("Act")="Add_BaseData" then %>
  670.                 <input name="frm_UserNumber_Edit2" type="hidden" value="<% = request.Form("frm_UserNumber") %>"> 
  671.                 <input name="frm_UserName" type="hidden" value="<% = request.Form("frm_UserName") %>"> 
  672.                 <input name="frm_UserPassword" type="hidden"  value="<% = request.Form("frm_UserPassword") %>"> 
  673.                 <input name="frm_PassQuestion" type="hidden" value="<% = request.Form("frm_PassQuestion") %>"> 
  674.                 <input name="frm_PassAnswer" type="hidden" value="<% = request.Form("frm_PassAnswer") %>"> 
  675.                 <input name="frm_SafeCode" type="hidden" value="<% = request.Form("frm_SafeCode") %>"> 
  676.                 <input name="frm_Email" type="hidden" value="<% = request.Form("frm_Email") %>"> 
  677.                 <%else%>
  678.                 <input name="frm_UserNumber_Edit2" type="hidden" value="<% = UserNumber %>"> 
  679.                 <%end if%>
  680.                 <input type="submit" name="OtherSubmitButtont" value="<%if request.QueryString("Act")="Search" then response.Write(" 执行查询 ") else response.Write(" 保存会员扩展信息 ") end if%>" /> 
  681.                 <input type="reset" name="Submit2" value=" 重置 " /> </td>
  682.             </tr>
  683.           </form>
  684.         </table>
  685.       </div>
  686.   </td>
  687.     </tr>
  688. </table>
  689. <%End Sub%>
  690. </body>
  691. <%
  692. Set GetUserDataObj_Rs=nothing
  693. User_Conn.close
  694. Set User_Conn=nothing
  695. %>
  696. <script language="JavaScript">
  697. <!--//判断后将排序完善.字段名后面显示指示
  698. var Req_FildName;
  699. var New_FildName='';
  700. if (Old_Sql.indexOf("Add_Sql=order by ")>-1)
  701. {
  702. if(Old_Sql.indexOf(" desc")>-1)
  703. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.indexOf(" desc"));
  704. else
  705. Req_FildName = Old_Sql.substring(Old_Sql.indexOf("Add_Sql=order by ") + "Add_Sql=order by ".length , Old_Sql.length);
  707. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  708. {
  709. if(Old_Sql.indexOf(Req_FildName + " desc")>-1)
  710. {
  711. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  712. }
  713. else
  714. {
  715. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  716. }
  717. }
  718. }
  720. <%if instr(",Add,Edit,Search,Add_BaseData,",","&request.QueryString("Act")&",")>0 then%>
  721. //展开层
  722. var selected="Lab_Base";
  724. <%if request.QueryString("Act")="Add_BaseData" then%>
  725. showDataPanel(2); //添加时提交基础数据后，显示第二个。
  726. <%else%>
  727. showDataPanel(1); //加载时显示第一个.
  728. <%end if%>
  729. function showDataPanel(Data)
  730. {
  731. switch(Data)
  732. {
  733. case 1:
  734. document.getElementById("Layer1").style.display="block";
  735. document.getElementById("Layer2").style.display="none";
  736. document.getElementById("Lab_Base").className ="";
  737. if(selected!="Lab_Base")
  738. document.getElementById(selected).className ="xingmu";
  739. selected="Lab_Base";
  740. break;
  741. case 2:
  742. document.getElementById("Layer1").style.display="none";
  743. document.getElementById("Layer2").style.display="block";
  744. document.getElementById("Lab_Other").className="";
  745. if(selected!="Lab_Other")
  746. document.getElementById(selected).className ="xingmu";
  747. selected="Lab_Other";
  748. break;
  749. }
  750. }
  751. <%end if%>
  753. function CheckForm(obj)
  754. {
  755. <%if p_AllowChineseName = 0 then%>
  757. obj.frm_UserName.dataType='LimitB';
  758. obj.frm_UserName.min='<%=p_NumLenMin%>';
  759. obj.frm_UserName.max='<%=p_NumLenMax%>';
  760. obj.frm_UserName.msg='用户名必须在[<%=p_NumLenMin%>-<%=p_NumLenMax%>]个字节之间。';
  762. if( strlen2(obj.frm_UserName.value) ) {
  763. alert("您的用户名不能有非法字符,或者中文字符")
  764. obj.frm_UserName.focus();
  765. return false;
  766. }
  767. <%else%>
  768. obj.frm_UserName.dataType='Limit';
  769. obj.frm_UserName.min='<%=p_NumLenMin%>';
  770. obj.frm_UserName.max='<%=p_NumLenMax%>';
  771. obj.frm_UserName.msg='用户名必须在[<%=p_NumLenMin%>-<%=p_NumLenMax%>]个字符之间。';
  772. <%End if%>
  774. <%if request.QueryString("Act")="Add" then%>
  775.  
  776. obj.frm_UserPassword.dataType="LimitB";
  777. obj.frm_UserPassword.min='<%=p_LenPassworMin%>';
  778. obj.frm_UserPassword.max='<%=p_LenPassworMax%>';
  779. obj.frm_UserPassword.msg='密码必须在[<%=p_LenPassworMin%>-<%=p_LenPassworMax%>]个字节之间。';
  781. obj.frm_cUserPassword.dataType="Repeat";
  782. obj.frm_cUserPassword.to="frm_UserPassword";
  783. obj.frm_cUserPassword.msg="两次输入的密码不一致";  
  785. <%end if%>
  786. obj.frm_PassQuestion.dataType="Limit";
  787. obj.frm_PassQuestion.require="false";
  788. obj.frm_PassQuestion.min="1";
  789. obj.frm_PassQuestion.max="36";
  790. obj.frm_PassQuestion.msg="密码提示问题不能为空并且不能超过36个字符.";  
  792. obj.frm_SafeCode.dataType="LimitB";
  793. obj.frm_SafeCode.require="false";
  794. obj.frm_SafeCode.min='6';
  795. obj.frm_SafeCode.max='20';
  796. obj.frm_SafeCode.msg='安全码必须在[6-20]个字节之间。';
  798. obj.frm_cSafeCode.dataType="Repeat";
  799. obj.frm_cSafeCode.require="false";
  800. obj.frm_cSafeCode.to="frm_SafeCode";
  801. obj.frm_cSafeCode.msg="两次输入的安全码不一致";  
  803. obj.frm_Email.dataType="Email";
  804. obj.frm_Email.msg='信箱格式不正确';
  806. <%if p_AllowChineseName = 0 then%>
  807. function strlen2(str){
  808. var len;
  809. var i;
  810. len = 0;
  811. for (i=0;i<str.length;i++){
  812. if (str.charCodeAt(i)>255) return true;
  813. }
  814. return false;
  815. }
  816. <%End if%>
  818. //开始验证
  819. if ( Validator.Validate(obj,2) )
  820. {
  821. if( obj.frm_cUserPassword.value != obj.frm_UserPassword.value)
  822. {
  823. alert("重复密码不一致")
  824. obj.frm_cUserPassword.focus();
  825. return false;
  826. }
  827. if( obj.frm_cSafeCode.value != obj.frm_SafeCode.value )
  828. {
  829. alert("重复安全码不一致")
  830. obj.frm_SafeCode.focus();
  831. return false;
  832. }
  833. if( obj.frm_PassQuestion.value != '' && obj.frm_PassAnswer.value=='')
  834. {
  835. alert("提问填写后必须填写回答。")
  836. obj.frm_PassAnswer.focus();
  837. return false;
  838. }
  839.  <%if request.QueryString("Act")="Add" then%>
  840. if( obj.frm_UserPassword.value=='' || obj.frm_SafeCode.value=='' || obj.frm_PassQuestion.value=='')
  841. {
  842. alert("密码，安全码，提问回答必须填写。")
  843. return false;
  844. }  
  845.  <%end if%>
  846. } 
  847. else
  848. return false;
  849. }
  850. //-------------------------------------end
  851. function CheckName(gotoURL) {
  852.    var ssn=document.all.frm_UserName.value.toLowerCase();
  853.    var open_url = gotoURL + "?Username=" + ssn;
  854.    window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=150,height=80');
  855. }
  856. function CheckEmail(gotoURL) {
  857.    var ssn1=document.all.frm_Email.value.toLowerCase();
  858.    var open_url = gotoURL + "?email=" + ssn1;
  859.    window.open(open_url,'','status=0,directories=0,resizable=0,toolbar=0,location=0,scrollbars=0,width=150,height=80');
  860. }
  861. function CheckForm_Other(obj)
  862. {
  863. obj.frm_NickName.dataType="Require";
  864. obj.frm_NickName.msg="您的昵称不能为空";
  866. if(obj.frm_Certificate.value=='0')
  867. {
  868. obj.frm_CerTificateCode.require="false";
  869. obj.frm_CerTificateCode.dataType="IdCard";
  870. obj.frm_CerTificateCode.msg="身份证号码不正确";
  871. }
  873. //obj.frm_Province.dataType="Require";
  874. //obj.frm_Province.msg="您的省份不能为空";
  876. obj.frm_CloseTime.dataType="date";
  877. obj.frm_CloseTime.format="ymd";
  878. obj.frm_CloseTime.msg="到期日期格式不正确";
  880. obj.frm_tel.require="false";
  881. obj.frm_tel.dataType="Phone";
  882. obj.frm_tel.msg="电话号码不正确";
  884. obj.frm_Mobile.require="false";
  885. obj.frm_Mobile.dataType="Mobile";
  886. obj.frm_Mobile.msg="手机号码不正确";
  888. obj.frm_HomePage.require="false";
  889. obj.frm_HomePage.dataType="Url";
  890. obj.frm_HomePage.msg="个人网站格式不正确";
  892. obj.frm_QQ.require="false";
  893. obj.frm_QQ.dataType="QQ";
  894. obj.frm_QQ.msg="QQ号码不正确";
  896. obj.frm_PostCode.require="false";
  897. obj.frm_PostCode.dataType="Zip";
  898. obj.frm_PostCode.msg="邮政编码不存在";
  900. obj.frm_Integral.require="false";
  901. obj.frm_Integral.dataType="Number";
  902. obj.frm_Integral.msg="积分必须是数字";
  904. obj.frm_FS_Money.require="false";
  905. obj.frm_FS_Money.dataType="Number";
  906. obj.frm_FS_Money.msg="金币必须是数字";
  908. //开始验证
  909. return Validator.Validate(obj,2);
  910. }
  911. -->
  912. </script>
  913. </html>
  914. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->