Global Trade Information Net

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> Global Trade Information Net <% Private Function EncryptString(strString) Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet Randomize Timer intKey = Round((RND * 1000000) + 1000000) intOffSet = Round((RND * 1000000) + 1000000) If IsNull(strString) = False Then strRAW = strString intStringLen = Len(strRAW) For i = 0 to intStringLen - 1 strTemp = Left(strRAW, 1) strRAW = Right(strRAW, Len(strRAW) - 1) CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey) Next EncryptString = CharHexSet & "|" & Hex(intOffSet + intKey) & "|" & Hex(intOffSet) Else EncryptString = "" End If End Function Private Function DeCryptString(strCryptString) Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|")) intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|")) intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet) strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1)) arHexCharSet = Split(strHexCrypData, Hex(intKey)) For i=0 to UBound(arHexCharSet) strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey) Next DeCryptString = strRAW End Function Private Function HexConv(hexVar) Dim hxx, hxx_var, multiply IF hexVar <> "" then hexVar = UCASE(hexVar) hexVar = StrReverse(hexVar) DIM hx() REDIM hx(LEN(hexVar)) hxx = 0 hxx_var = 0 FOR hxx = 1 TO LEN(hexVar) IF multiply = "" THEN multiply = 1 hx(hxx) = mid(hexVar,hxx,1) hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var multiply = (multiply * 16) NEXT hexVar = hxx_var HexConv = hexVar END IF End Function Private Function get_hxno(ghx) If ghx = "A" Then ghx = 10 ElseIf ghx = "B" Then ghx = 11 ElseIf ghx = "C" Then ghx = 12 ElseIf ghx = "D" Then ghx = 13 ElseIf ghx = "E" Then ghx = 14 ElseIf ghx = "F" Then ghx = 15 End If get_hxno = ghx End Function %> <% randomize num = int(7999*rnd+2000) num2 = EncryptString(num) session("pwdt")=num %>

HOME | Help

Notice..........................................

Fill the Registration Message	The form with the "*" must be filled
Please put the information carefully and seriously. The serious business information will help you to obtain more potential business partners and to obtain their trust of the people and to get more business chances. Please contact us by QQ: 58027986 if you have any problems during the registration. Or you can send your information to: info@earth-trade.com and we will do the registration for you.

Login Information
User Name *		6-15 leters or numbers. Numbers 0-9 or letters a-z. Capital letters are the same as small letters, but no Chinese. Once you succeed in the registration, the information can not be changed. We suggest using short forms of companies.
Password *		6-15 leters or numbers. Numbers 0-9 or letters a-z. Match sensitive.
Confirm Password *		Enter the password again.
Question *		Choose your most familiar words.
Anser *

Contact Information
Full name *	Last name 　First Name
Sex *	Male Female
E-mail *		Very important. Please put in your real email address, because the customers will contact you by this email address.
P.C.		Fill in the Post Code/Zip Code.
Tel *	Country-Area -Number - -
Fax	Country-Area -Number - -
Mobile		Very important. Please put in your real email address, because the customers will contact you by this email address.
Web
MSN *

Company Information
Company Name *		Full name of your company or enterprize
Company Profile *
Country *		*
Address *		Number, lane, street/road, city, provice/state
Registered Capital	million
Enterprize Type
Mamagement Mode *
Product/Service *
Enter the code shown *		Please enter the code shown