ATB Source Codes

Like webmaster forums Show cookies.asp Source code

Return Download Like webmaster forums: download cookies.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/Dv_ClsOther.asp" -->
  4. <%
  5. Dim action
  6. action=Request("action")
  7. Select Case action
  8.         Case "hidden"
  9.                 Call hidden()
  10.         Case "online"
  11.                 Call online()
  12.         Case "stylemod"
  13.                 Call stylemod()
  14.         Case "setlistmod"
  15.                 Call SetListmod
  16.         Case "setlistmoda"
  17.                 Call SetListmoda
  18.         Case "ReGroup"
  19.                 Call ReGroup
  20.         Case Else
  21. End Select
  22.  
  23. If IsNull(Request.ServerVariables("HTTP_REFERER")) Or Request.ServerVariables("HTTP_REFERER")="" Then
  24.         Response.Redirect "index.asp"
  25. Else
  26.         Response.Redirect Request.ServerVariables("HTTP_REFERER")
  27. End If
  28.  
  29. Sub hidden()
  30.         If Not Dvbbs.founduser Then
  31.                 Dvbbs.AddErrCode "34":Dvbbs.Showerr()
  32.         End If
  33.         Dvbbs.execute("update [Dv_online] set userhidden=1 where userid="&Dvbbs.userid)
  34.         Dvbbs.execute("update [Dv_user] set userhidden=1 where userid="&Dvbbs.userid)
  35.         Dim usercookies
  36.         usercookies=request.cookies(Dvbbs.Forum_sn)("usercookies")
  37.         If IsNull(usercookies) or usercookies="" then usercookies="0"
  38.         Select Case usercookies
  39.                 Case "0"
  40.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  41.                 Case 1
  42.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
  43.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  44.                 Case 2
  45.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
  46.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  47.                 Case 3
  48.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
  49.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  50.         End Select
  51.         Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 1
  52.         Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
  53. End Sub
  54.  
  55. Sub online()
  56.         If Not Dvbbs.founduser Then
  57.                 Dvbbs.AddErrCode "34":Dvbbs.Showerr()
  58.         End If
  59.         Dvbbs.execute("update [dv_online] set userhidden=2 where userid="&Dvbbs.userid)
  60.         Dvbbs.execute("update [Dv_user] set userhidden=2 where userid="&Dvbbs.userid)
  61.         Dim  usercookies
  62.         usercookies=request.cookies(Dvbbs.Forum_sn)("usercookies")
  63.         If IsNull(usercookies) or usercookies="" Then usercookies="0"
  64.         Select Case usercookies
  65.                 Case "0"
  66.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  67.                 Case 1
  68.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1
  69.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  70.                 Case 2
  71.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31
  72.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  73.                 Case 3
  74.                         Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365
  75.                         Response.Cookies(Dvbbs.Forum_sn)("usercookies") = usercookies
  76.         End select
  77.         Response.Cookies(Dvbbs.Forum_sn)("userhidden") = 2
  78.         Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
  79. End Sub
  80.  
  81. Sub Stylemod()
  82.         If Not isnumeric(request("skinid")) Then
  83.                 Dvbbs.AddErrCode "35":Dvbbs.Showerr()
  84.         End If
  85.         Dim skinid
  86.         skinid=Request("skinid")
  87.         Response.Cookies("skin").expires= date+7
  88.         Response.Cookies("skin")("skinid_"&Dvbbs.boardid)=skinid
  89.         Response.Cookies("skin").path=Dvbbs.cookiepath
  90.         Response.Write "<script language=""javascript"">parent.location.reload();</script>"
  91.         Response.End
  92. End Sub
  93. Sub SetListmod()
  94.         Response.Cookies("List").path=Dvbbs.cookiepath
  95.         Response.Cookies("List").expires= date+7
  96.         Response.Cookies("List")("list"&Request("id"))=request("thisvalue")
  97.         Response.Write "<script language=""javascript"">parent.location.reload();</script>"
  98.         Response.End
  99. End Sub
  100.  
  101. Sub ReGroup()
  102.         If Dvbbs.UserID = 0 Then Exit Sub
  103.         If Dvbbs.UserGroupParent <> 4 And Cint(Dvbbs.IsUserPermissionOnly) = 0 Then Exit Sub
  104.         Dim ReGroupID,i,FoundGroupID,iUserInfo
  105.         ReGroupID = Request("GroupID")
  106.         If Not IsNumeric(ReGroupID) Or ReGroupID="" Then Exit Sub
  107.         ReGroupID = Cint(ReGroupID)
  108.         FoundGroupID = False
  109.         For i = 0 To Ubound(Dvbbs.UserGroupParentID)
  110.                 If ReGroupID = Cint(Dvbbs.UserGroupParentID(i)) Then
  111.                         FoundGroupID = True
  112.                         Exit For
  113.                 End If
  114.         Next
  115.         If Cint(Dvbbs.IsUserPermissionOnly) > 0 Then FoundGroupID = True
  116.         If Not FoundGroupID Then Exit Sub
  117.         iUserInfo = Session(Dvbbs.CacheName & "UserID")
  118.         Dim TempUBound
  119.         TempUBound = Ubound(iUserInfo)-2
  120.         If Cint(iUserInfo(TempUBound)) = ReGroupID Then
  121.                 iUserInfo(TempUBound) = 0
  122.         Else
  123.                 iUserInfo(TempUBound) = iUserInfo(19)
  124.         End If
  125.         iUserInfo(19) = ReGroupID
  126.         Session(Dvbbs.CacheName & "UserID") = iUserInfo
  127. End Sub
  128. %>
  129.  
downloadcookies.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