ATB Source Codes

Yongxiu music (maintenance-free edition) v1.3 Show Regpost.asp Source code

Return Download Yongxiu music (maintenance-free edition) v1.3: download Regpost.asp Source code - Download Yongxiu music (maintenance-free edition) v1.3 Source code - Type:.asp
  1. <!--#include file="top2.asp"-->
  2. <!--#include file="conn.asp"-->
  3. <!--#include file="function.asp"-->
  4. <!--#include file="md5.asp"-->
  5. <%dim errmsg
  6. founderr=false
  7.  
  8. if request.form("UserName")="" or len(request.form("UserName"))>20 then
  9.         errmsg=errmsg+""+"用户名输入错误(未输入或长度超过了20个字节)。<br>"
  10.         founderr=true
  11. else
  12.         UserName=trim(request.form("UserName"))
  13. end if
  14. if request.form("password")="" or Len(request.form("password"))>20 then
  15.         errmsg=errmsg+""+"请输入您的密码(长度不能大于20)。<br>"
  16.         founderr=true
  17. else
  18.         password=request.form("password")
  19. end if
  20.  
  21. if password<>request("password2") then
  22.         errmsg=errmsg+""+"您输入的密码和确认密码不一致。"
  23.         founderr=true
  24. end if
  25. if trim(request.form("question"))="" or Len(request.form("question"))>16 then
  26.         errmsg=errmsg+""+"请输入您的问题提示(长度不能大于16或者不能为空)。"
  27.         founderr=true
  28. else
  29.         question=trim(request.form("question"))
  30. end if
  31. if trim(request.form("answer"))="" or Len(request.form("answer"))>16 then
  32.         errmsg=errmsg+""+"请输入您的提示答案(长度不能大于16或者不能为空)。"
  33.         founderr=true
  34. else
  35.         answer=md5(trim(request.form("answer")))
  36. end if
  37. if IsValidEmail(trim(request.form("Email")))=false then
  38.         errmsg=errmsg+""+"您的Email有错误。"
  39.         founderr=true
  40. else
  41.         Email=trim(request.form("Email"))
  42. end if
  43. oicq=trim(request.form("oicq"))
  44. if oicq<>"" then
  45.         if not isnumeric(oicq) or len(oicq)>10 then
  46.                 errmsg=errmsg+"<br>"+"<li>Oicq号码只能是4-10位数字,您可以选择不输入。"
  47.                 founderr=true
  48.         end if
  49. end if
  50. if trim(request.form("regnum"))<>trim(session("regnum")) then
  51.         errmsg=errmsg+""+"验证码输入有误。"
  52.         founderr=true
  53. end if
  54. name=(trim(request.form("name")))
  55. address=(trim(request.form("address")))
  56. youbian=trim(request.form("youbian"))
  57. if oicq<>"" then
  58.         if not isnumeric(youbian) or len(youbian)<>6 then
  59.                 errmsg=errmsg+"<br>"+"<li>你的邮编填写有错误"
  60.                 founderr=true
  61.         end if
  62. end if
  63. shenfenzheng=getSFZH18(trim(request.form("shenfenzheng")))
  64.  
  65. tel=request.form("tel")
  66. vipdate=request.form("vipdate")
  67.  
  68. if founderr=true then
  69.         call error()
  70. else
  71.         set rs=server.createobject("adodb.recordset")
  72.         sql="select * from [user] where username='"&username&"'"
  73.         rs.open sql,conn,1,3
  74.         if not rs.eof or username=WebName then
  75.                 errmsg=""+"对不起,您输入的用户名已经被注册,请重新输入。"
  76.                 founderr=true
  77.         else
  78.                 rs.addnew
  79.                 rs("username")=username
  80.                 rs("password")=md5(password)
  81.                 rs("question")=question
  82.                 rs("answer")=md5(answer)
  83.                 rs("email")=email
  84.                 rs("truename")=name
  85.                 rs("oicq")=oicq
  86.                 rs("LoginIP")=Request.serverVariables("REMOTE_ADDR")
  87.                 rs("logindate")=date()
  88.                 rs("youbian")=youbian
  89.                 rs("tel")=tel
  90.                 rs("shenfenzheng")=shenfenzheng
  91.                 rs("address")=address
  92.                 rs("lockuser")=false   '会员注册后自动锁定是 true  不锁定 false
  93.                 rs("vipdate")=vipdate
  94.                 rs("addDate")=NOW()
  95.                 rs.update
  96.         end if
  97.         rs.close
  98.  
  99.         if founderr=true then
  100.                 call error()
  101.         else
  102. %>
  103. <TABLE cellSpacing=0 cellPadding=0 width=776 align=center bgColor=#ffffff
  104. border=0>
  105.   <TBODY>
  106.   <TR>
  107.     <TD vAlign=top align=middle width="177" bgColor=#E7E7E7> <br>
  108.      <%call lefts%>
  109.     </TD>       <TD vAlign=top width=604 bgColor=#e7e7e7> <br>    
  110.     <table border="0" cellspacing="0" width="600" cellpadding="0" bgcolor="#E7E7E7">
  111.       <tr>
  112.         <td width="613">
  113.           <div align="center" style="width: 573; height: 247">
  114.             <table border="0" cellpadding="0" cellspacing="0" width="500">
  115.               <tr>
  116.                 <td width="100%" height="12" colspan="2"></td>
  117.               </tr>
  118.               <tr>
  119.                 <td height="17" background="../images/b4.gif">
  120.                   <div align="center"><b>注 册 成 功</b></div>
  121.                 </td>
  122.               </tr>
  123.               <tr>
  124.                 <td width="100%" colspan="2"><img border="0" width="1" height="1"></td>
  125.               </tr>
  126.               <tr>
  127.                 <td width="100%" colspan="2" bgcolor="#808080"><img width="1" height="2"></td>
  128.               </tr>
  129.             </table>
  130.             <table border="0" cellpadding="4" cellspacing="1" width="502">
  131.               <form method=post action="ChkLogin.asp">
  132.                 <tr>
  133.                   <td width="180" bgcolor="#C0C0C0" align="right">登录ID:</td>
  134.                   <td width="320" bgcolor="#C0C0C0">&nbsp;          
  135.                     <input type=text name=username size=26 value="<%=username%>">          
  136.                     <input type=password name=password size=1 class=flat1 style="color: #C0C0C0; background-color: #C0C0C0; border: 0 solid #000000" value="<%=password%>">          
  137.                   </td>          
  138.                 </tr>          
  139.                 <tr>            
  140.                   <td width="180" bgcolor="#C0C0C0" align="right">密码:</td>          
  141.                   <td width="320" bgcolor="#C0C0C0">&nbsp;<%=password%></td>          
  142.                 </tr>          
  143.                 <tr>            
  144.                   <td width="180" bgcolor="#C0C0C0" align="right">问题提示:</td>          
  145.                   <td width="320" bgcolor="#C0C0C0">&nbsp;<%=question%></td>          
  146.                 </tr>          
  147.                 <tr>            
  148.                   <td width="180" bgcolor="#C0C0C0" align="right">提示答案:</td>          
  149.                   <td width="320" bgcolor="#C0C0C0">&nbsp;<%=request("answer")%>        
  150.                     <font color="#A01700"><b>   (此项务必记住,用于找回密码)</b></font></td>          
  151.                 </tr>          
  152.                 <tr>          
  153.                   <td width="180" bgcolor="#C0C0C0" align="right">E-mail:</td>          
  154.                   <td width="320" bgcolor="#C0C0C0"><%=Email%></td>          
  155.                 </tr>
  156.  <tr>          
  157.                   <td width="180" bgcolor="#C0C0C0" align="right">备注:</td>          
  158.                   <td width="320" bgcolor="#C0C0C0">以下属于个人保密,省略......</td>          
  159.                 </tr>          
  160.                 <tr bgcolor="#C0C0C0">          
  161.                   <td width="500" align="center" colspan="2">          
  162.                     <INPUT value="现在登陆" name=Login type=submit>          
  163.                   </td>          
  164.                 </tr>          
  165.               </form>          
  166.             </table>          
  167.             <br>          
  168.             <br>          
  169.           </div>          
  170.         </td>          
  171.       </tr>          
  172.     </table>                  
  173.   </TR></TBODY></TABLE>                
  174. <!--#include file="box2.asp"-->                              
  175. <%   Function getSFZH18(IDCard)    
  176.            
  177.         dim i,num,j    
  178.         dim sfzh18,code    
  179.         dim modValue,MidValue '    
  180.                    
  181.         i=0    
  182.         num=0    
  183.            
  184.         ''判断长度    
  185.            
  186.         if len(IDCard)<>15 and len(IDCard)<>17 and len(IDCard)<>18  then    
  187.         errmsg=errmsg+"<br>"+"输入的身份证位数不正确,请确认!"    
  188.         founderr=true    
  189.                 exit function    
  190.         end if    
  191.            
  192.         '如果IDCard=15位的时候    
  193.                    
  194.         if len(IDCard)=15 then    
  195.            
  196.                 sfzh18=left(IDCard,6) & "19" & right(IDCard,9)    
  197.            
  198.         end if    
  199.            
  200.         if len(IDCard)=18 then    
  201.            
  202.                 sfzh18=left(IDCard,17)    
  203.                    
  204.         end if    
  205.            
  206.         if len(IDCard)=17 then    
  207.                            
  208.                 sfzh18=IDCard    
  209.            
  210.         end if    
  211.    
  212.         ''判断出生年月是否正确    
  213.            
  214.         if isDate( mid(sfzh18,7,4) & "-" & mid(sfzh18,11,2) & "-" & mid(sfzh18,13,2) )=False  then    
  215.                            
  216.         errmsg=errmsg+"<br>"+"身份证里含有非法的日期!"    
  217.         founderr=true    
  218.                 exit function    
  219.            
  220.         end if    
  221.            
  222.         for  i=1 to 17    
  223.                    
  224.                 if IsNumeric(mid(sfzh18,i,1))=false then    
  225.         errmsg=errmsg+"<br>"+"身份证录入有非数字的字符"    
  226.         founderr=true    
  227.                         exit function    
  228.                 end if    
  229.         Next    
  230.            
  231.            
  232.         for j=18 to 2 step -1    
  233.                 modValue=2^(j-1) mod 11            
  234.                 midValue=cint(mid(sfzh18,19-j,1))    
  235.                 num=num+modValue*midValue          
  236.         Next    
  237.                    
  238.         num=num mod 11    
  239.            
  240.         select case num    
  241.                 case 0    
  242.                         code="1"    
  243.                 case 1    
  244.                         code="0"    
  245.                 case 2    
  246.                         code="X"    
  247.                 case 3    
  248.                         code="9"    
  249.                 case 4    
  250.                         code="8"    
  251.                 case 5    
  252.                         code="7"    
  253.                 case 6    
  254.                         code="6"    
  255.                 case 7    
  256.                         code="5"    
  257.                 case 8    
  258.                         code="4"    
  259.                 case 9    
  260.                         code="3"    
  261.                 case 10    
  262.                         code="2"    
  263.         end select    
  264.            
  265.         sfzh18=sfzh18 & code    
  266.            
  267.         getSFZH18=sfzh18                   
  268.            
  269. End function          
  270.         end if              
  271.         set rs=nothing              
  272. end if              
  273. conn.close              
  274. set conn=nothing              
  275. %>
downloadRegpost.asp Source code - Download Yongxiu music (maintenance-free edition) v1.3 Source code
Related Source Codes/Software:
Fuzhou Humanities Sun decoration engineering company - Elegant interface, program with FLASH source files... 62.8KB
Cloud network interactive television systems (12 sets of templates and resource Alliance) V6.2.4 - With 12 sets of beautiful templates and flow of re... 29.79KB
Interactive Movie system for cloud network v6.1.0 ((collection) - Features and advantages of using the cloud network... 28.98KB
Practice the US total station - The perfect woman, from licensed us open begins. 121.64KB
Yuda talent attached to network management system - 1. corporate membership managementCorporate me... 27.09KB
Game money orders system - This program is not for commercial purposes, conta... 3.09KB
China auto parts network - This site without debugging. Debugging to an expla... 24.23KB
Yzlove.com (SQL version) - Yangzhou dating network, very good dating system, ... 27.03KB
Rain wise software acquisition plug-in For PowerEasy SiteWeaver - General acquisition plug-in software modules, func... 17.54KB
Yizhong shopping system v2.30 - Ordinary users after one, customer registration an... 6.47KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top