سورس ارسال پیام کاربران(مشکل)

[koke_sa 43]

سلام بنده همینجا تاپیک زدم اما کسی متوجه منظور من نشد و گفتند مشکل از هاست من هستش . برای همین یک سورس کوچیک تهیه کردم که با کلیک بر روی دکمه نظر ارسال میشه به هاست

 

روش کار هم http job , post string هست . مشکل کار هم اینجاست نظراتی که مولتی لاین میشدن(چند خطی) ارسال نمیشن . من دوتا دکمه توی صفحه قرار دادم دکمه نظر کم و نظر زیاد دکمه نظر کم رو بزنید نظر راحت ارسال میشه چون فقط کلمه سلام رو ارسال میکنه . اما دکمه نظر زیاد نظر رو از یک فایل متنی که 5 یا شیش خط هست دریافت میکنه و ارسال میکنه . که خطا میده . دوستان عزیز من واقعا گیرم هرکسی میتونه کمک کنه لطفا کمکم کنه . سورس رو قرار میدم یک تست بکنید ببنید شاید اصلا من اشتباه کرده باشم . منتظرم مرسی

 

این هم سورس

 

این هم کد سورس

Dim hj As HttpJob
Sub Button1_Click
Dim s As String
s=File.ReadString(File.DirAssets,"as.txt")
Msgbox(s,"این نظر ارسال میشود")
hj.Initialize("sv",Me)
    hj.PostString("http://liki.ir/post.aspx?name=test1&[email protected]&matn="&s.Trim&"&dasteh=1",Null)
    ProgressDialogShow("درحال ارسال")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
ToastMessageShow("send",False)
Else
ToastMessageShow("error",False)
End If
ProgressDialogHide
End Sub

Sub Button2_Click
Dim s As String="سلام"

hj.Initialize("sv",Me)
    hj.PostString("http://liki.ir/post.aspx?name=test1&[email protected]&matn="&s.Trim&"&dasteh=1",Null)
    ProgressDialogShow("درحال ارسال")
End Sub

[پژمان نیکروان 6,055]

سلام

 

باید خطا بده دیگه.

کدارو به این صورت بنویسید تست کردم ارسال کرد:

Sub Button1_Click
Dim s As String
s=File.ReadString(File.DirAssets,"as.txt")
Msgbox(s,"این نظر ارسال میشود")
hj.Initialize("sv",Me)
	hj.PostString("http://liki.ir/post.aspx","name=test1&[email protected]&matn="&s.Trim&"&dasteh=1")
	ProgressDialogShow("درحال ارسال")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
ToastMessageShow("send",False)
Else
ToastMessageShow("error",False)
End If
ProgressDialogHide
End Sub

Sub Button2_Click
Dim s As String="سلام"

hj.Initialize("sv",Me)
	hj.PostString("http://liki.ir/post.aspx","name=test1&[email protected]&matn="&s.Trim&"&dasteh=1")
	ProgressDialogShow("درحال ارسال")
End Sub

[koke_sa 43]

 

سلام

 

باید خطا بده دیگه.

کدارو به این صورت بنویسید تست کردم ارسال کرد:

Sub Button1_Click
Dim s As String
s=File.ReadString(File.DirAssets,"as.txt")
Msgbox(s,"این نظر ارسال میشود")
hj.Initialize("sv",Me)
	hj.PostString("http://liki.ir/post.aspx","name=test1&[email protected]&matn="&s.Trim&"&dasteh=1")
	ProgressDialogShow("درحال ارسال")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
ToastMessageShow("send",False)
Else
ToastMessageShow("error",False)
End If
ProgressDialogHide
End Sub

Sub Button2_Click
Dim s As String="سلام"

hj.Initialize("sv",Me)
	hj.PostString("http://liki.ir/post.aspx","name=test1&[email protected]&matn="&s.Trim&"&dasteh=1")
	ProgressDialogShow("درحال ارسال")
End Sub

دوست عزیز مرسی . درسته پیغام send میده اما چیزی ارسال و ثبت نمیشه . با اون روشی که من نوشتم ثبت میشه اما کاراکتر های یک خطی فقط

[پژمان نیکروان 6,055]

