Ēfar ėshtė ASP ?

 

ASP ėshtė gjuhe programuese qe emiton HTML sistemin e webfaqeve. Njė faqe te internetit e mundėson qe ajo te behet dinamike. ASP i pergjigjet HTML dhe bene faqen punuese ku ne webfaqe nga jasht mundeni te behen ndryshime.

Logjika e ndryshimve qe behen ne webfaqe jane hyrėse dhe dalese ne varesi te kerkeses.

Edhe ne ASP sikurse ne HTML vlejne te njėjtat kode shembull ėshtė ne asp nese vendosim <b> Shembull </b> shfaqet Shembull ne pamje.

ne ASP hyrja ne programim behen me simbole per hyrje <% dhe per pėrfundim %> ne brendi te ketyre simboleve vendoset teksti programues.

 

<%   

kodi ASP

%>

 

ASP ėshtė zhvilluar nga Microsoft qe i takon si baze e Microsoft Visual Basic dhe ne ASP jane perfshire VB Script qe jane kodet e gjuhes programuese Visual Basic. Ne secilin kode te ASP fillimisht duhet te caktohet si kode programuese te gjuhes programuse Visual Basic ku fillon me <html> dhe me pas vendoset kodi qe perdor gjate krijimit te ASP skedarit.

 

Shembull :

 

<html>

<%@Language=VBScript%>

 

Nga ky rast nėse vendosim VBScirpt skedari duhet te ruhet si *.asp dhe kjo afishohet ne serverėt me platformė Windows.

 

Ēdo Windows me vete e posedon afishuesin e *.asp qe nga Windows NT me CD shtese ose Windows 2000 server, me i fundit ėshtė Windows 2003 ku me vete e posedon edhe Microsoft Windows XP me IIS.

 

Skedari qe vendos ne pėrdorim sistemin ASP quhet InetPub qe do te thote publikim ne Internet dhe automatikisht duhet te hapet porta 80 nga Firewall qe te behet pranuese.

 

 

 

 

 

 

 

 

 

 

 

 

Kete rast kemi Internet Iformation Services (IIS) nese instalohet kjo ne Windows XP atehere krijohet njė datateke ne C:\inetpub\wwwroot\ dhe testimi behet me Internet Explorer ku shkruhet http://localhost/ ose http://127.0.0.1/ ku shfaqet njė dritare testi.

Cfardo ASP skedari starton pas instalimit te InetPub dhe vendoset ne datateke wwwroot.

Editor ASP

 

Nese arrini te mesoni mire kodin e ASP njė ASP Editor do ishte edhe NotePad.exe edhe pse egzistojn shum editor te ASP-se mirėpo i njėjti parim pune ėshtė sikurse me Notepad po edhe sikurse me Front page.

 

Faqe e pare e ASP. ( Ushtrim 1 )

Si faqe e pare startuese ne ASP ėshtė default.asp ose index.asp ose cfardo emertimi duke thirre ate direkt me emrin e skedarit.

 

Krijimi i njė faqe te thjesht startuese me ASP dhe vendosja ne WebServer InetPub

 

  1. Hapim njė Notepad.exe   
  2. Shkruajm kodin e meposhtem dhe emertoje si  test.asp

 

<%@Language=VBScript %>

<%Option Explicit%>

<html>

<head><title>Faqe e page ne ASP</title></head>

<%

Dim sot,ora

sot=date

ora=time

%>

Sot ėshtė data : <%=sot %>

Ora tash ėshtė : <%=ora %>

</htm>

 

  1. Pastaj ruaje ne direktorin c:\inetpub\wwwroot\
  2. Hape Internet Explor dhe shkruaj tek address http://localhost/test.asp
  3. Shfaqet :

Sot ėshtė data : 10/14/2006 Ora tash ėshtė : 12:56:22 AM

 

Ky Ushtrimi 1 ėshtė i thjesht qe te kuptoni se nga Windows XP mundeni te krijoni ASP Afishues me InetPub , nese nuk starton ky shembull shikoni se ndonje Firewall ka bllokuar porten 80.

Nese doni qe webfaqen tuaj ta publikoni nga kompjuteri juaj si HOST kompjuterin tuaj atehere vetem ne Router vendose IP tuaj dinamike ne  Firewall ą SERVER vendose IP tuaj si 192.168.1.34 ose siq e keni 192.168.1.x dhe me pas qe te shikoni faqen tuaj nga Jasht vendosose IP publike qe keni, IP publike mundeni ta shikoni ne webfaqen www.showip.com nga kompjuteri juaj nuk mundeni te shikoni skedarin asp me ip publike por vetem me IP dinamike. Mjafton qe te bleni njė Domain dhe te vendosni IP tuaj publike dhe webfaqe juaj do te startoj. Per kete pune me mire ėshtė te pėrdorni Windows 2003 WebServer dhe IP publike te jet STATIKE dhe ne Domain te jepet IP juaj publike qe ėshtė Statike. Ne kete rast ky quhet WebHost.

WebHost kete rast quhet kompjuteri juaj qe publikon te dhenat ( faqen ) nga datateka c:\interpub\wwwroot\ ne kete datateke si kusht i nevojshem skedari i pare ASP duhet te emertohet si default.asp ose si index.asp .

Serverėt dhe te metat e tyre

Ēdo faqe e Internetit emri DOMAIN quhet karakteret www.emrijuaj.com kurse HOST quhet IP ku ėshtė SERVERI dhe njė sistem i tillė quhet Host me Platforme te Windows WebServer kjo me vete mundėson te gjitha krijimet e ASP me ēfarėdo linje te Microsoft SQL.

 

HOST PC – SERVER

Kompjuterėt qe vendosen si SERVER me vete mbajnė Sistemin Operativ Microsoft Windows 2000 Server ose Windows 2003 Web Server. Serverėt me te mire deri me tani janė treguar IBM Server dhe HP Server. Mundeni qe edhe njė kompjuter PC ta vendosni si server mirėpo kohėzgjatja ėshtė e vogėl 1 vjeēare.

Egzistojne SERVERĖ qe zgjasin 5 vjet dhe 10 vjet me Garancion, njė server me i thjesht kohėzgjatjen e ka 5 vjet pastaj duhet te ndryshohen ventilatoret etj.

 

Dėmtimi i Serverėve dhe mbrojtja e tyre

Serverėt dėmtohen nga rryma dhe nga sulmet DoS Attack, mbrojtja nga rryma e serverit janė vendosur UPS qe zgjasin deri me 8 ore dhe pėr DoS Attack janė Firewall External, egzostojn edhe filtrime tė IP-ve qe shkaktojnė dėme ne server.

 

Ekzistojne DOS Sulme te ndryshme si :

