יצירת קובץ dll והשימוש בו
על מנת לעשות את זה צריך איזה קובץ dll.
המבנה של קובץ dll הוא : <![CDATA[class name()
public function func(str as string)
response.write str
end function
end class]]>
השימוש בקובץ יעשה כך : <![CDATA[<%
dim rehiv
set rehiv=new name()
rehiv.func("<h1>הרכיב פועל</h1>")
%>]]>
רכיב לחלוקה לעמודים
ראשית צריך ליצור dll שמכיל את העמודים ואת התפריט.
נעשה את זה כך : <![CDATA[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 href=?page=1>"&a&"</a><br>"
response.write "<a href=?page=2>"&b&"</a>"
end function
end class]]>
והשימוש בו יעשה כך : <![CDATA[<%
dim pages,page1,page2
page1="<h1 align=center>בוקר טוב !!!</h1>"
page2="<h1 align=center> ערב טוב !!!</h1>"
set pages=new pages()
pages.prec(page1,page2)
response.write "<br><br>"
pages.menu("בוקר טוב","ערב טוב")
set pages=null
%>]]>
מקווה שעזרתי
lior73
|
.png)
