|
برنامه ServerControl

اين برنامه
DLL ی است که بر روی سرور قرار می گيرد و
مسئول نمايش اطلاعات ِ شماست . تمام بخش های اين کنترل ها توسط
CSS قابل تنظيم است . همچنين قابليت
نمايش تاريخ به ميلادی يا شمسی را دارد .
نصب و راه اندازی
بعد از دريافت فايل
در ويژوال استوديو ، در قسمت
Toolbox يک TAB
جديد با نام Weblog-NET بسازيد .

بر روی
Tab کليک سمت راست بکنيد و
Customize Toolbox را انتخاب کنيد و در ليستی که نمايش داده می
شود با استفاده از Browse فايل
MyWeblog-NET.dll را در قسمت
dotNET Framework Components انتخاب کنيد .
اگر مراحل درست انجام شود در Toolbox اشکل زير
اضافه می شود .

کامپوننت هايی
که مشاهده می کنيد به 2 دسته کلی تقسيم می شود ، آنهايی که برای مديريت
سايت است و آنهايی که اطلاعات را به کاربران نمايش می دهد . کامپوننت های
مديريتی عبارتند از :
|
نام |
وظيفه |
|
CommentDelete |
حذف نظر هايی که
بينندگان برای مطالب می نويسند . |
|
DailyAdd |
اضافه کردن مطالب |
|
DailyEdit |
حذف و ويرايش مطالب |
|
LinkestanAdd |
اضافه کردن و ويرايش
لينکستان |
|
LinkestanKind |
اضافه کردن و ويرايش
نوع لينک ها |
|
TopicEditor |
اضافه کردن و ويرايش
عنوان های مطالب . |
کامپوننت های ديگر :
|
نام |
وظيفه |
|
CommentShow |
نمايش نظرات
|
|
LinkestanShow |
نمايش لينک ها |
| LastPosts |
نمايش عنوان آخرين پست ها |
|
WeblogTable |
برای نمايش مطالب
روزانه و آرشيو |
البته در برنامه client
تمام کارهايی که برای ويرايش قسمت های مختلف سايت لازم بوده در نظر گرفته
شده و از نسخه های بعدی قسمت های مديريتی حذف خواهد شد . برای مشاهده
نحوه کار با کنترل های مديريتی
اينجا
کليک کنيد . باز هم تاکيد می کنم ، از نسخه Client
به جای آنها استفاده کنيد .
WeblogTable
اين کنترل مکانی است که اطلاعات شما نمايش
داده می شود . شکل زير يک نمونه از اين کنترل وقتی که اطلاعات را نمايش
داده است می باشد .

1) نمايش روز
2) نمايش موضوع متن
3) نمايش عنوان
4) متن
5) دنبالک ، اگر کسی به اين
مطلب لينک بدهد و کسی بر روی آن لينک کليک کند ، برنامه اطلاعات وی را
ذخيره می کند . تعداد کسانی که به آن مطلب لينک داده اند در اينجا نمايش
داده می شود .
6) ساعتی که هنگام فرستادن
متن انتخاب شده . اگر نظرخواهی هم وجود داشته باشد در اين قسمت نمايش
داده می شود .
7) لينکی که هميشه برای اين
مطلب است ، همان لينکی که باعث شمردن در دنبالک می شود . همچنين اطلاعات
ِ دنبالک ها وقتی روی اين لينک کليک شود نشان داده می شود .
8) عکسی که در آنجا نمايش
داده می شود .
9) عکسی که به عنوان جدا
کننده بين پست های يک روز نمايش داده می شود .
10) اطلاعاتی که به عنوان
Table می توان ذخيره کرد .
خواص اين کنترل را در شکل زير می بينيد .

خواصی که شايد مبهم باشد را
توضيح می دهم.
ID
نامی است که در برنامه می توانيد از آن استفاده کنيد .
ArchiveDate تاريخی که می خواهيد اين کنترل
نشان دهد .
ArchiveURL نام صفحه ای که نقش صفحه آرشيو
را بازی می کند که ترجيحا ً همين صفحه ای باشد که وبلاگ است .
CommentPageURL آدرس صفحه ای که نقش
Comment را دارد .
CommentStyle نام کلاسی که در
CSS برای Comment
ها ساخته ايد است .
Days4Show
تعداد روزهايی که می خواهيد اطلاعات را نمايش دهد . مثلا ً 7 روز ِ آخر .
LineIMG
آدرس شماره 9 در عکس ِ نمونه .
MEssageID
شماره پستی که بايد نمايش داده شود . (کاربرد اين را در ادامه خواهيد ديد
)
PermanentLinkString متنی که برای لينک
ثابت می خواهيد نمايش داده شود ( شماره 7 در عکس بالا تر)
RoozStyle
نام کلاسی که برای قسمت روزها در CSS نوشته
ايد .
SubjectStyle مانند
RoozStyle برای شماره 2
TextStyle
مانند بالا برای قسمت 4
TitleImg
آدرس عکس برای قسمت 8
TitleStyle مانند
TextStyle برای قسمت 2
TrackBackString متنی که برای دنبالک نشان
داده می شود ، در اين قسمت از عبارات HTML هم
می توانيد استفاده کنيد ، مانند
<img src="asd'>
TrackbackAbout اين متن يا
HTML وقتی روز لينک ثابت کليک شود نمايش داده
می شود .
WeblogLanguage ، True
برای فارسی و False برای انگليسی است .
بعد از اينکه
DLL ها را به پروژه خود اضافه کرديد و يک
کنترل از weblogtable روی فرم خود قرار داديد
در load ِ صفحه اين کد را بنويسيد .
WeblogTable1.DBPath = "C:\database\db.mdb"
WeblogTable1.objRequest = Request
If
Request("mDate") <> "" Then
WeblogTable1.ArchiveDate = Request("mDate")
ElseIf
Request("ID") <> "" Then
WeblogTable1.MessageID = Request("ID")
End
If
WeblogTable1.ShowMatn( True)
اين چند خط کار وبلاگ و آرشيو را انجام می
دهد .
اگر آدرس Physical
ِ ديتابيس را نمی دانستيد آن را با Server.MapPath
بدست آوريد .
LastPost
اين کنترل نوعی آرشيو است ، با اين تفاوت که
فقط عنوان مطالب آخرين چند روزی را که مشخص کرده ايد نمايش می دهد . شکل
زير يک نمونه از اين کنترل در حال اجرا است .