SYN Flood ne porten 80 - Syn flood quhet sulmi ne porten 80 ku ėshtė porte pritese dhe Sulmuesi futet si vizitor ne server dhe ben kėrkime nga serveri per cdo 1/3 e sekondes keshtu qe  procesori i serverit arrin vleren maksimale te punes ne tere kohen e sulmit,puna e procesorit eshte 100% ne perdorim.

Egzistojne mbrojtes logjik te DOS Attack si firewall te TrendMicro dhe AntiHacker te ndryshem qe vendosen Para ROUTER. Mbojtje 100% nuk ka sepse sulmuesi futet si Vizitor qe te mbrohesh duhet vetem te filtrohen IP ( internet protokollet ) te bllokohen ato IP qe futen si “VIZITOR” dhe shkaktojne deme ne SERVER.

Egzistojne shume firma qe kane falimentuar ne DOS Sulme dhe akoma nuk kane gjetur mbrojtje 100% nga Sulme DOS.

 

 

 

 

 

Futja e te dhenave ne forme

 

Sistemi ASP mundėson futjen e te dhenave ne njė faqe dhe po ato te dhena te nxierren po ne ate faqe te internetit. Ku nga keto perparsi i jepet ndryshimit te informacionit nga ato qe futen ne ato qe shfaqen, po ne ate faqe.

 

Shembull 2. – Ne kete shembull do te  shfaqim krijimin e njė forme si Form Method , si forme hyrėse e te dhenave qe postohen si text name dhe text age.

 

<%@Language=VBScript%>

<%Option Explicit%>

 

 

 

<html><head><title> Forma e emrin tim </title></head>

<body>

 

<form action="shkruaj.asp" method="post">

      Emri juaj : <input type="text" name="EMRI">     <br>

      Mosha :     <input type="text" name="MBIEMRI">  <br>

                  <input type="submit" name="submit" value="submit"> </br>

<form>

 

</body></html>

 

Nga shembulli mesojme se ne tekstin <input type=”text” name=”name> ketu hapim njė tekst kuti qe te vendosim emrin qe do te thote hyrje ėshtė tipi text dhe emertimi name.

Ne shembull kemi pėrdorur HTML code si <html><head><title> qe ėshtė normale te perdoren ne ASP sepse ASP funksionon si baze e HTML qe e ben faqen dinamike.

Nga kodi shohim se <%Option Explicit%> ėshtė vendosur qe te shfaqet gabimi ne ASP ne cilen rresht kemi bere gabimin e mundshem. Pastaj fillon Dimensionimi si Dim name,age qe keto jane te formatuara ne shkronja.

Krijimi i formes ėshtė qe te shfaqen dy tekst box dhe njė buton submit per kryrjen e veprimit.

 

Krijimi i Linjes ( Connection.asp )

 

Ky ėshtė hapi i pare ne ASP kode, funksionimi i ASP ėshtė ne bazen e te dhenave ne Microsoft Data Base (MDB) qe ėshtė baze Microsoft Access. Qe te funksionoj linja e database dhe skedarit ėshtė kusht i nevojshem qe te caktohet rruga e mdb skedarit qe pėrdorni MapPath qe ėshtė opsion si Server.MapPath si dhe testimi i lidhjes se Access 2000, per cfardo linje kerko ndihmen e Access per afishin e skedarit MDB.

Nuk ėshtė e nevojshme qe gjithmonė te perdoret kodi per konektimin e database por fillimisht vetem krijon njė skedar connection.asp dhe ne brendi te tij vendosim kodin e linjes me database dhe me pas vetem e bejme thirrjen e skedarit me kodin include file ( pėrshij )

 

<!--#include file=”connection.asp”>

 

Kjo metode e include file ėshtė shume e pėrshtatshme per pune nese duam ta kemi njė faqe dinamike te plote per veprime me bazen e te dhenave.

Me include file ( pėrshij ) mundemi te thirrim cfardo skedari, te perfshijme skedar te cfardoshem ne njė skedar qe aktual ėshtė veprimi.

Metodat e linjeve ( konektimeve )

Kemi disa metoda te linjeve me database sepse mundemi qe skedarin MDB ta kemi ne rrugen ku gjendet skedari ASP ose skedari MDB mundet te gjendet diku ne LAN ose ne rruge tjeter.

Nese skedari gjendet po aty ku ėshtė skedari ASP atehere ėshtė me praktike te perdoret Server.MapPath  qe do te thot po aty ėshtė skedari MDB.

 

Server.MapPath ( “Emriskedarit.mdb”)

 

Kjo metode perdoret me se shumti kur kemi njė HOST ASP diku tjeter jo ne kompjuterin tuaj.

Skedari ne SERVERIN tuaj dhe rruga e dhene –

Kjo metode ku japim rrugen e plote te skedarit MDB, ėshtė praktike per sigurimin e te dhenave nese serveri goditet nga ndonje sulm apo nga ndonje haker qe tenton ta kopjoj sekdarin mdb.

 

Veprim : Hapim njė editor dhe shkruajm kodin dhe e ruajm me emrin  connection.asp.

 

<%

Dim objConn

Set objConn = Server.CreateObject(“ADODB.Connection”)

objConn.ConnectionString=”DRIVER={Microsoft Access Driver (*.mdb)}; &

“DBQ=c:\Interpub\wwwroot\database.mdb”

objConn.Open

%>

 

Fillimisht deklarojm variblin me cfar konektimi Dim objConn dhe me pas me Set caktojme objektin e deklaruar dhe me pas japim Server.CreateObject(“ADODB.Connection”) ku me pas japin Vargun e konektimit objConn.ConnectionString ku ėshtė caktuar rruga ku gjendet baza e te dhenave.

Nese paraqitet gabim ne linje atehere ngrite DNS connectimin dhe krijoni DNS linjen e skedarit qe pėrdorni ajo gjendet ne Controll Panel ą ODBC Data Sources hapet njė dritare dhe me pas kliko System DSN Tab me pas kliko ADD dhe vendose Database name dhe caktoje skedarin qe duani te vendosni ne rruge te plote.

Vendosja e DNS

Qe te realizohet lidhja e plote me DSN qe te realizohet linja e plot me MapPath linje, kjo referohet kur DNS ėshtė e plote. Qe te funksionoj MapPath me sukses atehere duhet qe DNS te jete e sakte ne funksionim  ku sintaksen e linjes e shprehim ne kode ASP.

 

Metoda 1. – Thirrja e database me DSN te caktuar nga ju.

 

<%

Dim objConn

Set objConn=Server.CreateObject(“ADODB.Connection”)

objConn.ConnectionString=”DSN=name.dsn”

objConn.Open

%>

 

Metoda 2. – Thirrja e databse ne vendin ku ekziston ASP skedari

