Tutorial para alguns erros do seu clan system! :)

[lucasemoxd 1]

Eu estarei criando um tutorial completo para montar o seu sistema de CLAN! Só irei fazer isso quando conseguir IIS no meu PC!

 

Por inquanto, vou adiantando:

 

Tutorial para remover erros do clan system!

 

 

Você vai precisa usar a Porta 80 no seu IIS, por favor libere ela no modem, firewell e desative seu firewell.

 

 

 

Adicione essas linhas no hotuk.ini do seu servidor!

 

Exeplos:

 

Código:

 

*CLAN_SERVER 127.0.0.1 80 127.0.0.1 80

*ENABLE_CLAN 127.0.0.1 80 127.0.0.1 80

 

 

*CLAN_SERVER fire.servegame.com 80 fire.servegame.com 80

*ENABLE_CLAN fire.servegame.com 80 fire.servegame.com 80 - Pode usar NO-IP para o CLAN!

 

 

*CLAN_SERVER 200.102.14.143 80 200.102.14.143 80

*ENABLE_CLAN 200.102.14.143 80 200.102.14.143 80

 

 

 

Erros 57 e 58

 

Erro 57: Não foi possivel se conectar com o host.

 

Erro 58: Patricamente seu clan system esta totalmente desconfigurado, de uma olhada no seu clan.reg, clan.dll,

sql.dll e os databases do SQL server!

 

 

Erro 3

 

Abra isCheckClanName.asp e verifique essas linhas:

 

Código:

 

'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket)

'eRs.Open eSql, eDb

'AbortOnError

'AbortOnEmptyCursor

 

'if eRs(0) < 1 then 'Wrong ticket

' Response.Write "Code=100"

' Response.End

'end if

'eRs.close

 

 

Erro 9:

 

 

Abra o ClanInsert.aspx e use esse abaixo!

 

Código:

 

<%@ 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 = "SEUSQL\SQLEXPRESS"

dbuser = "usuario"

dbpass = "senha"

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 = "ClaNs"

 

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>

 

 

 

 

Erro 24

 

Abra o clanRemove.asp e verifique essas linhas

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/color][/font]

 

Erro 52

 

 

Abra clanInsertClanWon e verifique essas linhas:

 

Código:

 

'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket) & "and UserID='" & eUID & "'"

'eRs.Open eSql, eDb

'AbortOnError

'AbortOnEmptyCursor

 

'if eRs(0) < 1 then 'Wrong ticket

' Response.Write "Code=100"

' Response.End

'end if

'eRs.close

 

 

 

Erro 19

 

Abra isClanWonRelease.asp e verifique essas linhas:

 

Código:

 

'eSql = "Select count(*) from ClanTicket where SNo= "& val(eTicket)

'eRs.Open eSql, eDb

'AbortOnError

'AbortOnEmptyCursor

 

'if eRs(0) < 1 then 'Wrong ticket

' Response.Write "Code=100"

' Response.End

'end if

'eRs.close

 

Retirei algumas soluções de erros do forum RAGEZONE e traduzi, pois irá ficar mais facil para

vocês![/color][/font]