Clan Files -

Here are Sandurrs Clan Files if anyone wants emm, they have been modified by me so they work about as well as dPT have them working. Which is pretty good.


DBPT Clan Files

bump!!!

sorry for the bump guys,

i got now error 11 now :D

ok, go to your Microsoft IIS manager:

Create all virtual directories for:
Clan
ClanContent
ServerMain

Once all of these have been created do:

right click on your virtual directory
go to ASP.NET tab
make sure that EVERY virtual directory is set up to use ASP.NET V2.057 or watever the version is starting with 2.
Click Apply.
(Do this for all virtual directories)

Go ingame and speak to clan master.

You may get an error 65 but is quite uncommon.

Erm, which Virutal Director do we put the files..under web sites? Or do we create our own? And ow is this possible..Lol IIS isn't my thing =/

IIS Lol?,

@Gzuz, Still Error 11 :(, maybe i have configure wrong SQL.dll maybe,

error 11 is .. claninsert.aspx in clan folder! see it.. r wrong!!! post this file here!

Quote:

---

Originally Posted by xiangsho

IIS Lol?,

@Gzuz, Still Error 11 :(, maybe i have configure wrong SQL.dll maybe,

---

Okay, IIS...that really helps. How do I set it up exactly? Cause I'm not really sure how to.

ill make a picture guide later.

here is now my Claninsert.aspx

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

Function GetParameter(pName as string, pType as string) as string
dim lTmp as string
lTmp = Page.Request.QueryString.item(pName)

GetParameter = lTmp
End Function

Sub Page_Load(Sender As Object, E As EventArgs)

Dim dbhost, dbuser, dbpass, dbname, userid, gserver, chname, clName, expl, chtype, lv

dbhost = "ROMEO\SQLEXPRESS"
dbuser = "sa"
dbpass = "swaped"
dbname = "ClanDB"

Dim strSplit As String
strSplit = Chr("&H" & "0D")

userid = GetParameter ("userid","String")
gserver = GetParameter ("gserver","String")
chname = GetParameter("chname","String")
clName = GetParameter("clName","String")
chtype = GetParameter("chtype","String")
lv = GetParameter("lv","String")

expl = "82.41.94.2"

if userid="" Or gserver="" Or chname="" Or clName="" Or chtype="" or lv="" Then
Response.Write("Code=100" & strSplit)
Response.End
End if

Dim objConn, objReader, objCommand, objQuery

Dim connectionString As String = "server='" & dbhost & "'; user id='" & dbuser & "'; password='" & dbpass & "'; database='" & dbname & "'"

objConn = New SqlConnection(connectionString)
objConn.Open()

objQuery = "SELECT ClanName FROM UL WHERE ChName='" & chname & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

If objReader.Read()
If objReader.Item(0) = "" Then
objReader.Close()
objQuery = "DELETE FROM UL WHERE ChName='" & chname & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
Else
objReader.Close()
objConn.Close()
Response.Write("Code=2" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
End if
objReader.Close()

objQuery = "SELECT ClanZang FROM CL WHERE ClanName='" & clName & "'"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

If objReader.Read()
objReader.Close()
objConn.Close()
Response.Write("Code=3" & strSplit & "CMoney=0" & strSplit)
Response.End
End if
objReader.Close()

objQuery = "SELECT IMG FROM LI WHERE ID=1"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()

Dim iIMG As Integer

if objReader.Read() Then
iIMG = objReader.Item(0)
Else
iIMG = 1000000000
objReader.Close()
objQuery = "INSERT INTO LI values('" & (iIMG + 1) & "','1')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
End if
objReader.Close()

iIMG = iIMG + 1

objQuery = "UPDATE LI SET IMG='" & iIMG & "' WHERE ID=1"

objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objQuery = "INSERT INTO CL ([ClanName],[UserID],[ClanZang],[MemCnt],[Note],[MIconCnt],[RegiDate],[LimitDate],[DelActive],[PFlag],[KFlag],[Flag],[NoteCnt],[Cpoint],[CWin],[CFail],[ClanMoney],[CNFlag],[SiegeMoney]) values('" & clName & "','" & userid & "','" & chname & "','1','" & expl & "','" & iIMG & "',getdate(),getdate()+3600,'0','0','0','0','1 ','0 ','0','0','0','0','0')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objQuery = "SELECT IDX FROM CL WHERE ClanName='" & clName & "'"
objCommand = New SqlCommand(objQuery, objConn)

Dim IDX As String
objReader = objCommand.ExecuteReader()
If objReader.Read() Then
IDX = objReader.Item(0)
End If
objReader.Close()

objQuery = "INSERT INTO UL ([IDX],[userid],[ChName],[ClanName],[ChType],[ChLv],[Permi],[JoinDate],[DelActive],[PFlag],[KFlag],[MIconCnt]) values('" & IDX & "','" & userid & "','" & chname & "','" & clName & "','" & chtype & "','" & lv & "','0',getdate(),'0','0','0','" & iIMG & "')"
objCommand = New SqlCommand(objQuery, objConn)
objReader = objCommand.ExecuteReader()
objReader.Close()

objConn.Close()

Response.Write("Code=1" & strSplit & "CMoney=500000" & strSplit)
End Sub

</script>
<html>
<head>
</head>
<body>
</body>
</html>

Quote:

---

Originally Posted by gzuz

ill make a picture guide later.

---

Alright, thanks. Really appreciated.

easy =p
is claninsert.aspx =p
man.... don't use this fucking shit ! of SA user... mane a new =p put permisions and use it !!! some like
id: master
pw : master
or
id : clan
pw : clan
don't make
id : 218ucnd1dhn
pw : 2108@@!#@32ud
this shit only "fuc*" u!!!

FOR FIX! use another user not SA!!!

bump2x, hello gzuz

we are still waiting for your Video :D:drinks_no

sorry everyone, i have been busy working with other matters. the picture guide is almost done, will be posted tomorrow. That claninsert.aspx is perfect and works EVERY time for me, not even error 65. The problem usually occurs when asp.net is not set to 2.0 for aspx files. Use ethereal(wireshark) if you get an internal server error 500 then you have a problem with your asp.net config in your iis.

Check:
Clan
ServerMain
ClanContent


Make sure that you have set up your ports correctly for tcp/ip



Also, SA is the most openly accessible login point to SQL server, it is an administrative account

Although, i do use ClanUser for ClanInsert as there is alot of dataflow into the SA account and i suppose there could be skew with a high data demanding server.

ok nice, if you post that guide gzuz, you'll get credits to everyone :)

ok back to the point, my ASP NET version is, 2.0.50727

hmm... :D

ok nice, if you post that guide gzuz, you'll get credits to everyone :)

ok back to the point, my ASP NET version is, 2.0.50727

hmm... :D

ok now i fixed it, error 11, :D

theres something 1 file missing in your Clan Files :D

hahaha, i know it :D

ok now but still i got error in Upload can icon :D

ok now FIXED!!!!

SEXY!!!!

:D