mohsensada
یک شنبه 05 بهمن 1393, 14:32 عصر
با سلام خدمت دوستان
پروژه دانشگاهی با موضوع پرتال خبری دارم الان مشکلی که برام پیش اومده اینه که وقتی ارسال پست دارم اگه مطالب بدون فاصله باشد ارسال می شود برای مثال (خبرهایاینسایت) ولی اگر فاصله بین کلمات باشد مثل (خبرهای این سایت) به مشکل برمیخوره و لینک مثل این میاد
http://localhost:2045/website/Admin/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Err.htm
این سورس صفحه ارسال پست
Imports Araz.Model.PostControls
Imports Araz.Model.CatControls
Partial Class Admin_Post
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim MyBL As New CatControl
MyBL.DrCat = DrCat
If MyBL.FillUp(CatControl.FillMod.DropDown) <> 0 Then
LblMsg.Text = "هنگام بروز آوری بخش های سایت خطا روی داد"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
MyBL = Nothing
End If
Post.StyleList = "[['BODY',false,'','direction:rtl;font:14px Tahoma,sans-serif;']]"
Page.Title = "فرستادن مطلب"
End Sub
Protected Sub ImgSend_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImgSend.Click
If IsValid And Post.Content <> "" Then
Dim Mybl As New PostControl
With Mybl
.Text = Post.Content.Trim
.Subject = TxtSubject.Text.Trim
.CatID = DrCat.SelectedItem.Value
.UserName = User.Identity.Name
If .Add() < 0 Then
LblMsg.Text = "هنگام فرستادن مطلب خطا روی داد"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
End With
Mybl = Nothing
Else
LblMsg.Text = "برای فرستادن مطلبی را وارد کنید"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
End Sub
End Class
پروژه دانشگاهی با موضوع پرتال خبری دارم الان مشکلی که برام پیش اومده اینه که وقتی ارسال پست دارم اگه مطالب بدون فاصله باشد ارسال می شود برای مثال (خبرهایاینسایت) ولی اگر فاصله بین کلمات باشد مثل (خبرهای این سایت) به مشکل برمیخوره و لینک مثل این میاد
http://localhost:2045/website/Admin/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Html/Err.htm
این سورس صفحه ارسال پست
Imports Araz.Model.PostControls
Imports Araz.Model.CatControls
Partial Class Admin_Post
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Dim MyBL As New CatControl
MyBL.DrCat = DrCat
If MyBL.FillUp(CatControl.FillMod.DropDown) <> 0 Then
LblMsg.Text = "هنگام بروز آوری بخش های سایت خطا روی داد"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
MyBL = Nothing
End If
Post.StyleList = "[['BODY',false,'','direction:rtl;font:14px Tahoma,sans-serif;']]"
Page.Title = "فرستادن مطلب"
End Sub
Protected Sub ImgSend_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImgSend.Click
If IsValid And Post.Content <> "" Then
Dim Mybl As New PostControl
With Mybl
.Text = Post.Content.Trim
.Subject = TxtSubject.Text.Trim
.CatID = DrCat.SelectedItem.Value
.UserName = User.Identity.Name
If .Add() < 0 Then
LblMsg.Text = "هنگام فرستادن مطلب خطا روی داد"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
End With
Mybl = Nothing
Else
LblMsg.Text = "برای فرستادن مطلبی را وارد کنید"
ImgMsg.ImageUrl = "~/Images/icon_delete.gif"
End If
End Sub
End Class