در شکل زير خواص اين کنترل را می بينيد .

خواص مختلف اين کنترل نيز مانند
weblogtable است . دقت کنيد تمام اين کنترل از
parent خود direction
ها را به ارث می برند ، پس table ی که اينها
درونش قرار می گيرد بايد RTL باشد (برای
فارسی)
کد زير اين کنترل را فعال می کند .
LastPosts1.DBPath = "c:\database\db.mdb"
LastPosts1.ShowMatn()
LinkestanShow
اين کنترل را وقتی در برنامه
client قرار گرفت توضيحاتش را می نويسم .
CommentShow
صفحه ای که اين کنترل را
درونش قرار می دهيد حکم صفحه نظرات را دارد . خواص اين کنترل و يک نمونه
از اجرای آن را در شکل زير می بينيد .
 
با کد زير می توانيد صفحه نظرات را فعال کنيد
.
CommentShow1.DBPath = "C:\database\db.mdb"
CommentShow1.ResponseOBJ = Response
CommentShow1.ReuqestOBJ = Request
CommentShow1.MSGID = Request("MSGID")
encoding ِ همه اين صفحه ها
Unicode قرار دهيد .
CSS
يک نمونه از CSS در اينجا ذکر
شده ، همچنين CSS ِ وبلاگ ِ انگليسی من نيز در
اينجاست
.
A:hover
{
font-size:
10pt;
font-family:
tahoma;
color:
red;
text-decoration:
underline;
}
A
{
font-size:
10pt;
font-family:
tahoma;
color:
blue;
text-decoration:
none;
}
.ROOZ
{
font-weight:
bold;
font-size:
10pt;
color:
#000099;
font-family:
tahoma;
text-decoration:
none;
/*background-image:url(http://localhost/images/5th/title-bg.jpg); */
}
.Title
{
font-size:
10pt;
color:
#7769eb;
font-style:
italic;
font-family:
tahoma;
text-decoration:
none;
}
.Topic
{
font-size:
10pt;
color:
#7769eb;
font-family:
tahoma;
text-decoration:
none;
}
.Matn
{
font-size:
8pt;
color:
#666618;
font-family:
tahoma;
text-decoration:
none;
text-align
:justify;
}
.Comment
{
font-size:
8pt;
color:
#666618;
font-family:
tahoma;
text-decoration:
none;
}
RSS
برای ساختن RSS يک
web form جديد ايجاد کنيد ، تمام کدهای
HTML آن را به غير از خطی که می گويد اين صفحه
از چه کلاس هايی در code behind استفاده می
کند حذف کنيد .
در قسمت code behind ِ آن صفحه
اين کدها را بنويسيد . اطلاعات نمونه ای که می
بينيد مربوط به سايت axBlog می شود .
Try
Dim x
As
New myWeblog_NET.HamedBanaei.RSS
x.Copyright = "تمام حقوق اين مطالب براي حامد بنايي محفوظ است"
x.Description = "وبلاگ فارسي سايت عکس بلاگ دات کام"
x.docs = "http://blogs.law.harvard.edu/tech/rss"
x.Generator = "Weblog.NET"
x.Language = "fa-IR"
x.Link = "http://www.axblog.com/weblog.aspx"
x.managingEditor = "info@axblog.com"
x.Title = "وبلاگ عکس بلاگ"
x.TTL = 120
x.webMaster = "info@axblog.com"
x.RTL = "rtl"
Dim itm
As
New
myWeblog_NET.HamedBanaei.RSS_Items
itm.ArchiveURL = "http://www.axblog.com/weblog.aspx?id="
itm.Count = 15
itm.dbProvider = "provider=microsoft.jet.oledb.4.0;data source=" &
myDBPath & ";"
x.Items = itm.GetItems
If x.Generate(Response) =
False
Then
Response.Write(x.Errors)
End
If
Catch ex
As Exception
Response.Write(ex.Message)
End
Try
دريافت
دريافت فايل
تاريخ آخرين بروز رسانی :
2003/11/16 آخرين نسخه
: 1.0.2.1136 |