دوست عزیز مرسی . درسته پیغام send میده اما چیزی ارسال و ثبت نمیشه . با اون روشی که من نوشتم ثبت میشه اما کاراکتر های یک خطی فقط

همچین چیزی امکان نداره.

باید کدهای php بررسی بشه یا شاید شاید مشکل هاست بقول دوستان.....

 

اون روش شما کلا توی لاگ خطا میداد ، نباید اونجوری post انجام بشه با httpjob ، اینجوری درست تره.... اما خب جالب اینجاست چیزی اونور تو دیتابیس ثبت نمیشه...

باید از phpکار ها سوال کنید.

[koke_sa 43]

همچین چیزی امکان نداره.

باید کدهای php بررسی بشه یا شاید شاید مشکل هاست بقول دوستان.....

 

اون روش شما کلا توی لاگ خطا میداد ، نباید اونجوری post انجام بشه با httpjob ، اینجوری درست تره.... اما خب جالب اینجاست چیزی اونور تو دیتابیس ثبت نمیشه...

باید از phpکار ها سوال کنید.

من توی سورس هم ادرس رو زدم و گفتم asp کار میکنم هیچ مشکلی هم نداره چون کوئری رو دریافت میکنه . نمیدونم مشکل کجاست ولی واقعا موندم باید چیکار کنم

[مجید آرتا 5,874]

سلام

شما کاراکتر Enter  و  Space  رو از داخل متنتون Encode  کنید و بعد ارسال کنید

Enter  یا New Line :

%0A

Space :

%20

[koke_sa 43]

 

سلام

شما کاراکتر Enter  و  Space  رو از داخل متنتون Encode  کنید و بعد ارسال کنید

Enter  یا New Line :

%0A

Space :

%20

دقیقا من اینکار رو کردم اما نمیدونم چرا متن پشت سرهم قرار نمیگیره باز هم فضای خالی میمونه اینم کد

 

Sub line(n As String)

n=n.Replace(CRLF,"")

n=n.Replace(" ","")

Return n

End Sub

[مجید آرتا 5,874]

شما CRLF  رو با 0A%  جایگزین  کنید ببنید درست میشه.

و فاصله ها رو با 20% .

[koke_sa 43]

شما CRLF  رو با 0A%  جایگزین  کنید ببنید درست میشه.

و فاصله ها رو با 20% .

نه باز هم خطا میده یک سوال آیا توی php کسی کاراکتر های بالای 1000 تا رو تاحالا ارسال کرده ؟ یا فقط فکر میکنید میشه ؟

[arash127 488]

شما نمیتونی همه چیزی را به url بدی بفرستی مثل فاصله و کاراکتر ها و باید تبدیل بشه

این تابع این کارو خودش میکنه

طرف php هم نیاز به تبدیل دوباره نیست خودش تبدیل میکنه

Dim stringutils1 As StringUtils
Dim str1 As String = stringutils1.EncodeUrl(et.Text,"UTF8")

[koke_sa 43]

 

شما نمیتونی همه چیزی را به url بدی بفرستی مثل فاصله و کاراکتر ها و باید تبدیل بشه

این تابع این کارو خودش میکنه

طرف php هم نیاز به تبدیل دوباره نیست خودش تبدیل میکنه

Dim stringutils1 As StringUtils
Dim str1 As String = stringutils1.EncodeUrl(et.Text,"UTF8")

تشکر اما بازم نمیشه اگر مایل بودید سورس بالا را تست کنید و اینبار در ایل تکست متنی که من میدم رو قرار بدید میبینید که نمیشه . یک سوال روشی دیگه ای که از طریق url نباشه و هر کاراکتری اسرسال بشه بدون هیچ مشکلی آیا وجود داره ؟

[sms 199]

تشکر اما بازم نمیشه اگر مایل بودید سورس بالا را تست کنید و اینبار در ایل تکست متنی که من میدم رو قرار بدید میبینید که نمیشه . یک سوال روشی دیگه ای که از طریق url نباشه و هر کاراکتری اسرسال بشه بدون هیچ مشکلی آیا وجود داره ؟

راه دیگه که وجود داره اما با همین پست هم میشه ها حالا شما دنبال راه دیگه ای راه دیگش سوکته

[koke_sa 43]

دوستان یک نظری چیزی