ATB Source Codes

Like webmaster forums Show Wap_User.asp Source code

Return Download Like webmaster forums: download Wap_User.asp Source code - Download Like webmaster forums Source code - Type:.asp
  1. <!--#include file="Conn.asp"-->
  2. <!-- #include file="inc/const.asp" -->
  3. <!--#include file="inc/Class_Mobile.asp"-->
  4. <!--#include file="inc/chan_const.asp"-->
  5. <!--#include file="inc/chkinput.asp"-->
  6. <!--#include file="inc/Email_Cls.asp"-->
  7. <!--#include file="inc/md5.asp"-->
  8. <%
  9. Dvbbs.LoadTemplates("login")
  10. DvbbsWap.ShowXMLStar
  11. If Request("t")="1" Then
  12.         Wap_UserLogin
  13. Else
  14.         Wap_UserReg
  15. End If
  16. DvbbsWap.ShowXMLEnd
  17.  
  18. Sub Wap_UserReg()
  19.         Dim ErrCodes
  20.         Dim TempLateStr
  21.         Dim RegSplitWords,i
  22.         Dim Name,Sex,Email,Mobile,Password
  23.  
  24.         Name = Dvbbs.CheckStr(Request("name"))
  25.         Sex = Trim(Request("sex"))
  26.         Email = Dvbbs.CheckStr(Trim(Request("email")))
  27.         Password = Dvbbs.CheckStr(Trim(Request("password")))
  28.         Mobile = Dvbbs.CheckStr(Trim(Request("mobile")))
  29.  
  30.         '传递信息验证
  31.         If Name = "" or StrLength(Name)>Cint(Dvbbs.Forum_Setting(41)) or StrLength(Name)<Cint(Dvbbs.Forum_Setting(40)) Then
  32.                 TempLateStr=template.Strings(28)
  33.                 TempLateStr=Replace(TempLateStr,"{$RegMaxLength}",Dvbbs.Forum_Setting(41))
  34.                 TempLateStr=Replace(TempLateStr,"{$RegLimLength}",Dvbbs.Forum_Setting(40))
  35.                 ErrCodes=ErrCodes+TempLateStr
  36.                 TempLateStr=""
  37.                 DvbbsWap.ShowErr 0,ErrCodes
  38.                 Exit Sub
  39.         End If
  40.  
  41.         If Instr(Name,"=")>0 or Instr(Name,"%")>0 or Instr(Name,chr(32))>0 or Instr(Name,"?")>0 or Instr(Name,"&")>0 or Instr(Name,";")>0 or Instr(Name,",")>0 or Instr(Name,"'")>0 or Instr(Name,",")>0 or Instr(Name,chr(34))>0 or Instr(Name,chr(9))>0 or Instr(Name,"")>0 or Instr(Name,"$")>0 or Instr(Name,"|")>0 Then
  42.                 DvbbsWap.AddErrCode(19)
  43.                 Exit sub
  44.         End If
  45.  
  46.         If Trim(Dvbbs.cachedata(1,0))<>"" Then
  47.         RegSplitWords=split(Dvbbs.cachedata(1,0),"|||")(4)
  48.         RegSplitWords=split(RegSplitWords,",")
  49.                 For i = 0 to ubound(RegSplitWords)
  50.                         If Trim(RegSplitWords(i))<>"" Then
  51.                                 If instr(Name,RegSplitWords(i))>0 Then
  52.                                         DvbbsWap.AddErrCode(19)
  53.                                         Exit sub
  54.                                 End If
  55.                         End If
  56.                 next
  57.         End If
  58.  
  59.         If Sex="0" or Sex="1" Then
  60.                 Sex=Cint(Sex)
  61.         Else
  62.                 Sex=1
  63.         End If
  64.  
  65.         If IsValidEmail(Email) = False Then
  66.                 ErrCodes = template.Strings(30)
  67.                 DvbbsWap.ShowErr 0,ErrCodes
  68.                 Exit Sub
  69.         Else
  70.                 If not Isnull(Dvbbs.Forum_Setting(52)) and Dvbbs.Forum_Setting(52)<>"" and Dvbbs.Forum_Setting(52)<>"0" Then
  71.                         Dim SplitUserEmail
  72.                         SplitUserEmail=Split(Dvbbs.Forum_Setting(52),"|")
  73.                         For i=0 to Ubound(SplitUserEmail)
  74.                                 If Instr(Email,SplitUserEmail(i))>0 Then
  75.                                         ErrCodes = template.Strings(31)
  76.                                         DvbbsWap.ShowErr 0,ErrCodes
  77.                                         Exit Sub
  78.                                 End If
  79.                         Next
  80.                 End If
  81.         End If
  82.  
  83.         If Password="" or Len(Password)>10 or Len(Password)<6 Then
  84.                 ErrCodes = template.Strings(13)
  85.                 DvbbsWap.ShowErr 0,ErrCodes
  86.                 Exit Sub
  87.         Else
  88.                 Password=Md5(Password,16)
  89.         End If
  90.  
  91.         If Mobile<>"" and IsNumeric(Mobile) Then
  92.                 Mobile = cCur(Mobile)
  93.         Else
  94.                 ErrCodes = "请正确填写您的手机信息!"
  95.                 DvbbsWap.ShowErr 0,ErrCodes
  96.                 Exit Sub
  97.         End If
  98.  
  99.         '论坛用户信息
  100.         Dim UserIM,UserInfo,UserSetting,UserFav,UserToday
  101.         Dim Forum_userface,FaceDefault,FaceWidth,FaceHeight
  102.         Dim UserClass,TitlePic
  103.         Dim Rs,Sql
  104.  
  105.         UserIM                  = "||||||||||||||||||"
  106.         UserInfo                = "||||||||||||||||||||||||||||||||||||||||||"
  107.         UserSetting             = "1|||0|||0"
  108.         UserFav                 = "陌生人,我的好友,黑名单"
  109.         UserToday               = "0|0|0|0|0"
  110.         FaceWidth               = CInt(Dvbbs.Forum_setting(38))
  111.         FaceHeight              = CInt(Dvbbs.Forum_setting(39))
  112.         Forum_userface  = Split(Dvbbs.Forum_userface,"|||")
  113.         FaceDefault             = Forum_userface(0) & Forum_userface(1)
  114.  
  115.         Sql = "select usertitle,grouppic,UserGroupID,IsSetting,ParentGID from Dv_UserGroups where ParentGID=3 order by MinArticle"
  116.         Set Rs = Dvbbs.execute(Sql)
  117.         UserClass = Rs(0)
  118.         TitlePic = Rs(1)
  119.         Dvbbs.UserGroupID = Rs(2)
  120.         Rs.Close
  121.  
  122.         Sql = "select * from [Dv_user] where username='"&Name&"' or usermobile='"&Mobile&"'"
  123.         If Cint(Dvbbs.Forum_Setting(24))=1 Then
  124.                 Sql = Sql & " or useremail='"&Email&"'"
  125.         End If
  126.         'Response.Write Sql
  127.  
  128.         Set Rs = Server.createobject("adodb.recordset")
  129.         Rs.open Sql,conn,1,3
  130.         If not Rs.eof and not Rs.bof Then
  131.                 If Dvbbs.Forum_Setting(24)="1" Then
  132.                         DvbbsWap.AddErrCode(20)
  133.                         Exit sub
  134.                 Else
  135.                         DvbbsWap.AddErrCode(21)
  136.                         Exit Sub
  137.                 End If
  138.         Else
  139.         Rs.addnew
  140.                 Rs("UserName") = Name
  141.                 Rs("UserPassword") = Password
  142.                 Rs("UserEmail") = Email
  143.                 Rs("UserMobile") = Mobile
  144.                 Rs("Userclass") = UserClass
  145.                 Rs("TitlePic") = TitlePic
  146.                 Rs("UserIM") = UserIM
  147.                 Rs("UserPost") = 0
  148.                 If Dvbbs.Forum_Setting(25) = "1" Then
  149.                         Rs("UserGroupID") = 5
  150.                 Else
  151.                         Rs("UserGroupID") = Dvbbs.UserGroupID
  152.                 End If
  153.                 Rs("Lockuser") = 0
  154.                 Rs("UserSex") = Sex
  155.                 Rs("JoinDate") = NOW()
  156.                 Rs("UserFace") = Dvbbs.CheckStr(FaceDefault)
  157.                 Rs("UserWidth") = FaceWidth
  158.                 Rs("UserHeight") = FaceHeight
  159.                 Rs("UserLogins") = 1
  160.                 Rs("LastLogin") = NOW()
  161.                 Rs("userWealth") = Dvbbs.Forum_user(0)
  162.                 Rs("userEP") = Dvbbs.Forum_user(5)
  163.                 Rs("usercP") = Dvbbs.Forum_user(10)
  164.                 Rs("UserInfo") = UserInfo
  165.                 Rs("UserSetting") = UserSetting
  166.                 Rs("UserPower") = 0
  167.                 Rs("UserDel") = 0
  168.                 Rs("UserIsbest") = 0
  169.                 Rs("UserMoney") = 0
  170.                 Rs("UserTicket") = 0
  171.                 Rs("UserFav") = UserFav
  172.                 Rs("IsChallenge") = 1
  173.                 Rs("UserLastIP") = Request.ServerVariables("REMOTE_ADDR")
  174.         Rs.update
  175.         Dvbbs.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&Name&"'")
  176.         Dvbbs.ReloadSetupCache Name,14
  177.         Dvbbs.ReloadSetupCache (CLng(Dvbbs.CacheData(10,0))+1),10
  178.         End If
  179.         Rs.Close
  180.         Dvbbs.Userid = Dvbbs.execute("select top 1 userid from [Dv_user] order by userid desc")(0)
  181.  
  182.         If Dvbbs.Forum_Setting(46)="1" Then
  183.                 '发送注册短信
  184.                 Dim sender,title,body,UserMsg,MsgID
  185.                 sender=Dvbbs.Forum_Info(0)
  186.                 title=Dvbbs.lanstr(2)&Dvbbs.Forum_Info(0)
  187.                 body = template.html(18)
  188.                 body = Replace(body,"{$Forumname}",Dvbbs.Forum_Info(0))
  189.                 sql="insert into dv_message(incept,sender,title,content,sendtime,flag,issend) values('"&name&"','"&sender&"','"&title&"','"&body&"',"&SqlNowString&",0,1)"
  190.                 Dvbbs.Execute(sql)
  191.                 MsgID = Dvbbs.execute("select top 1 ID from [Dv_message] order by ID desc")(0)
  192.                 UserMsg="1||"& MsgID &"||"& sender
  193.                 Dvbbs.execute("UPDATE [Dv_User] Set UserMsg='"&Dvbbs.CheckStr(UserMsg)&"' WHERE UserID="&Dvbbs.userid)
  194.         End If
  195.         If Dvbbs.Forum_Setting(47)=1 and Cint(Dvbbs.Forum_Setting(2))>0 Then
  196.                 'on error resume next
  197.                 '发送注册邮件
  198.                 Dim getpass,Topic,sendmsg,Mailbody
  199.                 topic = Replace(template.Strings(35),"{$Forumname}",Dvbbs.Forum_Info(0))
  200.                 getpass = Trim(Request("password"))
  201.                 mailbody = template.html(17)
  202.                 mailbody = Replace(mailbody,"{$username}",Dvbbs.HtmlEncode(Name))
  203.                 mailbody = Replace(mailbody,"{$password}",getpass)
  204.                 mailbody = Replace(mailbody,"{$copyright}",Dvbbs.Forum_Copyright)
  205.                 mailbody = Replace(mailbody,"{$version}",Dvbbs.Forum_Version)
  206.                 Dim DvEmail
  207.                 Set DvEmail = New Dv_SendMail
  208.                 DvEmail.SendObject = Cint(Dvbbs.Forum_Setting(2))       '设置选取组件 1=Jmail,2=Cdonts,3=Aspemail
  209.                 DvEmail.ServerLoginName = Dvbbs.Forum_info(12)  '您的邮件服务器登录名
  210.                 DvEmail.ServerLoginPass = Dvbbs.Forum_info(13)  '登录密码
  211.                 DvEmail.SendSMTP = Dvbbs.Forum_info(4)                  'SMTP地址
  212.                 DvEmail.SendFromEmail = Dvbbs.Forum_info(5)             '发送来源地址
  213.                 DvEmail.SendFromName = Dvbbs.Forum_info(0)              '发送人信息
  214.                 If DvEmail.ErrCode = 0 Then
  215.                         DvEmail.SendMail Email,topic,mailbody   '执行发送邮件
  216.                         If DvEmail.Count>0 Then
  217.                                 If Cint(Dvbbs.Forum_Setting(23))=1 Then
  218.                                         sendmsg=template.Strings(38)
  219.                                 Else
  220.                                         sendmsg=template.Strings(39)
  221.                                 End If
  222.                         Else
  223.                                 sendmsg=template.Strings(37)
  224.                         End If
  225.                 Else
  226.                         sendmsg=template.Strings(37)
  227.                 End If
  228.                 Set DvEmail = Nothing
  229.         Else
  230.                 sendmsg = template.Strings(36)
  231.         End If
  232.         ErrCodes = "恭喜您,注册成功。"
  233.         DvbbsWap.ShowErr 1,ErrCodes
  234. End Sub
  235.  
  236. Sub Wap_UserLogin()
  237.         Dim ErrCodes
  238.         Dim Name,Mobile,Password
  239.         Dim Rs,Sql
  240.         Name = Dvbbs.CheckStr(Trim(Request("name")))
  241.         Password = Dvbbs.CheckStr(Trim(Request("password")))
  242.         Mobile = DvbbsWap.Mobile
  243.         If Dvbbs.UserID>0 Then
  244.                 ErrCodes = "恭喜您,登陆成功。"&Dvbbs.UserID
  245.                 DvbbsWap.ShowErr 1,ErrCodes
  246.                 Exit Sub
  247.         End If
  248.         If Name="" or Password="" Then
  249.                 DvbbsWap.ShowErr 0,"用户帐号或密码不能为空!"
  250.                 Exit Sub
  251.         Else
  252.                 Password=Md5(Password,16)
  253.         End If
  254.         If Not IsObject(Conn) Then ConnectionDatabase
  255.         Sql = "select UserID,UserName,usermobile,UserLogins,LastLogin,IsChallenge,UserLastIP,Lockuser,UserGroupID from [Dv_user] where username='"&Name&"' and UserPassword='"&Password&"'"
  256.         'Response.Write sql
  257.         Set Rs = Server.createobject("adodb.recordset")
  258.         Rs.open Sql,conn,1,3
  259.         If Rs.eof Then
  260.                 DvbbsWap.ShowErr 0,"你的帐号和密码不符!"
  261.                 Exit Sub
  262.         Else
  263.                 If Rs("UserGroupID") = 5 Then
  264.                         DvbbsWap.ShowErr 0,"你是等待验证的(COPPA)会员,暂时不能登陆!"
  265.                         Exit Sub
  266.                 End If
  267.                 If Rs("Lockuser") = 1 Then
  268.                         DvbbsWap.ShowErr 0,"你的帐号已被锁定,不允许登陆!"
  269.                         Exit Sub
  270.                 End If
  271.                 Rs("UserLogins") = Rs("UserLogins")+1
  272.                 Rs("LastLogin") = NOW()
  273.                 Rs("IsChallenge") = 1
  274.                 if Mobile>0 Then
  275.                         Rs("usermobile") = Mobile
  276.                 Else
  277.                         Mobile = Rs("usermobile")
  278.                 End If
  279.                 Rs("UserLastIP") = Request.ServerVariables("REMOTE_ADDR")
  280.                 Rs.update
  281.                 Response.Write "<mobile>"&Mobile&"</mobile>"
  282.                 ErrCodes = "恭喜您,登陆成功。"
  283.                 DvbbsWap.ShowErr 1,ErrCodes
  284.         End If
  285.         Rs.Close
  286.         Set Rs=Nothing
  287. End Sub
  288. %>
downloadWap_User.asp Source code - Download Like webmaster forums Source code
Related Source Codes/Software:
Quanzhou China networks limited - Admin admin admin 21.45KB
Love agent shop navigation friendship China buffet chain V1.0 - Fully functional, application link, points into on... 4.34KB
Source of party and Government official open source Government TS version v1.0 - I am a Government webmaster, not a computer traini... 10.95KB
Sunzhuang town government - Simple and practical! 5.15KB
160 Shenzhen rental rental information network - Rental information network-a very good site, which... 79.99KB
Journey of legends ASP.NET version system - Abbreviation for Cms is a Content Management Syste... 18.45KB
M media corporate website system v3.5.2 - M media on the powerful systems in addition to foc... 5.69KB
M media enterprise open source Web System v1.0.0 - M media on the powerful systems in addition to foc... 4.9KB
M media management system voted v2.1.0 - As computer and electronic communications technolo... 6.01KB
Chinese women's network the entire station source code - A woman's Web site package download, and a present... 22.95KB
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