<%

Dim objConn

Set ObjConn = Server.CreateObject(“ADODB.Connection”)

connectionString =”DBQ=” & Server.MapPath(“database.mdb”)

objConn.open “DRIVER={Microsoft Access Driver (*.mdb)} ; “ & connectionString

%>

 

Pas cfardo thirrjeve te skedarėve mos harroni !!! duhet te mbyllet linja ( connectimi ) per shkaqe sigurimi dhe veprimi me bazen e te dhenave. Me mbylljen sigurohet baza e te dhenave dhe munden te krihen veprimet tjera si krijimi i BackUp ( kopje e arkivuar )

Cilado metode vendoset vetem ne njė skedar connection.asp dhe me pas cfardo veprimi qe duani te beni vetem behet thirrja e linjes dhe realizohet me kodin ASP

 

 <!- -#include file=”connection.asp”- ->

 

Ėshtė me praktike qe ne fillimin e kodit ASP te vendoset edhe gjetja e gabimeve gjate programimit kjo ėshtė e gatshme dhe perdoret ne secilen ASP skedar qe ėshtė :

<%Option Explicit%>

<! - -#include file=”connection.asp”>

<%

tekst kodi asp

%>

 

Ne rreshtin e pare e vendosim qe pas afishimin nese nuk starton skedari atehere ne Internet Explorer shfaqet se ne cilin rresht ėshtė gabimi dhe me editor te thjesht shkojm direkt tek gabimi dhe bejme ndryshime fiksim gabimi.

Rreshtin e dite qe ėshtė include ne kete rast kemi perfshire skedarin connection.asp kjo metode e punes ėshtė shume praktike sepse ndajme veprimet e punes dhe thirrim njerin pas tjetrin vetem me include file shum praktike kur njė asp ėshtė me mbi dyqind rreshte.

Ne cfo skedare asp ėshtė mire te perdoren kodet e rregulla te HTML pa ato nuk arrihet te funksionoj njė webfaqe e mire. Ne momentin qe duani te keni kodin HTML atehere mos harro bej mbylljen e ASP me shenjen %> dhe me pas shkruaj kodin HTML ose merr te gatshem nga FrontPage apo ndonje Editor tjeter.

A arritet te kuptoni te gjitha si realizohet njė thirrje e skedarit mdb,vazhdo faqen tjeter nese Po.

Microsoft Access dhe ASP afishuesi

Microsoft Access 2000 qe ėshtė pakete e Microsoft Office qe me vete mban fuqine e plote e krijimit te skedarėve mdb qe funksionojn si skedare baze e te dhenave. Zhvillimi i Microsoft Access ka arrit qe te krijojm njė skedar mdb dhe me pas te krijojm fushet qe duam te regjistrojm te dhenave duke deklaruar tipin e te dhenave.

Qe te kemi ne ASP njė baze te dhenash atehere duhet fillimisht qe ne Microsoft Access te krijojm skedarin mdb dhe me pas ta vendosim ne inetpub ose linjen e DSN.

Krijimi i skedarit database.mdb

Qellimi i krijimit te skedarit database.mdb ėshtė qe ne ate skedar te ruhen te gjitha informacionet qe ne i japim nga jasht ( lexo futjen e te dhenave ) nga skedari ASP..

Afishojm Access dhe krijojme njė database me emrin database.mdb - Krijojm fushat si EMRI,MBIEMRI,TELEFON,ADRESA,SHENIME kurse ID ėshtė numri i shenimeve qe ėshtė automatike. te gjitha gjenden ne Table1 – Kjo ėshtė e rendesishme.

Table 1 mban me veti njė meny shenimesh si

emri mbiemri telefon adesa shenime dhe ID.

Njė tabele te tille mundeni te krijoni me Microsoft Access . Ne kuadėr te kėsaj saje perfshire edhe koden SQL qe mundemi te vejme ne pėrdorim.

 

Meqe ėshtė kerkese te skedarit database ne krijojme njė skedar connection.asp dhe vendosim kodin sepse ne krijojm me Microsoft Jet OLE DB 4.0 dhe me pas bejme vetem deklarimin e skedarit nga jasht. Ky sistem ėshtė i Windows NT 5.1

 

<%

Dim conn, ConnectString

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Server.Mappath("database.mdb") & ";Persist Security Info=False"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString

%>

 

Pas shkrimit te skedarit connection.asp mundeni te vendi ne pėrdorim skedari pamja.asp

E rendesishme qe me skedarin pamja.asp qe te kemi mundesi te i publikojm nga serveri ASP te gjitha te dhenat qe gjenden ne brendi te tije si emri,mbiemri etj... te shfaqen me ndihmen e Internet Explorer. ( Skedari pamja.asp ėshtė per venje ne dukje e te gjitha te dhenave ).

<% Option Explicit %>

<!--#include file=”connection.asp”-->

<%

Dim SQL

SQL=”Select * from Table1”

odbjconn.close

set objconn=nothing

%>

 

Fillimisht  ne kemi thirr linjen ku me pas me ndihmen e SQL kemi bere thirrjen e te gjithave me commanden Select * from Table1 keshtu qe me pas kemi bere mbylljen e skedarit, ne kete menyre mundemi ti vejme ne pėrdorim te gjitha komandat e Microsoft SQL.

Pamja e te dhenava nga DataBase Metoda 1

 

Qellimi i ASP ėshtė qe te marr informacionet nga database dhe ti publikoj ne internet sipas kerkeses se klientit te cilat publikohen mes Internet Explorer.

Kete rast shohim kur ne njė skedar fusim te gjitha veprimet plotsojme database.mdb me tedhena ku me pas me ndihmen e Internet Explorer ku startojm dhe japim rrugen qe te kemi pamjen e te dhenave : http://localhost/pamja.asp

Krijojm skedarin pamja.asp qe ne te jane vendosur kodet :

 

<%@ Language=VBScript %>

<%

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Provider = "Microsoft.Jet.OLEDB.4.0"

Conn.ConnectionString = "Data Source=" & Server.MapPath("database.mdb")

Conn.Open

 

Set Rs = Server.CreateObject("ADODB.Recordset")

    Rs.Open "SELECT * from table1", Conn, 1,3

 

Do while not Rs.EOF

Response.Write rs("EMRI") & " " & rs("MBIEMRI") & "<br>" 

   Rs.MoveNext

Loop

 

set Rs = nothing

set Conn = nothing

 

%>

 

Pas afishimit te Insternet Explorer dhe japim rrugen e afishimit http://localost/pamja.asp shofim te dhenate e informacioneve.

Sali Mehmeti

Sali Murati

 

Detyre : Veprimet e shembull te realizohen

