Выложить остальные)?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Выложить остальные)? - 2009-07-24 17:11:01.490000
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
http://forum.xaker.ru/js/globalfunctions.aspx
Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Profile
Imports System.Web.Security
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Namespace ASP
<System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Public Class js_globalfunctions_aspx
Inherits Global.System.Web.UI.Page
Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Private Shared __initialized As Boolean
Private Shared __fileDependencies As Object
#ExternalSource("D:\morazm\www\forums\xakep\js\globalfunctions.aspx",1)
Shared Function selectedOption(optionSelected As Object, myOption As object) As String
If ("" & optionSelected) = ("" & myOption) Then
Return "selected"
End IF
Return ""
End Function
Shared Function checkedOption(optionChecked As Object, myOption As Object) As String
If ("" & optionChecked) = (myOption & "") Then
Return "checked"
End IF
Return ""
End Function
Shared Function iff(evaluation As Boolean, trueVal As Object , falseVal As Object) As Object
If evaluation Then
Return trueVal
Else
Return falseVal
End IF
End Function
Shared Function andorsign(str As Integer) As String
If str = 1 Then
Return "&&"
Else
Return "||"
End IF
End Function
Shared Function addTrailingSlash(str as String) As String
If Not str.EndsWith("/") Then
Return str & "/"
Else
Return str
End IF
End Function
Shared Function CheckedOrNot(inValue As String) As Integer
If LCase(inValue & "") = "on" Then
Return 1
Else
Return 0
End IF
End Function
Shared Function CheckDelimitedFormat(Format As String, delimiter As String) As String
Dim tempFormat As String
Dim arrtempFormat() As String
Format = Format & ""
tempFormat = Trim(Format)
arrtempFormat = Split(tempFormat, delimiter)
Dim fstArr()
Dim sndArr()
Dim idel As Integer
Dim finalUbound As Integer
finalUbound = - 1
ReDim fstArr(ArrUBound(arrtempFormat))
For idel = 0 To ArrUBound(arrtempFormat)
If Len(Trim(arrtempFormat(idel) & "")) > 0 Then
finalUbound = finalUbound + 1
fstArr(finalUbound) = Trim(arrtempFormat(idel) & "")
End IF
Next
ReDim sndArr(finalUbound)
idel = 0
For idel = 0 To finalUbound
sndArr(idel) = fstArr(idel)
Next
tempFormat = Join(sndArr, delimiter)
If tempFormat <> "" AND Trim(tempFormat) <> delimiter Then
Return tempFormat
Else
Return ""
End IF
End Function
Function rndnumber(minN as Integer, maxN as Integer) As Integer
Dim Random_Number_Min As Integer
Dim Random_Number_Max As Integer
Randomize()
Random_Number_Min = CLng(minN)
Random_Number_Max = CLng(maxN)
Return Int(((Random_Number_Max - Random_Number_Min + 1) * Rnd()) + Random_Number_Min)
End Function
Shared Function SQLNowDate() As String 'It is actually ISO-8601 date format now
Return Year(Now()) & "-" & LeadingZero(Month(Now())) & "-" & LeadingZero(Day(Now())) & " " & LeadingZero(Hour(TimeOfDay())) & ":" & LeadingZero(Minute(TimeOfDay())) & ":" & LeadingZero(Second(TimeOfDay()))
'Return Now().toString("s")
End Function
Shared Function SQLNowDateOnly() As String 'It is actually ISO-8601 date format now
Return Year(Now()) & "-" & LeadingZero(Month(Now())) & "-" & LeadingZero(Day(Now()))
End Function
Shared Function SQLMediumDate(str As String) As String ''It is actually ISO-8601 date format now
str = "" & str
If IsDate(str) Then
Return Year(str) & "-" & LeadingZero(Month(str)) & "-" & LeadingZero(Day(str)) & " " & LeadingZero(Hour(str)) & ":" & LeadingZero(Minute(str)) & ":" & LeadingZero(Second(str))
Else
Return SQLNowDate()
End IF
End Function
Shared Function SQLMediumDateOnly(str As String) As String ''It is actually ISO-8601 date format now
str = "" & str
If IsDate(str) Then
Return Year(str) & "-" & LeadingZero(Month(str)) & "-" & LeadingZero(Day(str))
Else
Return SQLNowDateOnly()
End IF
End Function
Shared Function LeadingZero(str As Integer) As String
Return Right(CStr(str + 100), 2)
End Function
Function GetHostType() As String
If CheckedOrNot(Request.ServerVariables("HTTPS")) = 1 Then
Return "https://"
Else
Return "http://"
End IF
End Function
Function inStrArray(str As String, strArray() as String, caseSensitivity as Boolean) As Boolean
Dim item as String
Dim result As Boolean
result = False
For Each item In strArray
If InStr(1, str, item, iff(caseSensitivity, CompareMethod.Binary,CompareMethod.Text)) Then
result = true
Exit For
End IF
Next
Return result
End Function
Function ReplaceStrArray(str As String, strArray() as String, strReplace as String) As String
Dim item As String
Dim result As String
result = str
For Each item In strArray
result = Replace(result, item, strReplace)
Next
Return result
End Function
Shared Function HTMLEncode(str as String) As String
str = str & ""
str = Replace(str, "&", "&&&")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, """", """)
str = Replace(str, "'", "'")
str = Replace(str, "\", "\")
str = Replace(str, "&&&", "&") '"
Return str
End Function
Shared Function JSEncode(str as String) As String
str = str & ""
str = Replace(str, "\", "\\") '"
str = Replace(str, """", """)
str = Replace(str, "'", "\'")
Return str
End Function
Shared Function NoScript() As String
Return "<noscript>Javascript is currently disabled!</noscript>"
End Function
Function OutputCSS() As String
Return "<link rel='stylesheet' href='" & Applications("modifieddir") & "html_cache/" & iff(memBrowser = "moz4", "4", "5") & ".css' type='text/css'>"
End Function
Function RepeatStr(str as String, timetorepeat As Integer) As String
If timetorepeat= 0 Then
Return ""
End IF
Dim arr() as String
Dim i As Integer
ReDim arr(timetorepeat - 1)
For i = 0 To (timetorepeat - 1)
arr(i) = str
Next
Return Join(arr, "")
End Function
Function getGuid() As String
' Dim typelib
' Set TypeLib = server.createobject("Scriptlet.TypeLib")
' getGuid = replace(mid(CStr(TypeLib.Guid),2, 36),"-","")
' Set TypeLib = Nothing
Return Guid.NewGuid().ToString().replace("-","").ToUpper()
End Function
Sub updatePM()
Dim arrAllforum As Object
Dim i As Integer
Dim pu As String
Dim mu As String
Dim mn As String
Dim multipleArrays As Object
arrAllforum = GetArrayViaRS("SELECT forumID FROM pgd_forums with (nolock) WHERE isforum>=1", CommandType.Text)
If IsArray(arrAllforum) Then
For i = 0 To UBound(arrAllforum, 2)
pu = ""
mu = ""
mn = ""
multipleArrays = getNumArrayViaRS("exec " & dbOwnerPrefix & "spUpdatePrivateModeratorCache " & arrAllforum(0, i) , CommandType.Text, 2)
If IsArray(multipleArrays(0)) Then
pu = Join(ExtractOneDimension(multipleArrays(0), 0), ",") & ","
End IF
If IsArray(multipleArrays(1)) Then
mu = Join(ExtractOneDimension(multipleArrays(1), 0), ",") & ","
End IF
If IsArray(multipleArrays(2)) Then
mn = Join(ExtractOneDimension(multipleArrays(2), 0), "|") & "|"
End IF
ExecuteSQL("update pgd_forums Set PrivateUser='" & pu & "', Moderator='" & mu & "', ModeratorName=N'" & mn & "' WHERE ForumID = " & arrAllforum(0, i), CommandType.Text)
Next
End IF
End Sub
Sub ini()
Dim objRs As DataSet
Dim conn As New SqlConnection(datastore)
Dim sqladapter As SqlDataAdapter
Dim catSQL as String
conn.Open()
objRs = new DataSet()
catSQL = "SELECT * FROM pgd_forums"
sqladapter = new SqlDataAdapter(catSQL, conn)
sqladapter.Fill(objRs)
Dim scb As SqlCommandBuilder
Dim drow as DataRow
Dim drows As DataRowCollection
Dim dbtab as DataTable
dbtab = objRs.Tables(0)
drows = dbtab.Rows
Dim cmd As New SqlCommand()
Dim strSql As String
cmd.Connection = conn
' If .EOF Or .BOF Then
If IsDBNull(drows) or drows.Count = 0 Then
' cmd.CommandText = "INSERT INTO pgd_forums(
strSQL = "INSERT INTO pgd_forums"
strSQL = strSQL & "(forumid, forumtitle, forumdesc, sort, isforum, parent, llevel, lorder, hasChild ) VALUES"
strSQL = strSQL & "(1, 'Default Category', 'Default Category', 1, 0 , 0, 1, '001', 0)"
cmd.CommandText = strSQL
'Response.Write(strSQL)
'Response.End
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
End If
objRs.Dispose() ' Close
objRs = Nothing
sqladapter.Dispose() ' Close
sqladapter = Nothing
objRs = new DataSet()
catSQL = "SELECT * FROM pgd_Colorscheme"
sqladapter = new SqlDataAdapter(catSQL, conn)
sqladapter.Fill(objRs)
dbtab = objRs.Tables(0)
drows = dbtab.Rows
' If .EOF Or .BOF Then
If IsDBNull(drows) or drows.Count = 0 Then
' e0e0d0 d0d0d0 f1f1f1 505050 e5e4e9 '
strSQL = "INSERT INTO pgd_Colorscheme"
strSQL = strSQL & "(schemename, tabletitle, tableborder,tableinside,titlefontcolor, tablealt,insideBG, altBG) Values "
strSQL = strSQL & "('Original', 'cc6601', 'd0d0d0', 'f1f1f1', 'ffffff','e5e4e9', '', '')"
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
End IF
objRs.Dispose() ' Close
objRs = Nothing
sqladapter.Dispose() ' Close
sqladapter = Nothing
objRs = new DataSet()
catSQL = "SELECT * FROM pgd_Config"
sqladapter = new SqlDataAdapter(catSQL, conn)
sqladapter.Fill(objRs)
dbtab = objRs.Tables(0)
drows = dbtab.Rows
' If .EOF Or .BOF Then
If IsDBNull(drows) or drows.Count = 0 Then
strSQL = "INSERT INTO pgd_Config"
strSQL = strSQL & "(forumdir, lang, mpg, maildll, mailsrv, upload, searchmode, colorscheme, Sitehome, BannedIP, WordFilter," & _
"adminEmail, ForumTitle,viewPref, onlineTracking, singleLogin, enableSubscribe, maxFloodControl, maxShortMsg, sessiontimeout, timeoffset, " & _
"localesetting, regtype, namefilter, allowsigupload,leftFrame, tpg, boarddown, enablePMUpload, PMUpload, avatarUpload, profileUpload, " & _
"allowProfPhoto, userLevelNameMod, userLevelNameAdmin, starPicSuffix, modStar, adminStar, DefShowRight, DefShowMod, alterBy, enableDBHeader," & _
"enableDBFooter, NoIMGinSigs, checkDomain, allowHide, timeBeforeEditDel, tmShowParentAuthor, hideUnselectedCategories, cookieDomain," & _
"cookiePath, domainFilter, todayLastVisitPref, allowHideProfile, ttTooltip, threshold, mailsrvU, mailsrvP, searchEngineModEnabled, " & _
"mailsrvPort, trackRead, metatags, showTopDivider, thumbnail, guestSearch, guestProfile,guestMemList,guestForum, showtodayseventbirthday, " & _
"quickreply, hideRecycledPostFromMember, defCatAppear, pmnumlimit, timelimiteditdeleteunit, thumbnailsize, hidescore, tablewidth, " & _
"fwdPostRestrict, hideOnlineUserList, slideShowInterval, onlinetrackingdefault, mostUserOnline, mostUserOnlineTime, restrictedWords, " & _
"moderatorCanDeletePermanent,reportReasons, notifyMovedPost, dummyemail, srmemail, moderatormovepref, useSessionObject, sendNotificationViaBCC) Values "
strSQL = strSQL & "('" & LCase(HostType & Left(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO"), InStrRev(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO"), "/"))) & "'" & _
", 'UTF-8', 20, 'NoMail','','PGDUpload','normal query','Original'," & _
"'" & LCase(HostType & Request.ServerVariables("SERVER_NAME") & "/") & "'" & _
", '','','admin@yoururl.com','My Forum',0,1,0,1,0,50,20,0,'%m/%d/%ly %12t',0,'',0,150,20,0,0,'200|jpg/txt/gif'" & _
", '10|jpg/gif','20|jpg/gif',3,'Moderator','Administrator','star.gif','5starM.gif','5starA.gif',1,1,0,0,0,0,0,1,0,1,1" & _
", '','','',0,0,0,'0.25','','',0,'',1,'',0,0,0,0,1,0,1,0,1,1,5,'d',150,0,'98%',0,0,'4|8|12|16',0,0," & _
"'" & SQLNowDate() & "'" & _
",'',1,'',0,'','',1,0,0)"
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
End IF
objRs.Dispose() ' Close
objRs = Nothing
sqladapter.Dispose() ' Close
sqladapter = Nothing
objRs = new DataSet()
catSQL = "SELECT * FROM pgd_members"
sqladapter = new SqlDataAdapter(catSQL, conn)
sqladapter.Fill(objRs)
dbtab = objRs.Tables(0)
drows = dbtab.Rows
' If .EOF Or .BOF Then
If IsDBNull(drows) or drows.Count = 0 Then
strSQL = "INSERT INTO pgd_members"
strSQL = strSQL & "(Mem, Login, Fname, Lname, Email, Userpass, ip, banned, regStatus) Values "
strSQL = strSQL & "(-1, 'Guest', 'Forum', 'Guest', 'guest@yoururl.com', 'guest', '127.0.0.1',0,0 )"
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
strSQL = "INSERT INTO pgd_members"
strSQL = strSQL & "(Mem, Login, Fname, Lname, Email, Userpass, ip, banned, regStatus) Values "
strSQL = strSQL & "(-2, 'Deleted User', 'Forum', 'Guest', 'guest@yoururl.com', 'guest', '127.0.0.1',1,3)"
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
strSQL = "INSERT INTO pgd_members"
strSQL = strSQL & "(Mem, Login, Fname, Lname, Email, dateSignUp, Userpass, totalPosts, ip, banned, " & _
" viewPref, emailview, sigpicture, regStatus, allowSigpicture, allowShortMsg, acceptShortMsg, score) Values "
strSQL = strSQL & "(0, 'Admin', 'Forum','Admin', 'admin@yoururl.com', '" & Today() & "', 'admin', 0, '127.0.0.1', " & _
" 0, 0, 1,'',0, 1, 1,1, 0)"
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
End IF
objRs.Dispose() ' Close
objRs = Nothing
sqladapter.Dispose() ' Close
sqladapter = Nothing
objRs = new DataSet()
catSQL = "SELECT * FROM pgd_UserGroup"
sqladapter = new SqlDataAdapter(catSQL, conn)
sqladapter.Fill(objRs)
dbtab = objRs.Tables(0)
drows = dbtab.Rows
' If .EOF Or .BOF Then
If IsDBNull(drows) or drows.Count = 0 Then
strSQL = "Insert into [pgd_UserGroup] (GID,GName,GType) Values (0,'Administrators',1) " & _
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:24:53.133333
|
|
|
Cep}|{
Сообщений: 1396
Оценки: 0
Присоединился: 2007-06-26 01:11:51.416666
|
1. Для кода есть тэг [соde]
2. Зачем это все выкладывать ?
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:25:03.790000
|
|
|
blonx
Сообщений: 1150
Оценки: 0
Присоединился: 2006-04-01 03:28:42
|
И че? Сканером пробежался? :)
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:26:23.400000
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
нефига)
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:37:39.336666
|
|
|
Naрster
Сообщений: 870
Оценки: 0
Присоединился: 2008-05-17 13:04:12.330000
|
о_О! Да тут новая флуд ветка. :D
Потрошим форум из нутри. Выложи самый длинный код, и получи одну из IT девушек в подарок.
Главный спонсор акции Л. Боголюбов.
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:48:36.656666
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
кому надо все сорцы форума xakep.ru полностью ,
в ICQ 556882777 )
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:50:52.900000
|
|
|
Cep}|{
Сообщений: 1396
Оценки: 0
Присоединился: 2007-06-26 01:11:51.416666
|
кому надо все сорцы форума xakep.ru полностью , http://aspplayground.net/
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:51:49.180000
|
|
|
Persona non grata
Сообщений: 1164
Оценки: 0
Присоединился: 2008-03-25 00:29:28.436666
|
quote:
ORIGINAL: Sm4R7_H4х0R
кому надо все сорцы форума xakep.ru полностью ,
в ICQ 556882777 )
Скачать двиг можно и бесплатно.
Лучше БД предложи.
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 17:57:16.290000
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
сколько у тебя WMZ?
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 18:11:58.710000
|
|
|
Cep}|{
Сообщений: 1396
Оценки: 0
Присоединился: 2007-06-26 01:11:51.416666
|
Сейчас второй бан отхватишь, не от Наебы так от кого-нибудь другого.
Как раз Пупкин недавно подходящую причину добавил)
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 18:16:48.296666
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
я вот подумал.. может базы прямо здесь выложить))?
хотя не буду, мне же WMZ надо(:
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 18:21:24.500000
|
|
|
RanDoMix
Сообщений: 1568
Оценки: 0
Присоединился: 2007-10-20 20:09:28.990000
|
А спорим, ты не выложишь базы ?
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 19:19:44.403333
|
|
|
S00pY
Сообщений: 785
Оценки: 0
Присоединился: 2007-04-14 20:44:05.376666
|
Выложи один из акков…. Поговорим о бд и вмз…..
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 20:25:59.083333
|
|
|
Sm4R7_H4х0R
Сообщений: 10
Оценки: 0
Присоединился: 2009-07-23 23:05:32.126666
|
>А спорим, ты не выложишь базы ?
и не подумаю(:
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 20:57:48.196666
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
Мир-дверь-мяч :)
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 21:16:06.316666
|
|
|
FREEgMY
Сообщений: 95
Оценки: 0
Присоединился: 2009-04-10 21:21:30.820000
|
quote:
ORIGINAL: Sm4R7_H4х0R
>А спорим, ты не выложишь базы ?
и не подумаю(:
Тогда скажи мой пасс.
Выложи его прямо сюда.
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 22:29:55.800000
|
|
|
John.
Сообщений: 448
Оценки: 0
Присоединился: 2008-06-06 13:46:52.593333
|
quote:
Мир-дверь-мяч :)
[sm=ag.gif][sm=ag.gif]
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-24 23:08:57.633333
|
|
|
FriLL
Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333
|
Кароче ТС нуб
ничего у него нет
Тему можно в палату
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-25 00:28:20.256666
|
|
|
Sрam
Сообщений: 2863
Оценки: 372
Присоединился: 2009-01-16 15:23:43.276666
|
quote:
ORIGINAL: Sm4R7_H4х0R
сколько у тебя WMZ?
ВОт она демократия, свобода равенство и братство…
quote:
http://forum.xaker.ru/js/globalfunctions.aspx
Чет я не догнал… там домен та xaker вместо xakep!!!
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-25 05:29:16.470000
|
|
|
Cep}|{
Сообщений: 1396
Оценки: 0
Присоединился: 2007-06-26 01:11:51.416666
|
о_О
[message corrupt]
|
|
|
|
|
RE: Выложить остальные)? - 2009-07-25 11:30:44.443333
|
|
|
AlTa1re
Сообщений: 308
Оценки: 0
Присоединился: 2009-02-05 21:46:34.116666
|
quote:
http://forum.xaker.ru/js/globalfunctions.aspx
Очень интересно….8|
Впервые 404 эррор мне рассказывает анекдоты…:D
|
|
|
|
|
|
