יצירת קובץ dll והשימוש בו
על מנת לעשות את זה צריך איזה קובץ dll.
המבנה של קובץ dll הוא : class name()
public function func(str as string)
response.write str
end function
end class
השימוש בקובץ יעשה כך : <%
dim rehiv
set rehiv=new name()
rehiv.func("הרכיב פועל")
%>
רכיב לחלוקה לעמודים
ראשית צריך ליצור dll שמכיל את העמודים ואת התפריט.
נעשה את זה כך : class pages()
public function prec(str1 as string, str2 as string)
dim b as string=str1
dim a as string=request("page")
dim c as string=str2
if a="" or a="1" then
response.write b
elseif a="2" then
response.write c
end if
end function
public function menu(one as string, two as string)
dim a as string=one
dim b as string=two
response.write ""&a&" "
response.write ""&b&""
end function
end class
והשימוש בו יעשה כך : <%
dim pages,page1,page2
page1="בוקר טוב !!!"
page2=" ערב טוב !!!"
set pages=new pages()
pages.prec(page1,page2)
response.write "
"
pages.menu("בוקר טוב","ערב טוב")
set pages=null
%>
מקווה שעזרתי
lior73
|