Veprimi 1. Te gjitha Informacionet qe egzistojne ne database shfaqen nga internet exploreri.

Kete rast fillimisht thėrrasim Microsoft.Jet.OleDB.4.0 dhe pastaj caktojm me Server.MapPath emrin e skedarit database.mdb dhe me pas hapim skedarin.

Veprimi 2. Caktojm Server.CreateObjekt dhe japim ADODB.Recordet dhe me pas hapim me SQL te dhenate me  RS.Open “Select * from table1” kete rast Conn ėshtė Objekti i thirrur.

Pastaj marrim te gjitha informacionet nga e para deri tek e fundit  Do while not Rs.Eof dhe mastaj mendshmen  Response.Write bejme shkrimin e emrave si ne kode dhe me pas kalojm ne regjistrimin tjeter Rs.MoveNext deri sa te mbarojne regjistrimet.

Pas shfaqeve te gjithave shenimeve nga database atehere bejme SET RS = nothing dhe me pas per Conn=nothing dhe mbyllim te gjithe regjistrimin.

Veprimi 3. Testo kodin e vendosur ne tekst me notepad.exe vendos tekstin qe ėshtė kodi dhe me pas ruaje ne c://interpub/wwwroot/ dhe me pas bej thirrjen me Internet Explorer qe ėshtė http://localhost/ dhe kliko mbi skedarin pamja.asp ku do te shfaqen te gjitha informacionet qe jane ne skedarin database.mdb .

Metoda 1 ėshtė metode qe pėrfshihet edhe linja dhe pamja ne njė skedare.

Pamja e te dhenava nga DataBase Metoda 2

Metoda 2 ėshtė metode me praktike kur kemi shum te dhena dhe ato i menaxhojme me thirrjen e skedarėve, me kete metode krijojme shume skedare asp mirėpo puna ėshtė me e qarte.

Dy metodat jane funksionale dhe praktike por ne varsi te kerkeses vendosen ne pėrdorim.

 

Veprimi 1 – Krijojme 2 skedar me dy emra njerin me lidhu.asp dhe tjetrin pamja.asp

Ne skedarin lidhu.asp vendosen keto te dhenat – qellimi per lidhen me database.

 

<%

Dim conn, ConnectString

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database.mdb") & ";Persist Security Info=False"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString

%>

 

Veprimi 2 - Ne skedarin pamja2.asp vendosim keto te dhenat – qellimi qe ti thirrim te dhenat

 

<%@LANGUAGE="VBSCRIPT" %>

<!--#Include File="lidhu.asp"-->

<%

   Dim SQL, RS

   SET RS = Server.CreateObject("ADODB.RecordSet")

   SQL = "SELECT * FROM Table1"

   RS.Open SQL, conn, 3, 3

%>

 

<html>

<% Do while not RS.eof %>

   <%=RS("EMRI")%>

   <%=RS("MBIEMRI")%>

   <br>

<%

RS.MoveNext

Loop

RS.Close

 

set RS = Nothing

%>

</html>

 

Kete rast thirrja thirrja realizohet vetem me thirrjen lidhu.asp me ndihmen e 

<!--#Include File="lidhu.asp"--> dhe me pastaj thirrja behet me SQL te gjitha shenimet nga database shfaqen me Internet Explorer.

Lista e te dhenave ne tabele dhe renditja e tyre

Krijojme njė skedar hyrje.asp dhe nese e afishojme ne Internet Explorer,qellimi ėshtė qe te shfaqen te gjitha shenimet nga database.mdb dhe te kemi mundesi qe te bejme renditjen e te dhenave duke klikuar mbi kolonen qe deshirojme te bejme renditje.

Ne shfaqim 3 kolona duke krijuar njė tabele ku ne kolonen e pare te shfaqet EMRI dhe ne kolonen e dyte te shfaqet MBIEMRI me karaktere te kufizuar kurse ne kolonen e trete te shfaqim SHENIME pa karaktere te kufizuara.

Hapim Notepad.exe dhe shkruajm kodin ASP dhe me pas e ruajm ate ne pathin e interpub qe te publikojm skedarin pamja.asp dhe me pas gjate afishimit te kėtij skedari do te fitojme tabelen e kėrkuar dhe renditjen ( sort ) sipas kerkese.

Kodi ASP ėshtė si me posht :

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#Include File="lidhu.asp"-->

<% Dim SQL, Rs

SET Rs = Server.CreateObject("ADODB.RecordSet")

Dim Sorter

If Request.QueryString("SO") = "" then Sorter = " EMRI" Else Sorter = Request.QueryString("SO")

SQL = "SELECT * FROM Table1 ORDER BY " & Sorter & " ;"

Rs.Open SQL, conn, 3, 3

%>

<html><head><title>Pamja e listes</title></head>

<body><br>

 

<table width="900" border="0" bgcolor="LightSteelBlue" cellspacing="1" align="center"><br>

<tr class="DataGridHeader">

 <td bgcolor="#EBEBEB" ><a href="hyrje.asp?SO=EMRI" class="DataGridHeader">EMRI </a></td>

    <td bgcolor="#EBEBEB" ><a href="hyrje.asp?SO=MBIEMRI" class="DataGridHeader">MBIEMRI</a> </td>

    <td bgcolor="#EBEBEB" ><a href="hyrje.asp?SO=SHENIME" class="DataGridHeader">SHENIME</a></td>

  </tr>

 

<% Do while not rs.EOF %>

<tr class="tablerowdata">

    <td bgcolor="#FAFAFA">&nbsp;&nbsp;<%=Rs("EMRI")%></td>

    <td bgcolor="#EBEBEB">&nbsp;&nbsp;<%=Rs("MBIEMRI")%></td>

    <td bgcolor="#FAFAFA">&nbsp;&nbsp;<%=Rs("SHENIME")%></td>

</tr>

<% Rs.MoveNext

Loop

%>

</table>

</body>

<%

Rs.Close

set Rs = Nothing

conn.close

set conn = nothing

%>

</html>

Ne kete rast pas afishimit te skedarit klikojme mbi kolonat ku shkruan Emri,Mbiemri,Shenime dhe shfaqet renditja e kėrkuar, fillimisht renditja behet sipas numrit ID sic jane regjistruar ne fillim ne fushen database.

Skedari HYRJE.ASP

Ne kete pjese mesojme menyren e lidhjes se tre (3) skedarėve te thirren njėri pas tjetrit sipas kerkeses. fillimisht qe te krijojme formen e hyrjeve e te dhenave atehere ne krijojm skedaret sipas renditjes.

 

  1. Skedari lidhu.asp qe te krijohet lidhja me skedarin database.mdb
  2. Skedarin hyrje.asp qe te krijojme formen hyrėse me tekst kutia
  3. Skedarin shkruaj.asp qe te shkruajm te dhenat ne skedarin database.mdb
  4. Skedarin pamja.asp qe te shohim shkrimet qe kemi realizuar.

 

Kjo pjese e kodeve ASP ėshtė pjesa me kryesore ne ASP VbScript sepse ketu pėrfshihen te gjitha veprimet si lidhje,hyrje,shkrimi dhe pamja, kete cka i takon klientit edhe pse njė pjese tjeter administrative qe ėshtė Anulimin dhe Editimin , fshirjen e informacionit dhe ndryshimin.

 

Qe te kryhet veprimi i shkrimit fillimisht krijojm skedarin hyrje.asp qellimi qe te shohim se cfar duam te japim ne input text kutia ku kemi EMRI,MBIEMRI,TELEFON,ADRESA,SHENIME keto 5 fushat qe egzistojne ne skedarin database.mdb dhe tabelen Table1 qe keto mundeni ti shikoni me Microsoft Access.

 

Skedari hyrje.asp – Ky skedar me i thjesht ėshtė i tipit input text box dhe butonit Submit, hapim notepat.exe dhe shkruajm kodin e meposhtem dhe e ruajm ne direktorin wwwroot atje ku ekziston skedari database.mdb ne webpublikim. kodi asp ėshtė :

 

<%@Language=VBScript%>

<%Option Explicit%>

<html>

<head><title>FORMA HYRJEVE</title></head>

<body>

 

<form action="shkruaj.asp" method="post">

 Emri:            <input type="text" name="EMRI"><br>

 Mbiemri :        <input type="text" name="MBIEMRI"><br>

 Telefon :        <input type="text" name="TELEFON"><br>

 Adresa :         <input type="text" name="ADRESA"><br>

 Shenime :        <input type="text" name="SHENIME"><br>

<Input type="submit" name="submit" value="submit">

</form>

 

</body>

</html>

 

Ne kodin ASP kemi vendosur <form action=”shkruaj.asp” methot=”post”> qellimi qe pas plotėsimit te tekst hyrjet dhe te shtypim butonin SUBMIT automatikisht behet thirrja e skedarit shkruaj.asp qellimi qe keto hyrje te shkruhen ne database.

Rendija e thirrjeve ėshtė e tille qe fillimisht pas plotėsimit e te dhenave automatikisht te gjitha shkrimet qe jepen nga jasht ( nga klienti ) kalojn ne skedarin shkruaj.asp dhe keshtu qe shkruhen ne database tekstet hyrėse. pas shkrimin behet thirrja automatike e skedarit pamja.asp qellimi qe te shohim se cfar kemi shkruar ne pamjen e text hyrjeve.

Ketu kuptohet mire puna qe kryen ASP VBScript qe njė person kudo te bote mundet te shkruaj ne skedarin database.mdb dhe mundet ti shikoj informacionet e dhena pas shum kohe. Kjo metode e njė webfaqes me ASP duhet Dinamic WebPage ose Faqe Aktive me Server ASP.

Skedari SHKRUAJ.ASP

Kete rast tregojm se si krihet veprimi i shkrimit te informacionit nga forma hyrje, nga skedari hyrje.asp ku thirret skedari shkruaj.asp qellimi qe te dhenat te kalojn ne skedarin database.asp dhe informacionet duhen.

 

Praktikisht punen qe bene skedari shkruaj.asp ėshtė kjo :

 

  1. Thirr lidhjen nga skedari lidhu.asp qe ky skedar bene hapjen e skedarit database.mdb qėllimin qe ti hedh informacionet nga forma hyrėse ( nga hyrje.asp ) dhe me pas i shkruan ne tabelen table1 ku pas kryerjes se kėtij veprimi thirr skedarin pamja.asp qe te shfaqen tek klienti. (hapim notepad.exe dhe shkruajm kodin asp dhe e ruajm shkruaj.asp)

 

Kodi ASP ne skedarin shkruaj.asp ėshtė :

 

<% @Language=VBScript %>

<% Option Explicit %>

<!--#include file="lidhu.asp"-->

 

<%

Dim w1,w2,w3,w4,w5,SQL

w1=trim(request.form("EMRI"))

w2=trim(request.form("MBIEMRI"))

w3=trim(request.form("TELEFON"))

w4=trim(request.form("ADRESA"))

w5=trim(request.form("SHENIME"))

 

SQL = "INSERT INTO Table1 (EMRI,MBIEMRI,TELEFON,ADRESA,SHENIME)"

SQL= SQL & "VALUES ('" & w1 & "','" & w2 & "','" & w3 & "','" & w4 & "','" & w5 & "')"

 

conn.Execute(SQL)

conn.Close

 

set conn = nothing

Response.redirect "pamja.asp"

%>

 

             Shifet qart nga kodi ASP se cilat veprime jane kryer dhe si realizohet shkrimi i informacionit nga klienti. skedari shkruaj.asp ėshtė skedar kalimtar sepse thirr lidhu.asp dhe pamja.asp ku veprimet e kėtij skedari nuk i shohim sepse ėshtė ne brendi te serverit vetem bene kalimin e informacioneve nga klienti tek serveri. Ku shohem qarte se informacione nga hyrja kalojn ne database dhe ne i shohim tek pamja.asp ne kete menyre funksionojn te gjitha forumet ku shkrimet e klientėve mbeten ( ruhen )  ne webfaqe (server).

 

             Mbeten vetem dy veprime si  Delete ( Fshije ) dhe Edit ( Editor ndryshime ) keto dy veprime jane veprime te Administartorit qe hyrja te behet me fjalėkalim ( password ) dhe pas dhenjes se fjalėkalimit te sakt administratori te kete mundesi te beje delete (fshirjen e te dhenave) ose Edit ndryshime si editor ndryshimesh. Te njėjtat veprime kryhen si kodet e mesiper vetem ndryshohet menyra e SQL duke vene ne pėrdorim ID e rreshtit qe ėshtė shkruar ( ID ėshtė numer automatik qe nuk ėshtė i njejte me numrat tjere te rreshteve ). Cdo rresht ka ID.

 

 

             Nese duam te pėrdorim qe ne  “text box” si hyrje te jete njė fjalėkalim atehere tek skedari hyrje.asp vetem dy rreshte ndryshojne dhe me pas bejme kushtin logjik nese fjalėkalimi ėshtė i sakt ose nuk ėshtė i sakt, kushtet logjike behen me VBScript me IF .

 

Perdoruesi :  <input type="text" name="Perdoruesi"><br>

Fjalekalimi : <input type="password" name="Fjalekalimi"><br>

 

             Keshtu qe shfaqet njė dritare me dy tekste hyreve (input) ku ne njerin shohim cka shkruajm te pėrdoruesi kurse te tjetri cka shkruajm shfaqet shenja * qe mos te shohim fjalėkalimin.  Kjo ėshtė praktike ne te gjitha webfaqet per hyrjen e Administratorit qe i mundėsohet fshija e informacioneve dhe ndryshimi i tyre.  Mundemi qe edhe shkrimin e informacioneve te behet me administrim qe mos te kete mundesi qe cdo vizitor ( klient ) te shkruaj informacionet.

 

Veprimet qe duhen bere :

 

Krijojm njė skedar  verifiko.asp dhe bejme thirrjen cdo here a ėshtė dhene Perdoruesi dhe Fjalekalimi nese ėshtė i sakt atehere shfaqet dritarja e hyrje.asp ose fshije.asp ose editor.asp keshtu qe tri skedaret me kryesor i menaxhon administrori, shkrimin, anulimin dhe ndryshimin.

 

Per pjese administrative duhet te krijojm njė tabele tjetej ne skedarin database.mdb me kater (4) fusha si ID,PERDORUESI,FJALEKALIMI,EMRIMBIEMRI  qellemi ID-merret numri i rreshtit ose thjesht ID e shenimit, Perdoruesi qe publikohet dhe Fjalekalimi per hyrje si dhe EMRIMBIEMRI qe te shfaqet diku se kush po ben kete hyrje.

Fshirja e Informacionit - Delete

Fshirja e njė rreshti e njė rreshti nga tabela qe shfaqet,qe fshine njė regjistrim ( njė rresht ) nga regjistri i fushes Table1.

Ne gjate krijimit te skedarit database.mdb kur krijuam tabelen Table1 dhe regjistrat Emri,Mbiemri,Telefon,Adresa,Shenime fillimisht kemi vendosur njė ID qe ėshtė njė Autonumer qe jepet nga vet kompjuteri si numer qe tregon rreshtin qe kemi dhe regjistrimin.

Tash nese duam te bejme fshirjen e njė rreshti me regjistrime atehere tregojme cilin ID duam ta fshijme,qe duhet te krijojm njė skedar te ri si pamjeadmin.asp qellimi qe mundesin e pamjen me linkun fshije te jete vetem per administrator qellimi mos te ket aksese te beje fshirjen e njė rreshti njė vizitor i rastit.

            Ne skedarin pamje do te jepen te gjitha te dhenat e regjistrimit si dhe njė rreshte shtojce qe shfaqet njė link per anulimin po i atij regjistrimi, dhe me pas nese klikoj mate rresht te realizohet anulimi i atij rreshtit dhe perseri te kthehet pamja ne tabelen pamjeadmin.asp.

            Kjo metode e anulimit ėshtė klasike dhe me praktike per anulimin e shenimeve ne njė tabele me shenime.

 

Struktura e punes per anulimin e njė rreshti ėshtė :

  1. Krijime njė skedar delete.asp qellimi pas urdhrit te dhene fshije ate rresht
  2. Fillimisht krijojme njė skedar asp me emertimin pamja3.asp
  3. Perseri beje thirrje skedarit pamja3.asp ( qellimi qe te shfaqen tabela )

 

Skedari Delete.asp veprimet qe kryhen.

 

Meqe po realizojme fshirjen e skedarit atehere si skedar te pare krijojme delete.asp

Hapim notepad.exe shkruajm kodin e meposhtem dhe e ruajm si delete.asp

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#Include File="lidhu.asp"-->

<%

 

Dim SQLDelete

SQLDelete = "DELETE * FROM Table1 WHERE ID = " & request.querystring("Rec") & ";"

conn.execute SQLDelete

conn.close

set conn = nothing

 

Response.Redirect("pamja3.asp")

%>

 

Veprimet qe jane bere jane :

Fillimisht thirrim lidhjen lidhu.asp qellimi qe ti marrim informacionin qe cilin ID duhet te anulohet me pas Dimenzionojme SQLDelete qe thirr tabelen dhe jep numrin ID ne Rec

Variabli Rec merret kur klikojme tek tabela pamja3.asp linkun Delete

Ne tabelen pamja3.asp vetem nese selektohet linku Delete ne statusbar te InternetExplorer shifet se cilin ID ke selektuar nese klikojm ne ate rresht atehere automatikisht behet anulimi dhe pereri shfaqet tabela ku shifet qart se ėshtė anuluar ai rresht.

 

Skedari pamja3.asp veprimet qe kryhen.

 

Ne skedarin pamja3.asp thirrim te gjitha informacionet ku shfaqen ato me njė rreshta ku ne kete rresht i fundit ėshtė linku Delete keshtu qe nese klikojm mbi ate skedar atehere kryet veprimi.

 

Kodi ASP ne kete skedar ėshtė :

 

<!--#Include File="lidhu.asp"-->

 

<%

Dim SQL, Rs

SET Rs = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM Table1"

Rs.Open SQL, conn, 3, 3

%>

 

<html><head><title>Pamja e listes</title></head>

<body>

<br>

<table width="900" border="0" bgcolor="LightSteelBlue" cellspacing="1" align="center">

<br>

   <tr class="DataGridHeader">

                <td bgcolor="#EBEBEB" >ID </td>

                <td bgcolor="#EBEBEB" >EMRI </td>

                <td bgcolor="#EBEBEB" >MBIEMRI</td>

                <td bgcolor="#EBEBEB" >SHENIME</td>

                <td bgcolor="#EBEBEB" >VEPRIMI</td>

   </tr>

 

<% Do while not rs.EOF %>

   <tr class="tablerowdata">

   <td bgcolor="#FAFAFA"><%=Rs("ID")%></td>

   <td bgcolor="#FAFAFA"><%=Rs("EMRI")%></td>

   <td bgcolor="#EBEBEB"><%=Rs("MBIEMRI")%></td>

   <td bgcolor="#FAFAFA"><%=Rs("SHENIME")%></td>

   <td bgcolor="#EBEBEB"><a href="delete.asp?REC=<%=RS("ID")%>" class="DataGridHeader">Delete </a></td>

<% Rs.MoveNext

Loop

%>

 

</table>

</body>

 

<%

   Rs.Close

    set Rs = Nothing

    conn.close

    set conn = nothing

%>

</html>

 

Kete rast kemi skedarin e plote pamja3.asp ku shfaqet njė tabel me linkun Delete qe kryen veprimin e anulimit te skedarit qe shifet me veprimin delete.asp?Rec=<%=RS(“ID”)%>

vetem ky shkrim e realizon fshirjen e rreshtit duke ja dhene Rec=n per numer n=1,2,3 etj.

 

Pas afishimit te skedarit tabela.asp kur te shtypet linku Delete ne kete rast nuk kemi pyetjen a duam ta fshijm apo jo,kete mundemi ta realizojm me Java Script qe vendoset ne fillim te kodit asp dhe me pas tek linku vendosim konfirmimin e fshirjes.

 

Java skript sherben vetem per kushtin logjin “A jeni i sigurt per anulimin e rreshtit ?” keshtu qe shfaqet Ok ose Cancel dhe nese shtypim OK atehere realizohet fshirja e atij rreshtit.

 

Java kodi ėshtė :

 

<script>

function confirmDelete(delUrl) {

  if (confirm("A jeni i surt te anuloni rreshtin me shenime...?")) {

    document.location = delUrl;

  }

}

</script>

 

Kodi Java vendoset ne fillim ku ėshtė <body> keshtu ne linkun delete vendosim konfirmimin ku thirret javascripti qe te shfaqet dritarje komunikuese.

 

<a href=javascript:confirmDelete('delete.asp?Rec=<%=RS("ID")%>')>Delete</a>

 

Java afishuesi shfaq dritaren komunikuese dhe na mundesojm qe te konfirmon fshirjen e rreshtit nga taba e Table1 e skedarit database.mdb, kete rast administratorit nga Internet Exploreri i mundėsohet menaxhimi i te dhenava nga kudo qoft ai.

Ėshtė e rruges qe futja ne skedarin pamja2.asp te jete me fjalėkalim keshtu qe mos te futet ndonje klient i zakonshem dhe te fshije te gjitha informacionet nga database.

 

Egzistojne metoda te ndryshme per fshirjen e rreshteve vetem nese behen selektohen ato,mirėpo metoda me e thjesht dhe me praktike ėshtė kjo me link delete. Metoda tjera jane metoda me check qe perdoren per multidelete per fshirje masive e te gjithe rreshteve.

 

Editor i shenimeve – Edit Person

 

Editor i shenimeve funksionon me 3 skedar ne veprim.

 

Skedari pamja4.asp – per pamjen e rreshteve dhe caktimin per cilin rreshte do nryshojme

Skedari editperson.asp – per ndryshimin qe duam te bejme ne text box.

Skedari update.asp – veprimi SQL qe behet ndryshimi dhe perseri thirret skedari pamja4.asp

 

Veprimet me skedar dhe renditja e tyre

 

  1. Fillimisht krijojme pamjen e shenimeve ne skedarin pamja4.asp dhe njė link me Editor sikurse qe ėshtė pamja3.asp qe ėshtė vendosur linku Delete.
  2. Krijojme njė skedar editperson.asp me text input ( hyrje ) sikurse ne fillim per regjistrimin e te dhenave me buttonin submit vetem ne kete rast i thirrim edhe shenimet me ID numer vetem nese klikojm nga tabela pamja4.asp linkurn Editor me ate ID i marrim informacionet.
  3. Krijojme njė skedar kalimtar veprimi update.asp te dhenet qe ndryshojm nga skedari editperson.asp nese shtypim buttonin submit automatikisht te behen ndryshimet qe jane te shfaqur nga thirrja e skedarit  editperson.asp.
  4. Ne skedarin update.asp japim veprimet me SQL per ndryshimin e shkrimit ne ate ID qe ėshtė me shenime e zevendesojm me shenimet qe japim nga editperson.asp

 

Cikli i veprimit ėshtė : pamja4.asp ą editperson.asp ą update.asp ą pamja4.asp

Ne skedarin pamja4.asp pas kryrjes se veprimit shohim ndryshimet e bera.

Vetem ne skedarin update.asp nuk shihen veprimet nga klienti sepse ne server behen veprimet, te gjitha veprimet shifen ne skedarin pamja4.asp ( per kete ėshtė emertuar skedari pamja4.asp)

Kodi i skedarit pamja4.asp

<html>

<head><title>Pamja e listes</title></head>

<body>

<script>

function confirmEdit(EditUrl) {

  if (confirm("A deshironi te beni ndryshime...?")) {

    document.location = EditUrl;

  }

}

</script>

<br>

<table width="900" border="0" bgcolor="LightSteelBlue" cellspacing="1" align="center">

  <br>

  <tr class="DataGridHeader">

    <td bgcolor="#EBEBEB" >ID </td>

    <td bgcolor="#EBEBEB" >EMRI </td>

    <td bgcolor="#EBEBEB" >MBIEMRI</td>

    <td bgcolor="#EBEBEB" >SHENIME</td>

    <td bgcolor="#EBEBEB" >VEPRIMI</td>

  </tr>

 

<% Do while not rs.EOF %>

  <tr class="tablerowdata">

    <td bgcolor="#FAFAFA"><%=Rs("ID")%></td>

    <td bgcolor="#FAFAFA"><%=Rs("EMRI")%></td>

    <td bgcolor="#EBEBEB"><%=Rs("MBIEMRI")%></td>

    <td bgcolor="#FAFAFA"><%=Rs("SHENIME")%></td>

    <td bgcolor="#EBEBEB">

    <ahref=javascript:confirmEdit('editperson.asp?Rec=<%=RS("ID")%>')>Editor</a></td>

</tr>

<% Rs.MoveNext

Loop

%>

</table>

 

</body>

<%

Rs.Close

set Rs = Nothing

conn.close

set conn = nothing

%>

</html>

 

Pas thirrjes se skedarit pamja4.asp do te shfaqet tabela ku ne rreshtin e fundit ėshtė njė link Editor dhe nese shtypet ai link atehere hapet skedari editperson.asp keshtu qe kjo dritare ėshtė me text box ku jane te shkruar shenimet e atij rreshti dhe bejme ndryshimin e shenimit dhe me pas shtypim butonin submit. keshtu qe perseri shfaqet pamja4.asp ku shifet ndryshimi.

Kodi i skedarit editperson.asp

<%@LANGUAGE="VBSCRIPT" %>

<%Option Explicit%>

<!--#Include File="lidhu.asp"-->

 

<%

Dim SQL, Rs

SET Rs = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM Table1 WHERE ID = " & Request.QueryString("Rec")

Rs.open SQL,conn,3,3

%>

 

<head><title>Editor</title></head>

<html>

<head><title>Editori ne database</title></head>

<body>

 

<form name="Form" method="post" action="update.asp?Rec=<%=Request.QueryString("Rec") %>">

 Emri:                      <input type="text" name="EMRI" size="20" value=<%=RS("EMRI")%> ><br>

 Mbiemri :               <input type="text" name="MBIEMRI" size="20" value=<%=RS("MBIEMRI")%> ><br>

 TELEFON :           <input type="text" name="TELEFON" size="20" value=<%=RS("TELEFON")%> ><br>

 ADRESA :             <input type="text" name="ADRESA" size="30" value=<%=RS("ADRESA")%>  ><br>

 SHENIME :           <input type="text" name="SHENIME" size="50" value=<%=RS("SHENIME")%> ><br>

<Input type="submit" name="submit" value="Ruaje" />

</form>

 

</body>

</html>

 

<%

Rs.Close

SET Rs = Nothing

conn.close

SET conn = Nothing

%></html>

 

Nese e afishojme kete skedar atetehere shfaqet forma e meposhtme

 

 

 

 

 

 

 

 

 

 

 

 

Kete rast ne kemi klikuar linkun ne rreshtin me ID=5 dhe nese shtypim butonin Update atehere perseri thirret neskedari update.asp qe e kryen kete veprim dhe me pas shfaqet tabela pamja4.asp ku shohim ndryshimin e bere.

Skedari update.asp qe skedar me vete qe thirr shenimin me ID=5 i merr shenimet nga tabela editperson.asp dhe me pas nga keto text shkrimet bene ndryshim dhe me pas shfaqe pamja4.asp

Kodi i skedarit update.asp

Kodi qe ėshtė shkruar ne update.asp nuk ėshtė i dukshem nga klienti ėshtė skedar qe bene veprimin brendi te serverit dhe realizon ndryshimet e dhena, qe do te thot merr shenimet nga editperson.asp dhe me pas e bene ndryshimin ne brendi ku automatikisht thirr perseri pamja4.asp ku shfaqet ndryshimi.

 

Kodi i skedarit ėshtė :

 

<% @Language=VBScript %>

<% Option Explicit %>

<!--#include file="lidhu.asp"-->

 

<%

Dim w1,w2,w3,w4,w5

Dim SQL

 

w1=trim(request.form("EMRI"))

w2=trim(request.form("MBIEMRI"))

w3=trim(request.form("TELEFON"))

w4=trim(request.form("ADRESA"))

w5=trim(request.form("SHENIME"))

 

SQL = "UPDATE Table1 SET"

SQL = SQL & " EMRI='" & w1 & "', "

SQL = SQL & " MBIEMRI='" & w2 & "', "

SQL = SQL & " TELEFON='" & w3 & "', "

SQL = SQL & " ADRESA='" & w4 & "', "

SQL = SQL & " SHENIME='" & w5 & "'"

SQL = SQL & " WHERE ID = " & Request.QueryString("Rec") & ";"

 

conn.Execute SQL

conn.Close

set conn = nothing

Response.redirect "pamja4.asp"

%>

 

Kete rast behet lidhja me skedarin lidhu.asp ,me ndihmen e SQL kodin qe bene veprimi SET vetem ne ate qe ka ID te dhene nga tabela e pare, qe ėshtė berre thirrja nga rreshti i skedarit pamja4.asp , me pas kryen veprimin dhe perseri shfaq thirrjen e skedarit pamja4.asp , edhe pse ėshtė koha e shkurt qe kryhet ky veprim, nese kemi shume te dhena verehet njė kohe kur behet ndryshimi.

 

Me kete skedar te fundit kryhen te gjitha veprimet qe jane parapare si Shkrim,Pamje,Shkrim,Anulim

 

Gjithe puna ne ASP ėshtė qe te kryhen keto veprime dhe me keto veprime shquhet sistemi ASP sepse ndėrhyn ne database vetem me Internet Explorer.

Kemi ėshtė veprime tjera ne forma te leximit dhe shkrimit mirėpo veprimet ne database ne fusha nuk ka, kemi menyrat e persorimit te sistemit SQL qe mundesh te pėrdorni sistemin e plot te SQL ne ASP Webfaqe.

 

Kalendari metodat e shkrimit

Meqe kemi kalendar te nevojshem per njė shenim ne njė ASP code atehere eshte e mire te paraqesim disa kode qe te shohim menyrat e pamjes se kalendarit dhe thirrjet te diteve muajve viteteve etj.

 

Pamja e kodit per shfaqen e dites se javesh dhe muajin

 

<html><body>
Sot ėshtė <%response.write(WeekdayName(weekday(date)))%>,
<br />
dhe muaji <%response.write(MonthName(month(date)))%>
</body></html>

 

ne pamje do te shfaqet

Sot ėshtė Monday,
dhe muaji October

 

Shembull : WeekDay

 

<html><body>
<p>VBScripts' function <b>WeekdayName</b> qe do te shfaqet dita e javes:</p>
<%
response.Write(WeekDayName(1))
response.Write("<br>")
response.Write(WeekDayName(2))
%>

<p>Emri i dites i shkurtuar:</p>
<%
response.Write(WeekDayName(1,true))
response.Write("<br>")
response.Write(WeekDayName(2,true))
%>

<p>Dita e tanishem:</p>
<%
response.Write(WeekdayName(weekday(date)))
response.Write("<br>")
response.Write(WeekdayName(weekday(date), true))
%>
</body></html>

Keu kemi njė funksion qe nxerr pamjen e dites nga serveri dhe shfaqet tek klienti metodat e shfaqjes se dites jane ne modelin (1) (2) si ne shembull  response.write(weekdayname(1)) qe duhet te shfaqet e SunDay dhe nese eshte njė (2) atehere shfaqet Monday qellimi se dita fillon nga e SunDay.

Pjesa e pamjes se dites se shkurtuar si Sun , Mon etj kemi rastin ,emri i dites se shkurtuar.

Kodi i plot i shfaqes se dites dhe ne Ores jane me posht :

 

<html>
<body>
    Sot data eshte : <%response.write(date())%>.
<br>
     Ne server ora eshte : <%response.write(time())%>.
</body>
</html>

 

Kjo shfaq automatik daten e serverit dhe oren e serverit.

 

Formatet e dates

 

Formatet e dates jane te nevojshme ne punen e ASP sepse renditja ne database behet edhe me date dhe formati i dates eshte i nevojshem edhe per kėrkimin e te dhenave nga serveri me formate date te caktuar

 

Tipi i formatimit te dates dhe ores eshte :

 

1.     vbgeneraldate        10/30/2006

2.     vblongdate           Monday, October 30, 2006

3.     vbshortdate          10/30/2006

4.     vblongtime           8:17:52 AM

5.     vbshorttime          08:17

 

Paraqesim njė shembull qe shohim ne pamje formatet e dates :

 

<html>
<body>
<%
response.write(FormatDateTime(date(),vbgeneraldate))
response.write("<br />")
response.write(FormatDateTime(date(),vblongdate))
response.write("<br />")
response.write(FormatDateTime(date(),vbshortdate))
response.write("<br />")
response.write(FormatDateTime(now(),vblongtime))
response.write("<br />")
response.write(FormatDateTime(now(),vbshorttime))
%>
</body>
</html>

 

FUNDI I FAQES